Вывод информации из DBGrid в шаблон Excel

procedure TForm2.BitBtn3Click(Sender: TObject);
Var
   ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData: Variant;
   BeginCol, BeginRow, j: integer;
   RowCount, ColCount: Integer;
   AppLocation:string;
Begin
   BeginCol := 1;   // Начинает вывод информации с 1 столбца.
   BeginRow := 11; // Начинает вывод информации с 11 строки.
// Размеры выводимого массива данных
   RowCount := ADOQuery1.RecordCount;
   ColCount := ADOQuery1.FieldDefs.Count;
// Создание Excel
   ExcelApp := CreateOleObject('Excel.Application');
   ExcelApp.DisplayAlerts := false;
// Отключаем реакцию Excel на события, чтобы ускорить вывод информации
   ExcelApp.Application.EnableEvents := false;
//  Создаем Книгу (Workbook)
//  Если заполняем шаблон, то
   Workbook := ExcelApp.WorkBooks.Add(GetCurrentDir() + '\Документы\Прайс-лист.xls');
   ArrayData := VarArrayCreate([1, RowCount, 1, ColCount], varVariant);
 // Заполняем массив
   ADOQuery1.DisableControls;
   ADOQuery1.First;
   While Not ADOQuery1.eof Do
   Begin
       For J := 1 To ADOQuery1.FieldDefs.Count Do
       Begin
           ArrayData[ADOQuery1.RecNo, J] :=
           ADOQuery1.FieldbyName(ADOQuery1.FieldDefs.Items[j - 1].DisplayName).value;
       End;
       ADOQuery1.Next;
   End;
   ADOQuery1.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;
end;

procedure TForm2.BitBtn3Click(Sender: TObject);
Var
ExcelApp,Sheet,Colum:Variant; // указываем тип переменных.
 index,i:Integer;
begin
 ExcelApp:= CreateOleObject('Excel.Application');  // Создание OLE-объекта.
 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[11].Font.Bold:=true;
 Colum.Rows[11].Font.Color:=clBlack;
 Colum.Rows[11].Font.Size:=8;
 Colum.Rows.Font.Name:='Times New Roman';
 
 Sheet:=ExcelApp.Workbooks[1].WorkSheets['Прайс-лист']; // Название столбцов.
 Sheet.Cells[9,1]:='Код';
 Sheet.Cells[9,2]:='Наименование товара';
 Sheet.Cells[9,3]:='Срок гарантии';
 Sheet.Cells[9,4]:='Цена (руб.)';
 
 index:=11;
 ADOQuery1.First;
 for i:=0 to ADOQuery1.RecordCount-1 do
  begin
   Sheet.Cells[index,2]:=ADOQuery1.Fields.Fields[1].AsString;
   Sheet.Cells[index,1]:=ADOQuery1.Fields.Fields[0].AsString;
   Sheet.Cells[index,4]:=ADOQuery1.Fields.Fields[3].AsString;
   Sheet.Cells[index,3]:=ADOQuery1.Fields.Fields[7].AsString;
   Inc(index);
   ADOQuery1.Next;
  end;
  ExcelApp.Visible := True;
end;

 
   Sheet.Cells[index,2]:=ADOQuery1.Fields.Fields[1].AsString;
   Sheet.Cells[index,1]:=ADOQuery1.Fields.Fields[0].AsString;
   Sheet.Cells[index,4]:=ADOQuery1.Fields.Fields[3].AsString;
   Sheet.Cells[index,3]:=ADOQuery1.Fields.Fields[7].AsString;

 ExcelApp.Application.EnableEvents := false;

//Перенос всей таблицы БД на лист MS Excel.
procedure TForm1.Button1Click(Sender: TObject);
const
  //Идентификатор типа ячейки в диапазоне - последняя (справа внизу) ячейка диапазона.
  xlCellTypeLastCell = 11;
  //Вид смещения - вверх.
  xlShiftUp = -4162;
  //Тип линий.
  xlContinuous = 1;
  //Толщина линий.
  xlMedium = -4138;
  xlThick = 4;
  xlThin = 2;
var
  exCell1, exRng : Variant;
  i, Row : Integer;
  Bm : TBookmark;
