怎样在Excel中添加一个工作簿？？谢谢

Question

具体忘了怎么做。不过你可以在Excel录一段宏，查看宏的源代码就知道了。

Answer 1

我要把个数据倒到EXCEL里，所以要建立Excel，请问怎样建立工作簿？？

Answer 2

在窗体上放一个excelapplication控件
excelapplication1.connect;
excelapplication1.visible[0]:=True;
excelapplication1.Workbooks.Add(emptyparam,0);

Answer 3

function TMainForm.GetExcelObject(const ClassName: String): IDispatch;
var
ClassID:TGUID;
Unknown:IUnknown;
begin
   ClassID:=ProgIdToClassID(ClassName);
   if succeeded(GetActiveObject(ClassId,nil,Unknown)) then
      OleCheck(Unknown.QueryInterface(IDispatch,Result))
      else
      Result:=CreateOleObject('Excel.Application');
end;---------------
var
  sheet:variant;
  excelapp:variant;
begin
     excelapp:=MainForm.GetExcelObject('Excel.Application');
     excelapp.visible:=true;
     excelapp.workbooks.add;
     sheet:=excelapp.ActiveWorkBook.ActiveSheet;
     sheet.cells[1,2].font.color:=clblue;
     sheet.cells[1,2].font.size:=16;
......
-----------------
需要“import Type Library”

Answer 4

这样就可以增加一个WorkBook:
vExcelApp.Workbooks.Add;
增加Sheet要这样：
第二个参数的目的是想把新的Sheet加在已有的Sheet的最后，
此参数如设为Null，新增的Sheet会在第一个。
vExcelApp.Workbooks[1].Sheets.Add(Null, vExcelApp.Workbooks[1].Sheets[vExcelApp.Workbooks[1].Sheets.Count], Null, Null);