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盘中。

这个fair的posts个research。我做了一些https://hemantnegi.github.io/jquery.sumoselect/。

我试过了：

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。结果是在错误的地方逗号。

还要感谢this post已更改：

 xlApp.Run "Module1.MyMacro"

到：

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

使用VBScript打开Excel并运行宏

1 个答案: