Перенос данных из 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]

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

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

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

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