VBScript来运行Excel宏

问题描述：

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文件内的宏的名称为test（）和文件位于C：\测试\测试.BAS - 现在，只要我尝试拖累.vbscript顶部的.xlsx文件，我得到读取

语法错误
800A03EA
微软VBScript编译错误

错误

该脚本中需要修改哪些内容才能解决该问题？

答

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")

改变这种语法给我上线7的错误 - 预期结束发言。 – BellHopByDayAmetuerCoderByNigh

'设置oVBC = oBook.VBProject.VBComponents oVBC.Import（“C：\ Test \ Test.bas”）'尝试将'oVBC.Import（“C：\ Test \ Test.bas”）'带到一行。 – dwirony

是的，明白了！它会根据需要生成文件，但我也会收到未知运行时错误？ – BellHopByDayAmetuerCoderByNigh

VBScript来运行Excel宏

相关推荐