Question

DELPHI OLE操作EXCEL 问题

用OLE 操作EXC

EL 的时候 EXCEL 里面只有3个工作表 SHEET1 SHEET2 SHEET3 如何添加第四个SHEET4

Answer 1

试编写代码如下：

procedure TForm1.Button2Click(Sender: TObject);
var oExcel: Variant;
begin
  oExcel := CreateOleObject('Excel.Application');
  oExcel.Visible := True;
  oExcel.WorkBooks.Open('D:\Projects\test\test.xls');
  oExcel.WorkSheets.add;
end;