Форум программистов [Powered by Invision Power Board]

Код

Procedure TForm1.Button2Click(Sender: TObject);
var
    ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData  : Variant;
    BeginCol, BeginRow, i, j : integer;
    RowCount, ColCount : integer;
Begin
   Screen.Cursor:=crHourGlass;
   // Координаты левого верхнего угла области, в которую будем выводить данные
   BeginCol:=1;
   BeginRow:=2;
   // Размеры выводимого массива данных
   RowCount:=Query1.RecordCount+2;
   ColCount:=Query1.Fields.Count;
   // Создание Excel
   ExcelApp:=CreateOleObject('Excel.Application');
   // Отключаем реакцию Excel на события, чтобы ускорить вывод информации
   ExcelApp.Application.EnableEvents := false;
   //  Создаем Книгу (Workbook)
   //  Если заполняем шаблон, то Workbook := ExcelApp.WorkBooks.Add('C:\MyTemplate.xls');
   Workbook := ExcelApp.WorkBooks.Add;
   // Создаем Вариантный Массив, который заполним выходными данными
   ArrayData := VarArrayCreate([1, RowCount, 1, ColCount], varVariant);
   // Заполняем массив
   for j:=0 to ColCount-1 do
       ArrayData[1,J+1]:=DBGrid1.Columns[j].Title.Caption;
   i:=2;
   Query1.DisableControls;
   Query1.First;
   while not Query1.Eof do
   begin
      for J:=0 to ColCount-1 do
           ArrayData[I,J+1]:=Query1.Fields[j].Value;
      Query1.Next;
      i:=i+1;
      ProgressBar1.Position:=ProgressBar1.Position+ProgressBar1.Step;
   end;
   ArrayData[RowCount,1]:='Всего записей: '+IntToStr(Query1.RecordCount);
   Query1.First;
   Query1.EnableControls;
   // Левая верхняя ячейка области, в которую будем выводить данные
   Cell1:=WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];
   // Правая нижняя ячейка области, в которую будем выводить данные
   Cell2:=WorkBook.WorkSheets[1].Cells[BeginRow+RowCount-1,BeginCol+ColCount-1];
   // Область, в которую будем выводить данные
   Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];
   // А вот и сам вывод данных
   // Намного быстрее поячеечного присвоения
   Range.Value := ArrayData;
   // Делаем Excel видимым
   ExcelApp.Visible := true;
   ExcelApp:=Unassigned;
   Screen.Cursor:=crDefault;
End;