procedure WriteToXLS(XLSFileName: OleVariant; ArrayData: Variant);
var
 XLApp: TExcelApplication;
 XLWbk: TExcelWorkbook;
{ TemplateFile, }NewTemplate: OleVariant;

 Range, Cell1, Cell2: Variant;
 BeginCol, BeginRow, EndCol, EndRow: integer;

// Параметры сохранения .xls-файла
 XLSaveParams: TXLSaveParams;
begin
 XLApp := TExcelApplication.Create(nil);
 XLWbk := TExcelWorkBook.Create(nil);
 try
   XLApp.DisplayAlerts[ 0 ] := False;
   XLApp.ConnectKind := ckNewInstance;
   XLApp.Application.EnableEvents := false;

   XLApp.Connect;
   NewTemplate := true;
//   TemplateFile := FileName;
   XLApp.Workbooks.Add(EmptyParam,NewTemplate);
   XLWbk.ConnectTo(XLApp.ActiveWorkBook);

// Размеры выводимого массива данных
  // Координаты левого верхнего угла области, в которую будем выводить данные
  BeginRow := VarArrayLowBound(ArrayData,  1 );
  BeginCol := VarArrayLowBound(ArrayData,  2 );

  // Координаты правого нижнего угла области, в которую будем выводить данные
  EndRow := VarArrayHighBound(ArrayData,  1 );
  EndCol := VarArrayHighBound(ArrayData,  2 );

  // Левая верхняя ячейка области, в которую будем выводить данные
  Cell1 := (XLWbk.Worksheets[ 1 ] as _Worksheet).Cells.Item[BeginRow, BeginCol];
  // Правая нижняя ячейка области, в которую будем выводить данные
  Cell2 := (XLWbk.Worksheets[ 1 ] as _Worksheet).Cells.Item[EndRow, EndCol];

  // Область, в которую будем выводить данные
  Range := (XLWbk.Worksheets[ 1 ] as _Worksheet).Range[Cell1, Cell2];

(*
//Создаем вариантный массив
TabGrid:=VarArrayCreate([ 1 ,RowCount, 1 ,ColCount],varVariant);
....

//Ориентация страницы
WorkSheet.PageSetup.Orientation:= 2 ;
WorkSheet.PageSetup.LeftMargin:= 4 ;
WorkSheet.PageSetup.RightMargin:= 4 ;

//Размер ячейки (блока ячеек)
WorkSheet.Range['L'+IntToStr(CurrLine),'L'+IntToStr(CurrLine)].Font.Size:= 8 ;


//Стиль шрифта
WorkSheet.Range['L'+IntToStr(CurrLine),'L'+IntToStr(CurrLine)].Font.Bold:=False;

WorkSheet.Range['L'+IntToStr(CurrLine),'L'+IntToStr(CurrLine)].Font.Italic:=False;

//Выравнивание по горизонтали
WorkSheet.Range['L'+IntToStr(CurrLine),'L'+IntToStr(CurrLine)].HorizontalAlignment:=xlHAlignRight;

//Выравнивание по вертикали
WorkSheet.Range['L'+IntToStr(CurrLine),'L'+IntToStr(CurrLine)].VerticalAlignment:=xlVAlignTop;


//Формат данных в ячейке
WorkSheet.Range['L'+IntToStr(CurrLine),'L'+IntToStr(CurrLine)].NumberFormat:='# ##0,00';


//Стиль границы
WorkSheet.Range['L'+IntToStr(CurrLine),'L'+IntToStr(CurrLine)].Borders.LineStyle:=xlSolid;


//Пример объединения ячеек
WorkSheet.Range['A'+IntToStr(CurrLine),'N'+IntToStr(CurrLine)].Font.Size:= 12 ;
WorkSheet.Range['A'+IntToStr(CurrLine),'N'+IntToStr(CurrLine)].Font.Bold:=True;
WorkSheet.Range['A'+IntToStr(CurrLine),'N'+IntToStr(CurrLine)].HorizontalAlignment:=xlHAlignCenter;
WorkSheet.Range['A'+IntToStr(CurrLine),'N'+IntToStr(CurrLine)].VerticalAlignment:=xlVAlignTop;
WorkSheet.Range['A'+IntToStr(CurrLine),'N'+IntToStr(CurrLine)].WrapText:=True;
WorkSheet.Range['A'+IntToStr(CurrLine),'N'+IntToStr(CurrLine)].RowHeight:= 12 ;
WorkSheet.Range['A'+IntToStr(CurrLine),'N'+IntToStr(CurrLine)].RowHeight:= 25 ;
WorkSheet.Range['A'+IntToStr(CurrLine),'N'+IntToStr(CurrLine)].Merge(True);

//Связываем массив с сеткой Excel
  Worksheet.Range['A1',Worksheet.Cells.Item[RowCount,ColCount]].Value := TabGrid;

// Отображаем Excel
XLApp.Visible[ 0 ] := True;

//Ликвидируем вариантный массив
XLApp.Disconnect;
TabGrid := Unassigned;
*)

  // А вот и сам вывод данных
  // Намного быстрее поячеечного присвоения
  Range.Value := ArrayData;

// Делаем Excel видимым
//  XLApp.Visible[ 0 ] := true;

// Записываем рабочую книгу в .xls-файл

  with XLSaveParams do
    begin

     if XLSFileName = Null then
        FileName := ExtractFilePath(Application.EXEName) + 'report.xls'
     else
        FileName := XLSFileName;

     FileFormat := xlExcel9795;
     Password := '';  { Length(Password) <=  15  }
     WriteResPassword := '';
     ReadOnlyRecommended := False;
     CreateBackup := False;
     AccessMode := xlExclusive;
     ConflictResolution := xlLocalSessionChanges;
     AddToMru := False;
     TextCodepage := EmptyParam;
     TextVisualLayout := EmptyParam;
     Local := False;

     XLWbk.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup,
                  AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local);
    end; { with }
  XLWbk.Close;
  XLWbk.Disconnect;
  XLApp.Disconnect;
  XLApp.Quit;
 finally
   if Assigned(XLApp) then
     begin
      XLApp.DisplayAlerts[ 0 ] := True;
     end;
   FreeAndNil(XLWbk);
   FreeAndNil(XLApp);
 end;
end;