[ALexandr555]

Сообщение от Страдалецъ

Я вашем коде вообще не понимаю, зачем там грид. Сразу читайте и пишите данные, примерно так:

Код:

for i:= 1 to ADOQuery1.RecordCount -1 
do begin
    sheet.cells[i,1]:=adoquery1.FieldByName('name').AsString; 
    AdoQuery1.Next;   
    end;

по моему без -1 в ADOQuery1.RecordCount -1 просто

Код:

for i:= 1 to ADOQuery1.RecordCount

или тогда

Код:

for i:= 0 to ADOQuery1.RecordCount-1

а то последнее не возьмет, или если запись одна то ничего не сделает