把两个工作表（Excel）保存成同一个文件？


var
  ExcelApp, Range: Variant;
begin
      ExcelApp := CreateOleObject('Excel.Application'); //  Excel
      ExcelApp.Caption := sTitle;
      ExcelApp.WorkBooks.Add;
      Application.ProcessMessages;
      ExcelApp.WorkSheets[1].Activate; // 在Sheet[1]里面添加内容，      Range := ExcelApp.Range[ExcelApp.Cells[1,1],ExcelApp.Cells[1,3]];
      Range.select;
      Range.Merge;
      Range.HorizontalAlignment := CST_H_Left;
      //添加内容..........................      //ExcelApp.ActiveWorkBook.SaveAs(FileName);  //此处不保存，在后面仍然添加内容，
      //ExcelApp.WorkBooks.Close;      ExcelApp.WorkBooks.Add;
      Application.ProcessMessages;
      ExcelApp.WorkSheets[2].Activate; // 往Sheet[2]里添加内容，
      //添加内容..........................      ExcelApp.ActiveWorkBook.SaveAs(FileName);  //此处保存，但是却提示保存两次，保存成了两个文件了，
                                                 // 如何才能把两个工作表保存在同一个文件中？？？
      ExcelApp.WorkBooks.Close;end如上代码所示，
问题如下：
1）、如何把两/多个工作表（即Excel中的Sheet1，Sheet2....）保存在同一个文件中？
2）、如何给每个Sheet命名，即Excel中左下角的Sheet1/Sheet2...改名？