begin
  //Проверка подключения к MS Excel.
  if VarIsClear(gExSh) then begin
    MessageBox(0, 'Нет подключения к MS Excel. Действие отменено.',
      'Внимание!', MB_OK + MB_ICONWARNING + MB_APPLMODAL);
    Exit;
  end;
  //Проверка подключения к таблице БД.
  if not ADOQuery1.Active then begin
    MessageBox(0, 'Таблица БД закрыта. Действие отменено.',
      'Внимание!', MB_OK + MB_ICONWARNING + MB_APPLMODAL);
    Exit;
  end;
  //Проверка таблицы БД на пустоту.
  if ADOQuery1.Eof then begin
    MessageBox(0, 'Таблица БД пуста. Действие отменено.',
      'Внимание!', MB_OK + MB_ICONWARNING + MB_APPLMODAL);
    Exit;
  end;
 
  {Верхняя левая ячейка таблицы Excel. Предположим, нам надо, чтобы её координаты
  были такими: "$B$3". Т. е., номер столбца = 2, номер строки = 3.}
  exCell1 := gExSh.Cells[3, 2];
  //Определяем номер нижней строки в области, которая уже используется на листе MS Excel.
  Row := gExSh.UsedRange.SpecialCells(xlCellTypeLastCell).Row;
  {Удаление прежних данных.
  Если номер нижней строки равен или больше номера строки, на которой расположена
  ячейка exCell1, то, значит, таблица уже содержит данные. В этом случае
  эти данные мы удаляем.}
  if Row >= exCell1.Row then begin
    //Диапазон таблицы.
    exRng := gExSh.Range[exCell1,
      exCell1.Offset[Row - exCell1.Row + 1, ADOQuery1.FieldCount - 1]];
    //Удаление диапазона со сдвигом вверх.
    exRng.Delete(xlShiftUp);
  end;
 
  //Записываем шапку таблицы над областью данных.
  for i := 0 to ADOQuery1.FieldCount - 1 do
    exCell1.Offset[0, i].Value := ADOQuery1.Fields[i].DisplayName;
  //Записываем данные таблицы БД на лист MS Excel.
  Bm := ADOQuery1.GetBookmark; //Запоминаем текущую позицию в таблице БД.
  ADOQuery1.DisableControls; //Отключаем набор данных от элементов управления.
  ADOQuery1.First; //Переход к первой записи таблицы.
  //Теперь перебираем все записи таблицы и передаём их на лист Excel.
  Row := 0;
  while not ADOQuery1.Eof do begin
    Inc(Row);
    for i := 0 to ADOQuery1.FieldCount - 1 do
      exCell1.Offset[Row, i].Value := ADOQuery1.Fields[i].AsString;
    ADOQuery1.Next;
  end;
  //Возвращаемся на прежнюю позицию в наборе данных.
  ADOQuery1.GotoBookmark(Bm);
  //Подключаем элементы управления.
  ADOQuery1.EnableControls;
 
  //Весь диапазон таблицы (шапка и данные).
  exRng := gExSh.Range[exCell1, exCell1.Offset[Row, ADOQuery1.FieldCount - 1]];
  //Обрамление диапазона.
  exRng.Borders.LineStyle := xlContinuous;
  exRng.Borders.Weight := xlThin;
  //Оформление шапки.
  exRng.Rows[1].Borders.Weight := xlMedium;
  exRng.Rows[1].Font.Bold := True; //Шрифт жирный.
  //Автоматический подбор ширины столбцов для всей таблицы.
  exRng.Columns.AutoFit;
end;

ADOQuery.sql

Var
ExcelApp2,Sheet,Colum:Variant;
index,i:Integer;
begin
 ExcelApp2:= CreateOleObject('Excel.Application');  // Создание OLE-объекта.
 ExcelApp2.Application.EnableEvents := false;
 ExcelApp2.Workbooks.Add(GetCurrentDir() + '\Документы\Личная карточка клиента.xlt');
 ExcelApp2.Workbooks[1].WorkSheets[1].Name:='Личная карточка клиента';
 ExcelApp2.DisplayAlerts := False;
 
 Sheet:=ExcelApp2.Workbooks[1].WorkSheets['Личная карточка клиента'];
 
 index:=20;
 ADOTable_Clients.First;
 for i:=1 to ADOTable_Clients.RecordCount-1 do
  begin
   Sheet.Cells[index,3]:=ADOTable_Clients.Fields.Fields[1].AsString;
   Sheet.Cells[index,6]:=ADOTable_Clients.Fields.Fields[2].AsString;
   Sheet.Cells[index,9]:=ADOTable_Clients.Fields.Fields[3].AsString;
   Inc(index);
   ADOTable_Clients.Next;
  end;
  ExcelApp2.Visible := True;

Var
ExcelApp2,Sheet,Colum:Variant;
index,i:Integer;
begin
 ExcelApp2:= CreateOleObject('Excel.Application'); *// Создание OLE-объекта.
 ExcelApp2.Application.EnableEvents := false;
 ExcelApp2.Workbooks.Add(GetCurrentDir() + '\Документы\Личная карточка клиента.xlt');
 ExcelApp2.Workbooks[1].WorkSheets[1].Name:='Личная карточка клиента';
 ExcelApp2.DisplayAlerts := False;
Sheet:=ExcelApp2.Workbooks[1].WorkSheets['Личная карточка клиента'];
index:=20;
 ADOTable_Clients.First;
 for i:=1 to ADOTable_Clients.RecordCount-1 do
 begin
  Sheet.Cells[index,3]:=ADOTable_Clients.Fields.Fields[1].AsString;
  Sheet.Cells[index,6]:=ADOTable_Clients.Fields.Fields[2].AsString;
  Sheet.Cells[index,9]:=ADOTable_Clients.Fields.Fields[3].AsString;
  Inc(index);
  ADOTable_Clients.Next;
 end;
 ExcelApp2.Visible := True;