excel - 使用 VBScript 打开 Excel 并运行宏

Question

这个问题已经有答案了:

奥 git _a (8 个回答)

已关闭 3 年前。

我正在尝试使用此 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 驱动器中。

对此已有很多 Run Excel Macro from Outside Excel Using VBScript From Command Line 的讨论。我做了一些 fair 。

我尝试过:

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
Copyright (C) Microsoft Corporation. All rights reserved.

Answer 1

感谢@AlexK。结果发现逗号放错地方了。

同时感谢this post更改:

 xlApp.Run "Module1.MyMacro"

至:

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