Вывод данных в Excel

[Novi4ek]

Доброго всем времени суток.Постараюсь изложить свою проблему...

Данные из ADOTable в Excel вывожу следующим кодом
...........

DataModule_main.TableRep_Otd.First;
for i:=0 to DataModule_main.TableRep_Otd.Record Count-1 do
begin
Sheet.Cells[21,1]:=DataModule_main.Table_Sotr_Otpusk .Fields.Fields[1].AsString;
Sheet.Cells[index,2]:=DataModule_main.TableRep_Otd.Fiel ds.Fields[2].AsString;
Inc(index);
DataModule_main.TableRep_Otd.Next;

.........

столкнулась с проблемой вывода данных из Query...т.е вот например у меня выполняется запрос,как его вывести в Excel?

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

[Serge_Bliznykov]

или я чего то не понимаю, или одно из двух.. ;-)
Query у вас есть? Работает (результат возращает)?

ну замените xxxx.Table_Sotr_Otpusk.xxxx
на xxxx.Query....xxxx
и всё... TTable и TQuery наследники TDataSet - всё должно работать без изменений!

[Novi4ek]

да,Query результат возвращает...попробовала,как Вы посоветовали...выдает ошибку
Project.exe raised exception class EListError with message 'List index out of bounds (2)'.

[Novi4ek]

Разобралась!)))
Спасибо!