Delphi-Help

procedure ListToExcel(ListView: TListView);

var

  row, i: integer;

  Range, Sheet: VAriant;

begin

  try

    Excel := CreateOleObject('Excel.Application');

  except

    raise Exception.Create('Невозможно поключиться к серверу Excel');

  end;

  Screen.Cursor := crHourGlass;

  Excel.SheetsInNewWorkBook := 1;

  Excel.WorkBooks.Add;

  Sheet := Excel.Workbooks[1].Sheets[1];

  Range := Sheet.Columns;

  Range.Columns[1].ColumnWidth := 30;

  Range.Columns[n].ColumnWidth := 30;

  Range.Columns[n + 1].ColumnWidth := 30;

  Range.Columns.Font.Size := 8;

  Range := Sheet.Range['a1:f1'];

  Range.Font.Size := 15;

  Range.Font.Bold := True;

  Range.Columns.Interior.ColorIndex := 6;

  Range.HorizontalAlignment := 3;

  Sheet.Cells[1, 2] := 'Данные на' + DateToStr(Date); //Заголовок

  Range := Sheet.Range['a2:f2'];

  Range.Font.Size := 10;

  Range.Font.Bold := True;

  Sheet.Cells[2, 1] := 'АА'; //Названия столбцов

  Sheet.Cells[2, n] := 'ББ';

  Sheet.Cells[2, n + 1] := 'вв';

  Row := 3;

  for i := 0 to List.Items.Count - 1 do

  begin

    Sheet.Cells[Row, 1] := ListView.Items.Item[i].Caption;

    Sheet.Cells[Row, 2] := ListView.Items.Item[i].SubItems[n];

    Sheet.Cells[Row, 3] := ListView.Items.Item[i].SubItems[n + 1];

    inc(Row);

  end;

  Screen.Cursor := crDefault;

  if SaveDialog.Execute then

    Excel.WorkBooks[1].SaveAs(exs.FileName); //Сохраняем

  Excel.Visible := True; //Показываем Excel

end;