VBS脚本打开Excel和运行macros不工作

我知道这里有相当多的post ，我努力不要重复（堆栈溢出的第三条规则）。 我做了一些研究 ，希望事实并非如此。 这是我的问题：

我试图用这个脚本来打开一个文件并运行一个macros，理想情况下，我想从我的个人工作簿中打开它，但是很高兴能够从任何地方作为一个妥协运行：

Option Explicit On Error Resume Next RunExcelMacro Sub RunExcelMacro() Dim xlApp Dim xlBook If CheckAppOpen("excel.application") Then 'MsgBox "App Loaded" Set xlApp = GetObject(, "Excel.Application") Else ' MsgBox "App Not Loaded" Set xlApp = CreateObject(,"Excel.Application") End If xlApp.visible = True set xlBook = xlApp.Workbooks.Open ("C:\Users\....\PERSONAL.xlsb", 0, True) xlApp.Run "Module1.My Macro" xlApp.Quit() xlBook = Nothing xlApp = Nothing End Sub 

但是脚本不会打开任何excel文件，不pipe它是在服务器上还是在我的C盘上。

我也试过：

 Set xlApp = GetObject("Excel.Application") Set xlApp = CreateObject("Excel.Application") 

以及

 Dim Filename as string Filename = "C:/....." set xlBook = xlApp.Workbooks.Open (Filename) 

我试过打开.xls，.xlsm，.xlsb都无济于事

等等….

我没有收到任何错误消息。 cmd控制台打开，然后closures

Microsoft（R）Windows脚本宿主版本5.8版权所有（C）Microsoft Corporation。 版权所有。

提前致谢。

Answer 1

感谢@AlexK。 原来是个错误地方的逗号。

还要感谢这个post的改变：

  xlApp.Run "Module1.MyMacro" 

至：

  xlApp.Run xlBook.name & "!Module1.MyMacro"