VBScript來運行Excel宏

我試圖運行此腳本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編譯錯誤

錯誤

該腳本中需要修改哪些內容才能解決該問題？

來源

2017-06-14 BellHopByDayAmetuerCoderByNigh

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

來源

2017-06-14 18:57:36 dwirony

改變這種語法給我上線7的錯誤 - 預期結束髮言。 – BellHopByDayAmetuerCoderByNigh

'設置oVBC = oBook.VBProject.VBComponents oVBC.Import（「C：\ Test \ Test.bas」）'嘗試將'oVBC.Import（「C：\ Test \ Test.bas」）'帶到一行。 – dwirony

是的，明白了！它會根據需要生成文件，但我也會收到未知運行時錯誤？ – BellHopByDayAmetuerCoderByNigh

VBScript來運行Excel宏

回答

相關問題