菜鸟请教：vb操作excel的问题

Question

Option Explicit
   
 dim beginrow
 DIM EXCEL,workBook,dirSheet
 set EXCEL = CREATEOBJECT("Excel.Application")
 excel.visible=true
 set workBook=EXCEL.workbooks.add(-4167)'新建工作簿
 
workBook.sheets(1).name ="表结构"
 'set dirSheet = workBook.sheets("表结构")
 
workBook.Sheets.Add After:=Worksheets(Worksheets.count)
 'worksheets("表1").Move after:=worksheets("表结构")
 
以上代码，我是想将新建的工作表放到最后，但运行代码始终报错，
 还望高手指点啊，多谢！！ 

Answer 1

 Dim beginrow
 Dim EXCEL, workBook, dirSheet
 Set EXCEL = CreateObject("Excel.Application")
 EXCEL.Visible = True
 Set workBook = EXCEL.Workbooks.Add(-4167) '新建工作簿 workBook.Sheets(1).Name = "表结构"
 'set dirSheet = workBook.sheets("表结构") workBook.Sheets.Add After:=workBook.Sheets(workBook.Sheets.Count)
 'worksheets("表1").Move after:=worksheets("表结构")

Answer 2

我是把这段代码保存成 vbs文件后，直接双击运行的，然后就报这个错误

Answer 3

vbs 中应该是不支持命名参数的语法的。
workBook.Sheets.Add After:=Worksheets(Worksheets.count)
'要更改为
workBook.Sheets.Add , Worksheets(Worksheets.count)

Answer 4

楼上所说正确  但代码可能要改改workBook.Sheets.Add After:=Worksheets(Worksheets.count)
'改为
Workbook.Sheets.Add Null, Workbook.Sheets(Workbook.Sheets.Count), Null, Null
'或者
workBook.Sheets.Add , Workbook.Sheets(Workbook.Sheets.count)