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.