Создание отчета из таблицы Delphi в Excel

uses ComObj;
 
{Передача данных из таблицы типа TStringGrid на лист рабочей книги MS Excel.
Функция возвращает ссылку на интерфейс диапазона MS Excel, в который записалась таблица.
aSg - экземпляр типа TStringGrid, из которого берутся данные.
aExSh - ссылка на интерфейс рабочего листа MS Excel, на который следует поместить данные.
aRow, aCol - координаты ячейки на листе aExSh, начиная с которой следует разместить таблицу.}
function SgToExcel(aSg : TStringGrid; aExSh : OleVariant; const aRow, aCol : Integer) : OleVariant;
var
  vArr : Variant;
  exCell : OleVariant;
  i, j : Integer;
begin
  //Создаём вариантный массив с размером, соответствующим размеру таблицы.
  vArr := VarArrayCreate([1, aSg.RowCount, 1, aSg.ColCount], varOleStr);
  //Записываем в вариантный массив данные таблицы.
  for i := 1 to aSg.RowCount do
    for j := 1 to aSg.ColCount do
      vArr[i, j] := aSg.Cells[j - 1, i - 1];
  //Ссылка на ячейку, в которой расположится левый верхний угол таблицы.
  exCell := aExSh.Cells[aRow, aCol];
  //Определяем диапазон, в который мы запишем данные таблицы.
  Result := aExSh.Range[exCell, exCell.Offset[aSg.RowCount - 1, aSg.ColCount - 1]];
  //Записываем данные вариантного массива в диапазон.
  Result.Value := vArr;
end;
 
//Пример использования функции SgToExcel().
procedure TForm1.Button1Click(Sender: TObject);
const
  //Толщина линий.
  xlThin = 2; //Тонкая линия.
  xlMedium = -4138; //Средняя толщина линии.
  //Вид линии.
  xlContinuous = 1; //Непрерывная линия.
var
  exApp, exBook, exSh, exRng : OleVariant;
  Sl : TStringList;
begin
  //Попытка запустить экземпляр MS Excel и получить ссылку на интерфейс его корневого объекта.
  try
    exApp := CreateOleObject('Excel.Application');
  except
    MessageBox(Handle, 'Не удалось запустить MS Excel. Действие отменено.',
      'Ошибка', MB_OK + MB_ICONERROR + MB_APPLMODAL);
    Exit;
  end;
  exApp.Visible := True;         //Делаем видимым окно MS Excel.
  exBook := exApp.WorkBooks.Add; //Создаём рабочую книгу и получаем ссылку на её интерфейс.
 
  //Записываем данные из StringGrid1 на первый лист MS Excel, начиная с ячейки "D3" (="R3C4").
 
  //Ссылка на интерфейс первого листа рабочей книги.
  exSh := exBook.Worksheets[1];
  //Записываем данные из StringGrid1 на лист MS Excel и получаем ссылку
  //на интерфейс диапазона, в который записались эти данные.
  exRng := SgToExcel(StringGrid1, exSh, 3, 4);
  //Оформляем таблицу - устанавливаем обрамление для ячеек таблицы.
  exRng.Borders.LineStyle := xlContinuous;
  exRng.Borders.Weight := xlMedium;
  //Выравниваем ширину столбцов по содержимому.
  exRng.Columns.AutoFit;
end;

procedure TForm1.N24Click(Sender: TObject);
var
XLapp, Sheet, Colum:Variant;
index,p:Integer;
begin
 XLApp:= CreateOleObject('Excel.Application');
 XLApp.Visible:=true;
 XLApp.Workbooks.Add(-4167);
 XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';
 Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;
 
 Colum.Columns[1].ColumnWidth:=35;
 Colum.Columns[2].ColumnWidth:=20;
 Colum.Columns[3].ColumnWidth:=25;
 Colum.Columns[4].ColumnWidth:=27;
 Colum.Columns[5].ColumnWidth:=15;
 Colum.Columns[6].ColumnWidth:=30;
 Colum.Columns[7].ColumnWidth:=30;
 Colum.Columns[8].ColumnWidth:=40;
 Colum.Columns[9].ColumnWidth:=18;
 
 Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;
 Colum.Rows[2].Font.Bold:=true;
 Colum.Rows[1].Font.Bold:=true;
 Colum.Rows[1].Font.Color:=clBlue;
 Colum.Rows[1].Font.Size:=12;
 Colum.Rows[2].Font.Size:=12;
 Colum.Rows[3].Font.Size:=12;
 Colum.Rows[4].Font.Size:=12;
 Colum.Rows[5].Font.Size:=12;
 Colum.Rows[6].Font.Size:=12;
 Colum.Rows[7].Font.Size:=12;
 Colum.Rows[8].Font.Size:=12;
 Colum.Rows[9].Font.Size:=12;
 Colum.Rows.Font.Name:=' Times New Roman';
 
 Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];
 Sheet.Cells[1,2]:='Отчет по компьютерной техники :'+DateToStr(Date);
 Sheet.Cells[2,1]:='Наименование оборудования';
 Sheet.Cells[2,2]:='Заводской номер';
 Sheet.Cells[2,3]:='Инвентарный номер';
 Sheet.Cells[2,4]:='Операционная система';
 Sheet.Cells[2,5]:='Лицензия';
 Sheet.Cells[2,6]:='Ответственное лицо';
 Sheet.Cells[2,7]:='Отдел';
 Sheet.Cells[2,8]:='Должность';
 Sheet.Cells[2,9]:='Примечания';
 
 index :=3;
 
fDM.ADOTRM.First;
for p:=0 to fDM.ADOTRM.RecordCount-1 do
  begin
   Sheet.Cells[index,1]:= fDM. ADOTRM.Fields.Fields[1].AsString;
   Sheet.Cells[index,2]:= fDM. ADOTRM.Fields.Fields[2].AsString;
   Sheet.Cells[index,3]:= fDM. ADOTRM.Fields.Fields[3].AsString;
   Sheet.Cells[index,4]:= fDM. ADOTRM.Fields.Fields[4].AsString;
   Sheet.Cells[index,5]:= fDM. ADOTRM.Fields.Fields[5].AsString;
   Sheet.Cells[index,6]:= fDM. ADOTRM.Fields.Fields[6].AsString;
   Sheet.Cells[index,7]:= fDM. ADOTRM.Fields.Fields[7].AsString;
   Sheet.Cells[index,8]:= fDM. ADOTRM.Fields.Fields[8].AsString;
   Sheet.Cells[index,9]:= fDM. ADOTRM.Fields.Fields[9].AsString;
   Inc(index);
   fDM. ADOTRM.Next;
 
end;