请问如何在一个工作表里分别操作多个工作薄

Question

现在对1个工作表中的工作薄已经可以操作了，如何继续操作，
  try
CoInitialize(nil);
MsExcel := CreateOleObject('Excel.Application');
except
ShowMessage('无法启动Microsoft Excel，请确认是否安装了Office软件!');
Exit;
end;
    MsExcel.Visible := False;
    MsExcel.WorkBooks.Add();
    MsExcel.WorkSheets[1].Activate;
    MsExcel.WorkSheets[1].Name:='AAA';
    //导出列名
         ------
    //导出数据
    CdsTest.DisableControls;
    try
      CdsTest.First;
      row := 2;
      while not CdsTest.Eof do
      begin
        for col :=1 to CdsTest.FieldCount do
        begin
         --------
        end;
  MsExcel.WorkSheets[1].Rows[row].Font.Size := '11';        CdsTest.Next;
        Inc(row);
      end;
    finally
     CdsTest.First;
      CdsTest.EnableControls;
    end;   MsExcel.WorkBooks[1].SaveAs(sFileName);
   MsExcel.WorkBooks.Close; //关闭工作簿 ？？？？？？？？？
   MsExcel.WorkBooks.Add();
    MsExcel.WorkSheets[2].Activate;
    MsExcel.WorkSheets[2].Name:='BBB';
 
   
如何继续象工作薄AAA一样操作第二个工作薄BBB等并能一起保存。

Answer 1

WorkSheets[1]你这不都有下标吗，接着往后

Answer 2

MsExcel.WorkBooks.Add();
  MsExcel.WorkSheets[2].Activate;
  MsExcel.WorkSheets[2].Name:='BBB';
MsExcel.WorkBooks[2].SaveAs(sFileName);
  MsExcel.WorkBooks.Close; 这样保存，就报下标出错了

Answer 3

再ADD啊，
新建的workbook默认是3个worksheet

Answer 4

现在是能ADD，但不能保存工作薄名

Answer 5

===========================================================
你這樣保存不出錯才怪，你自己看看！
MsExcel.WorkBooks[2].SaveAs(sFileName);
這裡的WorkBooks[2]從哪裡來的？

Answer 6

请问MsExcel.WorkSheets[2] 应该如何保存

Answer 7

procedure TForm1.Button1Click(Sender: TObject);
var
    MsExcel, ExcelSheet : Variant;
begin  try
CoInitialize(nil);
MsExcel := CreateOleObject('Excel.Application');
except
ShowMessage('无法启动Microsoft Excel，请确认是否安装了Office软件!');
Exit;
end;
MsExcel.Visible := False;
    MsExcel.Caption := '';    MsExcel.WorkBooks.Add();
    MsExcel.WorkSheets[1].Activate;
    MsExcel.WorkSheets[1].Name:='AAA';;    MsExcel.WorkBooks[1].SaveAs('c:\1.xls');    MsExcel.WorkBooks.Close; //关闭工作簿
    //MsExcel.Quit;//退出 Excel
    {
MsExcel.WorkBooks.Add();
    MsExcel.WorkSheets[2].Activate;
    MsExcel.WorkSheets[2].Name:='进场-调拨';
    MsExcel.WorkSheets[2].SaveAs('c:\1.xls');
    MsExcel.WorkSheets.Close; //关闭工作簿       } MsExcel.Quit;//退出 Excel
end;
现在就是如何操作WorkSheets[2].

Answer 8

爲什麽不操作完所有的WorkSheets再保存WorkBooks，整個WorkBooks一起保存

Answer 9

MsExcel.WorkBooks.Close; //关闭工作簿为什么这么早就关闭了呢？？？

Answer 10

MsExcel.ActiveWorkbook.SaveAs('C:\1.xls');
这样就行了