procedure TForm1.Button1Click(Sender: TObject);
var
  sheet: _Worksheet;
begin
  ExcelApplication1.Connect;
  ExcelApplication1.Visible[0] := true;
  ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));
  sheet := ExcelWorkbook1.WorkSheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,0) as _Worksheet;
  ExcelWorksheet1.ConnectTo(sheet);
end;第一次点击该按钮时,正常生成Excel表,工作薄为Book1,但再次点击时就出现看不到工作薄的情况了,标题显示为Book2。有何办法能实现每次点击按钮均能正常显示Book1工作薄??
像以下代码一样:procedure TForm1.Button1Click(Sender: TObject);
var
  ExcelApp: Variant;
  Wrksheet: olevariant;
begin
  ExcelApp := CreateOleObject('Excel.Application');
  ExcelApp.WorkBooks.Add;
  ExcelApp.Visible := true;
end;