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;
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;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货