急急急？在线等待！如何动态在WorkBooks中增加WorkSheets？

Question

我上次因为有事所以人不在了。我把问题再说说清楚啊。我在WorkBooks.Add后，WorkBooks本身会自带3个WorkSheets，但我要增加第四个甚至是第5，6....个时，程序该怎么写啊？谢谢！

Answer 1

excelobj := createoleobject('excel.sheet');
    excel := excelobj.application;
    excel.visible := visible;
    workbook := excel.workbooks.add;
    sheet := workbook.sheets[1];

Answer 2

不行啊
我试过了，还有更好的吗？sheets[1]，sheets[2]，sheets[3]是可以的，但我要sheets[4]呢？就会报错了。

Answer 3

excelapplication1.SheetsInNewWorkbook[1]:=12;
指定一个WORKBOOKS中有多少SHEET.SERVER组件。

Answer 4

v:= CreateOleObject('Excel.Application');
v.sheetsinnewworkbook:=12;
指定一个WORKBOOKS中有多少SHEET