高分求救~~delphi 操作excel

Question

已經通過XLApp := CreateOleObject('Excel.Application')動態創建excel，但是我導出的excel有4個工作表，怎麼在動態創建的裱中插入一個新工作薄，謝過了~

Answer 1

var 
    ExcelApp:   Variant; 
begin 
    ExcelApp   :=   CreateOleObject(   'Excel.Application '   ); 
    ExcelApp.Visible   :=   True; 
    ExcelApp.WorkBooks.Add;   //添加新工作簿 
    ExcelApp.Sheets.Add;   第4个Sheets 
    ExcelApp.Sheets.Add;   第5个Sheets 
    ExcelApp.Sheets.Add;   第6个Sheets 
    ......... 
    //需要多少个就添加总数减3个   ExcelApp.Sheets.Add; 
end;

Answer 2

新增工作表：
XLApp.WorkSheets.Add;
新增工作薄
WorkBooks XLApp.WorkBooks.Add;

Answer 3

while  ExcelId.Worksheets.count<3 do
  begin
     ExcelId.worksheets.add(null,excelid.worksheets[ExcelId.Worksheets.count]);
  end;

Answer 4

下面代码生成四页：MainFrm.ExcelApplication1.Caption:='导出数据';     MainFrm.ExcelApplication1.Workbooks.Add(null,0);  // 加一个book 
MainFrm.ExcelWorkbook1.ConnectTo(MainFrm.ExcelApplication1.Workbooks[1]);//连接book1
MainFrm.ExcelWorksheet1.ConnectTo(MainFrm.ExcelWorkbook1.Worksheets[4] as _Worksheet);
MainFrm.ExcelWorksheet1.Name:='第4页;      
MainFrm.ExcelWorksheet1.ConnectTo(MainFrm.ExcelWorkbook1.Worksheets[3] as _Worksheet);
MainFrm.ExcelWorksheet1.Name:='第3页;      
MainFrm.ExcelWorksheet1.ConnectTo(MainFrm.ExcelWorkbook1.Worksheets[2] as _Worksheet);
MainFrm.ExcelWorksheet1.Name:='第2页;      
MainFrm.ExcelWorksheet1.ConnectTo(MainFrm.ExcelWorkbook1.Worksheets[1] as _Worksheet);
MainFrm.ExcelWorksheet1.Name:='第1页;