在Excel外部运行VBScript

Question

所以我试着编写一个简单的脚本来打开excel，打开一个工作簿，过滤掉某些行，保存并关闭excel。

这是我得到的。

Option Explicit

On Error Resume Next

ExcelMacroExample

Sub ExcelMacroExample() 

  Dim xlApp 
  Dim xlBook 

  Set xlApp = CreateObject("Excel.Application") 
  Set xlBook = xlApp.Workbooks.Open("C:\bookings.xlsx") 
  xlBook.Sheets("Bookings").Range("A5").CurrentRegion.AutoFilter Field:=16, Criteria1:="<>Confirmed"
  xlBook.Sheets("Bookings").Range("A5").CurrentRegion.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
  xlBook.Sheets("Bookings").AutoFilterMode = False
  xlBook.Save
  xlBook.Close
  xlApp.Quit 

  Set xlBook = Nothing 
  Set xlApp = Nothing 

End Sub 

错误排在第14行＃72;＆＃34; =＆＃34;

我在excel中运行它作为一个宏，它运行得很好，但是当我尝试在excel之外运行它作为.vbs就是我有错误。

感谢任何帮助。