Пример процедуры экспорта из StringGrid в Excel

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Grids, ComObj;

type

  TForm1 = class(TForm)

    StringGrid1: TStringGrid;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

  dir_:string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

Excel, WorkBook, Sheet:variant;

i, j: integer;

begin

GetDir(0, dir_);  //определяем текущий каталог

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

Excel.DisplayAlerts:=False;

Excel.Visible:= True;

Workbook:=Excel.

Workbooks.Add;

Workbook.SaveAs(dir_ + '\temp.xls');  //cохраняем файл temp.xls

Sheet:= Workbook.ActiveSheet;

  for i:= 1 to StringGrid1.RowCount - 1 do

  begin

    for j:= 1 to StringGrid1.ColCount - 1 do

      Sheet.Cells[i, j]:= StringGrid1.Cells[j, i];

  end;

Workbook.Save;

Workbook.Close;

Excel.Quit;

Excel:= UnAssigned;

end;

end.