Экспорт из AdoQuery в Excel - Delphi БД - Ответ 7656664

//вывод на печать
 ExcelApp:= CreateOleObject('Excel.Application');
 ExcelApp.Application.EnableEvents := false;
 ExcelApp.Workbooks.Add(GetCurrentDir() + '\Документы\Пропуски.xls');//путь к шаблону
 ExcelApp.Workbooks[1].WorkSheets[1].Name:='Пропуски';
 ExcelApp.DisplayAlerts := False;
 
 Colum:=ExcelApp.Workbooks[1].WorkSheets['Пропуски'].Rows;
 Colum.Rows[8].Font.Color:=clBlack;
 Colum.Rows[8].Font.Size:=8;
 Colum.Rows.Font.Name:='Times New Roman';
 index:=8;//строка с какой надо начинать выводить 
 with dm.AQZAPROS do begin
   dm.AQZAPROS.First;
 repeat
   Sheet.Cells[index,1]:= dm.AQZAPROS.Fields.Fields[0].AsString;//фамилия
   Sheet.Cells[index,2]:= dm.AQZAPROS.Fields.Fields[1].AsString;//дисциплина
   Sheet.Cells[index,3]:= dm.AQZAPROS.Fields.Fields[2].AsString;//отметка
   Inc(index);//следующая строка
   dm.AQZAPROS.Next;
 
 until  eof;
 
  ExcelApp.Visible := True;
end;