Експорот в Ехcel

← →
Relaxxx © (2003-09-05 14:52) [0]

Здраствуйте, мне нужно организовать експорт в Ексель, я тут хотел скачать XL Report 4.2 но я немогу найти нормальный, может кто ссылку даст, или подскажет как мне так сделать експорт, может какие-то другие компоненты???

← →
DenK_vrtz © (2003-09-05 14:54) [1]

Relaxxx ©, ты как маленький ребенок, ей Богу!
Каждую неделю не по разу эти вопросы трутся, ссылки кидаются.
Поищи, если не в лом!

← →
Anatoly Podgoretsky © (2003-09-05 15:04) [2]

Что значит не нормальный, ну не бери ты с левых сайтов, бери от производителя, а если ты спрашиваешь про крякнутые, то ты просто ошибся сайтом.
Компоненты надо искать или на закладке Servers или на торри. На первой бесплатно, второе вряд ли.

← →
Relaxxx © (2003-09-05 15:17) [3]

Что за Servers??? Я просто хочу найти XL Report. Мне просто нужно в кратчайшие сроки сделать. Так что разбиратся с самим ОЛЕ я буду потом. Так еще раз где мне искать крякнутые компоненты??

← →
Polevi © (2003-09-05 15:19) [4]

если потом то в кратчайшие сроки наделать можно

← →
Е-Моё имя © (2003-09-05 15:28) [5]

> разбиратся с самим ОЛЕ я буду потом

используй раннее связывание

← →
Hawk2 © (2003-09-05 15:32) [6]

Читая некоторые темы на форуме, я понял что можно писать пограммы и без знания программирования, зарабатывать за них деньги, а учится, ну там книжки читать, исходники разбирать и т.д. можно потом, например вышел на пенсию, делать тебе нечего вот тогда можно и почитать. ;)

← →
Bob © (2003-09-05 15:41) [7]

Самый лучший экпорт - экспорт сделанный своими руками.
http://www.delphiworld.narod.ru/ - тут ты найдешь много интересного

← →
Настина (2003-09-05 16:16) [8]

Слушай, а как тебе идея экспорта в HTML? И нагрузка маленькая и таблички почти такие же...

← →
Vlad © (2003-09-05 16:33) [9]

>Hawk2 © (05.09.03 15:32) [6]
На этот счет можно не волноваться.
Вспомни школу ? Есть отличники, которые все делают сами. А есть двоечники, которые у них списывают.
Но в итоге - двоечник все равно остается двоечником! И никуда от этого не денешься.

>Настина (05.09.03 16:16) [8]
Хм... Интересно :)
А что ж с ним дальше делать-то, с HTML ?
Как с данными работать ?

← →
HSolo © (2003-09-05 16:41) [10]

Присоединяюсь к Bob © (05.09.03 15:41) [7]
Посмотрите еще это:
http://delphi.vitpc.com/helloworld/excel.htm

← →
MsGuns © (2003-09-05 16:44) [11]

>Bob © (05.09.03 15:41) [7]
> http://www.delphiworld.narod.ru/ - тут ты найдешь много интересного

Пошел. Посмотрел. Не увидел. Ни фига. Ни слова об экселе, хотя библиотека статей в целом весьма любопытная.
Набрал в прилагаемом Поиске "Excel" - вынырул в яндексе с четырехзначным кол-вом ссылок.

Где я неправ ?

← →
Vlad © (2003-09-05 16:47) [12]

>MsGuns © (05.09.03 16:44) [11]
Сюда ты не дошел видимо

http://www.delphiworld.narod.ru/base/delphi_and_excel_ole_automation.h tml

← →
Vlad © (2003-09-05 16:51) [13]

Млин, пробел влез случайно :)

← →
MsGuns © (2003-09-05 16:52) [14]

>Vlad © (05.09.03 16:47) [12]

Спасибо веримач

← →
Relaxxx © (2003-09-05 17:59) [15]

Подскажите как мне усовершенствовать код (не очень быстро экспортирует) и как мне нарисовать потом сетку с толшиной 1??

Вот код:
ExcelApplication:=CreateOleObject ("Excel.Application"); ExcelApplication.WorkBooks.Open ("c:\OP.xls"); Query1.Active := true; Query1.First; for n:=1 to Query1.RecordCount do begin s:=""; for i:=0 to MasterTable.Columns.Count -1 do begin s:= MasterTable.Columns[i].Field.AsString; r2:=i+2; n2:=n+3; ExcelApplication.Cells[n2,1].value:=IntToStr(n); ExcelApplication.Cells[n2,r2].value:=s; end; Query1.Next; end; ExcelApplication.visible:=true; ExcelApplication.ActiveWindow.DisplayGridlines:=True;

