| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Перенос данных из Adotable в Эксель
Crazy monkey © (2006-07-11 14:21:00)Сейчас переношу следующим образом:
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? Т.е перенесет заголовки и данные причем пропорционально тому как данные отображены в таблице. Т.е к примеру у меня поле примечание самое большое. Соответственно и при переносе необходимо чтобы это поле в Экселе было соответсвующим.
Заранее спасибо!
YurikGL (2006-07-11 21:22:00) [1]http://www.delphikingdom.com/asp/viewitem.asp?catalogid=249&mode=print
Работаем через вариантные массивы
Crazy monkey (2006-07-11 17:54:00) [2]Эээ.. нет совсем версий? Может все таки есть болле эффективный способы?
| |
