Скачать: CL | DM;

Перенос данных из Adotable в Эксель   Найти похожие ветки 

← →
Crazy monkey   (2006-07-11 14:21) [0]

Сейчас переношу следующим образом:
ExcelApp := CreateOleObject ("Excel.Application");
ExcelApp.Application.EnableEvents := false;
ExcelApp.WorkBooks.Add;
ExcelApp.ActiveWorkBook.WorkSheets[1].Cells[1,1] := "Заголовок 1";
while  not adotable1.Eof do begin
ExcelApp.ActiveWorkBook.WorkSheets[1].Cells[I,1] :=s;
и.т.д
Может есть более эффективный способ? Может компонент, который автоматически перенесет данные из Dbgrid или Adotabke? Т.е перенесет заголовки и данные причем пропорционально тому как данные отображены в таблице. Т.е к примеру у меня поле примечание самое большое. Соответственно и при переносе необходимо чтобы это поле в Экселе было соответсвующим.

Заранее спасибо!

---

← →
Crazy monkey   (2006-07-11 17:54) [1]

Эээ.. нет совсем версий? Может все таки есть болле эффективный способы?

---

← →
YurikGL ©   (2006-07-11 21:22) [2]

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=249&mode=print

Работаем через вариантные массивы

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.058 c