运行VBA宏时出现Vbscript编译错误

Question

所以我的问题是无法让VBScript工作。我想使用这篇文章中编写的VBScript来自动执行这个宏，它应该执行下面的VBA代码。我收到的错误消息在第2行，错误是找不到文件。VBScript和test.xlsm文件位于同一文件夹中。如何访问test.xlsm文件而不出现错误？

到目前为止我的VBA代码：

Sub copySchedule()
Worksheets("Sheet2").Range("B2:F10").Copy Worksheets("Sheet1").Range("B2:F10")
ActiveWorkbook.Save
End Sub

到目前为止我的VBScript代码：

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("test.xlsm")
objExcel.Application.Run ""test.xlsm!copySchedule""
objExcel.Application.Quit
WScript.Quit

Answer 1

宏名称周围只需要一对引号(如果工作簿名称包含空格，则名称周围需要撇号，如果您愿意，也可以使用它们(，并且在打开工作簿时应包含完整的文件路径。例如：

Set objWorkbook = objExcel.Workbooks.Open("C:some foldertest.xlsm")
objExcel.Application.Run "'test.xlsm!copySchedule'"