從VBS文件運行宏出現錯誤

Question

我正在使用vbs代碼自動打開並運行Excel宏，但收到以下錯誤消息：

錯誤：無法運行宏“文件位置”。 該宏可能在此工作簿中不可用，或者可能禁用了所有宏。 代碼：800A03EC來源：Microsoft Excel

VBS代碼：

Dim ObjExcel, ObjWB
Set ObjExcel = CreateObject("Excel.Application")
ObjExcel.Visible = True


Set ObjWB = ObjExcel.Application.Run("C:\Automation\TestCasesBackupScript.xlsm!Backup3")


ObjWB.Close False
ObjExcel.Quit
Set ObjExcel = Nothing

啟用了宏，並且“ Backup3”是TestCasesBackupScript.xlsm文件模塊中的Sub名稱。

希望得到反饋。

謝謝。

Answer 1

您必須在Application對象的上下文中打開您在Application.Run中引用的工作簿。 只需先打開它，然后調用它：

Dim ObjExcel, ObjWB
Set ObjExcel = CreateObject("Excel.Application")
ObjExcel.Visible = True

Set ObjWB = ObjExcel.Workbooks.Open("C:\Automation\TestCasesBackupScript.xlsm")
ObjWB.Application.Run("Backup3")

ObjWB.Close False
ObjExcel.Quit
Set ObjExcel = Nothing

注意：如果Backup3實際上返回了Workbook對象（這是使用語法Set ObjWB = ObjExcel.Application.Run的唯一原因，則需要將該引用捕獲到其自己的變量中。