delphi 根据EXCEL模板创建

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, 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}

procedure TForm1.Button1Click(Sender: TObject);
var
ExcelApp, MyWorkBook, sheet: OLEVariant;
f1,syspath: string;
i: integer;
begin
    syspath:=extractfilepath(application.exename);
    ExcelApp := createoleobject('excel.application');
    ExcelApp.visible := false;
   //ExcelApp.ScreenUpdating := false;
    f1 := syspath+'\模板.xls';
    ExcelApp.WorkBooks.add(f1);
    MyWorkBook := ExcelApp.workbooks[1];
    sheet := MyWorkBook.worksheets[1];
    for i := 0 to 7 do
    begin
   sheet.rows[8 + i].insert;
   sheet.cells[8 + i, 1] := 'A';
   sheet.cells[8 + i, 2] := 'B';
    end;
   //sheet.rows[7].delete;            //删除仅为提供格式样板的多余空行
   //sheet.rows[7 + i].delete;
   ExcelApp.visible := true;
   end;

end.