← →
Е-Моё имя © (2003-09-05 18:24) [16]

> как мне усовершенствовать код

используй массив
присваивай .Range=VarArray

← →
Relaxxx © (2003-09-05 18:29) [17]

Я это уже сделал, спасибо, стало действительно быстрее, а теепрь скажите как мне нарисовать быстро рамку я делаю в цыкле

for i1:=1 to 4 do
ExcelApplication.Cells[n2,1].Borders[i1].LineStyle:=1;

и так для каждой ячейки но это очень долго, как быстрее????

← →
AbrosimovA © (2003-09-08 13:51) [18]

FlexCelReport и XLSAdapter из библиотеки FlexCel, которых достаточно для получения в Excel данных из любой базы.
Если нужны подробности, пиши на моё мыло - отвечу.

← →
Deniz © (2003-09-08 14:17) [19]

> Relaxxx © (05.09.03 18:29) [17]

Посмотри на RANGE

← →
Relaxxx © (2003-09-08 16:38) [20]

Здраствуйте мастера!!
У меня проблема, я сделал в программе экпорт в эксель,но вот проблема после того как я делаю экспорт и если не закрываю прогу я немогу открыть любой другой документ эксель, Ексель запускается, а на месте ячеек прозрачное место. В чем проблема

Ты не уничтожаешь экземпляр Екселя.

> а теепрь скажите как мне нарисовать быстро рамку я делаю
> в цыкле

Можно просто поставлять с твоей программой xls-файл в котором уже нарисованы соответствующие border"ы и использовать его, как шаблон

P.S. А на XL Report не гони! Отличнейшая вещь..

> jack128 © (08.09.03 18:37) [22]
>Можно просто поставлять с твоей программой xls-файл в котором уже нарисованы соответствующие border"ы и использовать его, как шаблон.

В большинстве случаев неизвестно кол-во строк отчета на стадии формирования шаблона(тот же прайс). Можно только настроить форматы столбцов и шапку.
var XLApp, Sheet, Cell1, Cell2 : Variant; ... XLApp:=CreateOleObject("Excel.Application"); try Sheet:=XLApp.Workbooks[1].WorkSheets[1]; ... Cell1:=Sheet.Cells[5, 1] Cell2:=Sheet.Cells[CurrYPos, CurrXPos]; Sheet.Range[Cell1, Cell2].Borders.LineStyle:=1; finally XLApp:=Unassigned; end;

Скажите мастера а как мне уничтожить екземпдляр екселя, (это ж нужно делать когда пользователь закрывает ексель???) или когда?

Relaxxx © (09.09.03 14:03) [24]
Скажите мастера а как мне уничтожить екземпдляр екселя, (это ж нужно делать когда пользователь закрывает ексель???) или когда?

Я делаю это после того как готов отчет. Когда ты уничтожаешь экземпляр, сама программа Excel не закрывается, ты можешь продолжать с нею работать, а проблемы с запуском другой копии исчезнут. Для освобождения (где-то вычитал) больше всего подходит FreeAndNil(Твой_экземпляр);

Не знаю что я делаю не так, вот мой код:

ExcelApplication:=CreateOleObject ("Excel.Application"); ExcelApplication.WorkBooks.Open ("\\Multi\Amsora\forms\money\SCHETA.xls"); ExcelApplication.Range["D1", "D1"].value:="ЙЙЙ"; ExcelApplication.visible:=true; FreeAndNil(ExcelApplication);

У меня ошибка в FreeAndNil(ExcelApplication);
может я как-то не так написал эту строку????

Я удаляю экземпляр Екселя так:

Procedure CloseXLReport;
Begin
if Assigned(xlReport) then
begin
xlSheet:=nil; //Освобождаем листы
xlWorkbook:=nil; //Освобождаем книги
FreeAndNil(xlReport); //Убиваем сам Ексель
end;
End;

← →
paa (2003-09-10 08:27) [28]

используй PReport и не будет проблем! вот ссылка http://www.vtktools.ru/rus

> Hawk2 © (10.09.03 00:01) [27]
ты пользуешся XLReport ??? не можеш дать ссылочку где его достать(нормальный, не триал версию) или может можеш намылить, буду очень признателен!!!

Експорот в Ехcel Найти похожие ветки