Выгрузка запроса в excel

[lord24]

Добрый день. Ребята, что-то напутал с циклами.....
Суть вот в чем: надо результат запроса выгрузить в Excel документ. Но у меня открывается целая куча документов(файлов excel) и в них чуть-чуть от запросов. Как сделать чтобы в книге(файле) одной был весь запрос.

var
 XL,Sheet:Variant;
 //ar1: Array of String;
 i,j:integer;
begin

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:=('SELECT * From Route WHERE Data>=D1 AND Data<=D2');
ADOQuery1.Parameters.ParamByName('D1').Value:=FormatDateTime('dd.mm.yyyy',DateTimePicker1.Date);
ADOQuery1.Parameters.ParamByName('D2').Value:=FormatDateTime('dd.mm.yyyy',DateTimePicker2.Date);
ADOQuery1.Open;

  while not ADOQuery1.Eof do
  begin
    j:=ADOQuery1.Fields[0].AsInteger;

         ADOQuery2.Close;
         ADOQuery2.SQL.Clear;
         ADOQuery2.SQL.Text:=('SELECT * From Klients WHERE Id_r=j');
         ADOQuery2.Parameters.ParamByName('j').Value:=j;
         ADOQuery2.Open;

XL:= CreateOleObject('Excel.Application');
XL.WorkBooks.Add(extractfilepath('Shablon.xls'));
Sheet:= XL.ActiveWorkBook.Sheets[1];
i:= 4;
ADOQuery2.First;
while not ADOQuery2.Eof do
begin
Sheet.Cells[i,1]:= ADOQuery1.Fields[1].AsDateTime;
Sheet.Cells[i,2]:= ADOQuery2.Fields[2].AsString;
Sheet.Cells[i,3]:= ADOQuery2.Fields[3].AsString;
inc(i);
ADOQuery2.Next;
end;
XL.Visible:= true;
Sheet:= UnAssigned;
XL:= UnAssigned;


    ADOQuery1.Next;
  end;

end;

[Stilet]

Вопрос не в тему: А почему не захотел в Экзеле настроить импорт данных?

[lord24]

Сообщение от Stilet

Вопрос не в тему: А почему не захотел в Экзеле настроить импорт данных?

Т.е. что бы нужные мне данные импортировались в excel?