Excel. Вставка строки с разделителями

 //отвязываем Excel
  ExcelApp.Workbooks.Close;
  ExcelApp.Quit;
  ExcelApp := Unassigned;

  //Обнуление переменных интерфейсов, объявленных на глобальном уровне.
  //Порядок обнуления не имеет значения.
  exApp := Unassigned;
  exBook := Unassigned;
  exSh := Unassigned;
  exRng := Unassigned;

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;
 
const
  //Толщина линий.
  xlThin = 2; //Тонкая линия.
  xlMedium = -4138; //Средняя толщина линии.
  //Вид линии.
  xlContinuous = 1; //Непрерывная линия.
var
  exApp, exBook, exSh, exRng : OleVariant;
 
//Пример использования функции SgToExcel().
procedure TForm1.Button1Click(Sender: TObject);
var
  Od : TOpenDialog;
begin
  //Диалог выбора файла.
  Od := OpenDialog1; //OpenDialog1 уже должен быть на форме.
  if Od.InitialDir = '' then
    Od.InitialDir := ExtractFilePath(ParamStr(0));
  if not Od.Execute then
    Exit;
  if not FileExists(Od.FileName) then
  begin
    MessageBox(Handle, 'Файл с заданным именем не найден. Действие отменено.',
      'Файл не найден', MB_OK + MB_ICONEXCLAMATION + MB_APPLMODAL);
    Exit;
  end;
 
  //Попытка запустить экземпляр MS Excel и получить ссылку на интерфейс его корневого объекта.
  try
    exApp := CreateOleObject('Excel.Application');
  except
    MessageBox(Handle, 'Не удалось запустить MS Excel. Действие отменено.',
      'Ошибка', MB_OK + MB_ICONERROR + MB_APPLMODAL);
    Exit;
  end;
  //Делаем видимым окно MS Excel.
  exApp.Visible := True;
  //Открываем файл рабочей книги и получаем ссылку на её интерфейс.
  exBook := exApp.WorkBooks.Open(FileName:=Od.FileName);
  //Получаем ссылку на интерфейс первого листа рабочей книги.
  exSh := exBook.Worksheets[1];
  //Записываем данные из StringGrid на лист MS Excel, начиная с ячейки "D3" (="R3C4").
  //Функция возвращает ссылку на интерфейс диапазона, в который записались данные таблицы.
  exRng := SgToExcel(StringGrid1, exSh, 3, 4);
  
  //Оформляем таблицу - устанавливаем обрамление для ячеек таблицы.
  exRng.Borders.LineStyle := xlContinuous;
  exRng.Borders.Weight := xlMedium;
  //Выравниваем ширину столбцов по содержимому.
  exRng.Columns.AutoFit;
  
  //Обнуление переменных интерфейсов, объявленных на глобальном уровне.
  //Порядок обнулений не имеет значения.
  exApp := Unassigned;
  exBook := Unassigned;
  exSh := Unassigned;
  exRng := Unassigned;
end;

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.StdCtrls, ComObj;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
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, exRng,exBook, exSh: OleVariant;
  strgrd: TStringGrid;
  x,y: integer;
begin
  //Попытка запустить экземпляр MS Excel и получить ссылку на интерфейс его корневого объекта.
  try
    exApp := CreateOleObject('Excel.Application');
  except
    MessageBox(Handle, 'Не удалось запустить MS Excel. Действие отменено.',
      'Ошибка', MB_OK + MB_ICONERROR + MB_APPLMODAL);
    Exit;
  end;
  if strgrd= nil then
    strgrd:= TStringGrid.Create(Form1);
  strgrd.ColCount:= 4;
  strgrd.RowCount:= 4;
  for y := 0 to strgrd.RowCount-1 do
    for x := 0 to strgrd.ColCount-1 do
      strgrd.Cells[x,y]:= 'test' + IntToStr(x);
  //Делаем невидимым окно MS Excel.
 
  exApp.Visible := False;
  exApp.DisplayAlerts:= False;
 
  //Открываем файл рабочей книги и получаем ссылку на её интерфейс.
  exBook:= exApp.WorkBooks.Add;
  //Получаем ссылку на интерфейс первого листа рабочей книги.
  exSh := exBook.Worksheets[1];
  //Записываем данные из StringGrid на лист MS Excel, начиная с ячейки "D3" (="R3C4").
  //Функция возвращает ссылку на интерфейс диапазона, в который записались данные таблицы.
  exRng := SgToExcel(strgrd, exSh, 1, 1);
 
  //Оформляем таблицу - устанавливаем обрамление для ячеек таблицы.
  exRng.Borders.LineStyle := xlContinuous;
  exRng.Borders.Weight := xlMedium;
  //Выравниваем ширину столбцов по содержимому.
  exRng.Columns.AutoFit;
 
  if not (exBook.SaveAs('test.xlsx')) then
    ShowMessage('Не удалось сохранить!');
 
  exBook.Close;
  exApp.Quit;
end;
 
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
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;
  Fn : String;
begin
  //Попытка запустить экземпляр MS Excel и получить ссылку на интерфейс его корневого объекта.
  try
    exApp := CreateOleObject('Excel.Application');
  except
    MessageBox(Handle, 'Не удалось запустить MS Excel. Действие отменено.',
      'Ошибка', MB_OK + MB_ICONERROR + MB_APPLMODAL);
    Exit;
  end;
  //Делаем видимым окно MS Excel.
  //exApp.Visible := True;
  //Создаём рабочую книгу и получаем ссылку на её интерфейс.
  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;
 
  //Сохраняем книгу и закрываем MS Excel.
  Fn := ExtractFilePath(ParamStr(0)) + 'files\';
  ForceDirectories(Fn);
  Fn := Fn + 'Книга1.xls';
  exApp.DisplayAlerts := False;
  try
    exBook.SaveAs(FileName:=Fn);
  except
    exApp.DisplayAlerts := True;
    exApp.Visible := True;
  end;
  exApp.Quit;
end;
 
//После создания формы. Заполнение данными экземпляра TStringGrid.
procedure TForm1.FormCreate(Sender: TObject);
var
  i, j, k : Integer;
  Sg : TStringGrid;
begin
  Sg := StringGrid1;
  k := 0;
  for i := 0 to Sg.RowCount - 1 do
    for j := 0 to Sg.ColCount - 1 do
    begin
      Sg.Cells[j, i] := FormatFloat('0000', 1000 + k);
      Inc(k);
    end;
end;
 
end.