添加sheet失败

hk_ella

Set oEngine = CreateObject("Excel.Application")
..workbook省略..
sheetCount = oEngine.Sheets.Count
oEngine.Sheets.Add  , sheetCount  '想在sheet后面再添加一个sheet
运行到这儿时出错，提示“类 Sheets 的 Add 方法无效”
当然如果只使用 oEngine.Sheets.Add是可以添加成功的，但是它添加为第一页了
根据系统的语法提示是 add( [in, optional]before, [in, optional]After, [in, optional]Count, [in, optional]Type)
不知道我这个脚本哪里出错了，另外这个add用法具体是怎么用的，和各参数意义是什么

谢谢！

bagwell333

expression.Add(Before, After, Count, Type)

expression Required. An expression that returns one of the above objects.

Before  Optional Variant. An object that specifies the sheet before which the new sheet is added.

After  Optional Variant. An object that specifies the sheet after which the new sheet is added.

Count  Optional Variant. The number of sheets to be added. The default value is one.

Type  Optional Variant. Specifies the sheet type. Can be one of the following XlSheetType constants: xlWorksheet, xlChart, xlExcel4MacroSheet, or xlExcel4IntlMacroSheet. If you are inserting a sheet based on an existing template, specify the path to the template. The default value is xlWorksheet.

bagwell333

This example inserts a new worksheet before the last worksheet in the active workbook.

ActiveWorkbook.Sheets.Add Before:=Worksheets(Worksheets.Count)