初次使用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;