初次使用ole操作excel请各位大大多指教!
代码如下:
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
eap: TExcelApplication;
ewb: TExcelWorkbook;
ews: TExcelWorksheet;
public
{ Public declarations }
end;procedure TForm1.FormCreate(Sender: TObject);
begin
eap := TExcelApplication.Create(self);
ewb := TExcelWorkbook.Create(self);
ews := TExcelWorksheet.Create(self);
eap.AutoQuit := true;
eap.Connect;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
ewb.ConnectTo(eap.Workbooks.Add(EmptyParam,1) as _Workbook);//创建工作簿
ewb.Activate;
// ewb.AcceptAllChanges;//添加该行代码程序出错!
ews.ConnectTo(
ewb.Sheets.Item[2] as _Worksheet);//联接到第二个表!
ews.Delete;//调用这行会导致excel谈出一个确认对话框,如何能不用用户操作,自动完成呢!
end;
代码如下:
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
eap: TExcelApplication;
ewb: TExcelWorkbook;
ews: TExcelWorksheet;
public
{ Public declarations }
end;procedure TForm1.FormCreate(Sender: TObject);
begin
eap := TExcelApplication.Create(self);
ewb := TExcelWorkbook.Create(self);
ews := TExcelWorksheet.Create(self);
eap.AutoQuit := true;
eap.Connect;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
ewb.ConnectTo(eap.Workbooks.Add(EmptyParam,1) as _Workbook);//创建工作簿
ewb.Activate;
// ewb.AcceptAllChanges;//添加该行代码程序出错!
ews.ConnectTo(
ewb.Sheets.Item[2] as _Worksheet);//联接到第二个表!
ews.Delete;//调用这行会导致excel谈出一个确认对话框,如何能不用用户操作,自动完成呢!
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货