使用VBScript打開Excel並運行宏

Question

我正在嘗試使用此VBScript打開文件並運行宏。 理想情況下，我會從我的個人工作簿中打開它，但很高興從任何地方開始作為妥協。

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文件，無論它是在服務器上還是在我的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控制台打開然后關閉

Microsoft（R）Windows Script Host Version 5.8
版權所有（C）Microsoft Corporation。 版權所有。

Answer 1

感謝@AlexK。 結果是在錯誤的地方逗號。

還要感謝這篇帖子改變了：

 xlApp.Run "Module1.MyMacro"

至：

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