Форум: "Базы";
Текущий архив: 2003.09.29;
Скачать: [xml.tar.bz2];
Вниз
Експорот в Ех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]Здраствуйте мастера!!
У меня проблема, я сделал в программе экпорт в эксель,но вот проблема после того как я делаю экспорт и если не закрываю прогу я немогу открыть любой другой документ эксель, Ексель запускается, а на месте ячеек прозрачное место. В чем проблема
← →
Hawk2 (2003-09-08 18:21) [21]Ты не уничтожаешь экземпляр Екселя.
← →
jack128 (2003-09-08 18:37) [22]
> а теепрь скажите как мне нарисовать быстро рамку я делаю
> в цыкле
Можно просто поставлять с твоей программой xls-файл в котором уже нарисованы соответствующие border"ы и использовать его, как шаблон
P.S. А на XL Report не гони! Отличнейшая вещь..
← →
Deniz (2003-09-09 08:22) [23]> 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 (2003-09-09 14:03) [24]Скажите мастера а как мне уничтожить екземпдляр екселя, (это ж нужно делать когда пользователь закрывает ексель???) или когда?
← →
Hawk2 (2003-09-09 15:07) [25]Relaxxx © (09.09.03 14:03) [24]
Скажите мастера а как мне уничтожить екземпдляр екселя, (это ж нужно делать когда пользователь закрывает ексель???) или когда?
Я делаю это после того как готов отчет. Когда ты уничтожаешь экземпляр, сама программа Excel не закрывается, ты можешь продолжать с нею работать, а проблемы с запуском другой копии исчезнут. Для освобождения (где-то вычитал) больше всего подходит FreeAndNil(Твой_экземпляр);
← →
Relaxxx (2003-09-09 17:53) [26]Не знаю что я делаю не так, вот мой код:
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);
может я как-то не так написал эту строку????
← →
Hawk2 (2003-09-10 00:01) [27]Я удаляю экземпляр Екселя так:
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
← →
Relaxxx (2003-09-10 12:18) [29]
> Hawk2 © (10.09.03 00:01) [27]
ты пользуешся XLReport ??? не можеш дать ссылочку где его достать(нормальный, не триал версию) или может можеш намылить, буду очень признателен!!!
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2003.09.29;
Скачать: [xml.tar.bz2];
Память: 0.51 MB
Время: 0.086 c
