运行Excelmacros的VBScript

我正试图运行这个脚本

if WScript.Arguments.Count < 1 Then WScript.Echo "Drop file on to me to process." Wscript.QuitEnd If Set oExcel = CreateObject("Excel.Application") Set oBook = oExcel.Workbooks.Open(Wscript.Arguments.Item(0)) Set oVBC = oBook.VBProject.VBComponents oVBC.Import("C:\Test\Test.bas") oBook.Application.Run "Test" WScript.Echo "Done" 

Test.bas文件内的macros的名称是Test（），文件位于C：\ Test \ Test.bas – 现在我试图拖动.vbscript顶部的.xlsx文件。错误，读取

语法错误
800A03EA
Microsoft VBScript编译错误

在这个脚本中需要修改什么来解决这个问题？

Answer 1

Wscript.QuitEnd If需要修复

Wscript.Quit End If

Set oVBC = oBook.VBProject.VBComponents oVBC.Import("C:\Test\Test.bas")为

Set oVBC = oBook.VBProject.VBComponents oVBC.Import("C:\Test\Test.bas")