请教：关于excel向工作簿里添加工作表的方法(50分)

我用的是如下方法生成的excel表格
相信大家看了很熟悉
var
xlapp：variant；
sheet：variant；
columnrange：variant；
。。。。
xlapp：=createoleobject（‘excel。application’）；
xlapp。workboks。add(-4167);
xlapp.workbooks[1].worksheets[1].name:='abc';
.....
但是 这里面只有一个工作表
我想在delphi里实时的向这个工作簿添加其他的工作表
请问如何完成,
小弟不胜感激

没做过，不懂 ：（ 你可看看<<Delphi 4编程技术内幕>>

procedure TForm1.Button1Click(Sender: TObject);
var
MsExcel: Variant;
I : Integer;
begin
MsExcel := CreateOleObject( 'Excel.Application' );
MsExcel.Visible := True;
if MsExcel.WorkBooks.Count > 1 then
MsExcel.WorkBooks[MsExcel.WorkBooks.Count].Activate
else
MsExcel.WorkBooks.Add;
if MsExcel.ActiveWorkBook.Sheets.Count > 1 then //你要的在这两行，如果Sheets数大于1的话
MsExcel.ActiveWorkBook.Sheets[2].Activate;//Sheets[2]激活
end;
这个是我刚找的铁子 方法相同
我就是想知道 怎么能够向里面添加工作表
拜托各位阿！
分数不够，我可以+

ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));
兄弟, 我以前的手机号码是1382355185啊, 呵呵. 跟你这问题号也差不多.

呵呵
这样就可以吗?
我在网吧

给你点提示，多试试吧。可以看看Office的在线帮助。

全面控制 Excel
首先创建 Excel 对象，使用ComObj:
var ExcelID: Variant;
ExcelID := CreateOleObject( 'Excel.Application' );
1) 显示当前窗口：
ExcelID.Visible := True;
2) 更改 Excel 标题栏：
ExcelID.Caption := '应用程序调用 Microsoft Excel';
3) 添加新工作簿：
ExcelID.WorkBooks.Add;
4) 打开已存在的工作簿：
ExcelID.WorkBooks.Open( 'C:/Excel/Demo.xls' );
5) 设置第2个工作表为活动工作表：
ExcelID.WorkSheets[2].Activate;
或
ExcelID.WorksSheets[ 'Sheet2' ].Activate;

晕阿 worksheets．ａｄｄ就可以乐