使用 VBS 运行 Excel 宏答案

【问题标题】：Run Excel Macro using VBS使用 VBS 运行 Excel 宏
【发布时间】：2020-05-10 11:17:41
【问题描述】：

尝试通过 VBS 使用命令提示符运行 excel 宏。 Excel 文件打开但无法运行宏。宏和模块的名称是“钱包”

在尝试查看宏时，它反映为“PERSONAL.XLSB!WALLET”

请帮忙

Sub ExcelMacroExample()

Dim xlApp
Dim xlBook

Set xlApp = CreateObject("excel.application")
Set xlBook = xlApp.Workbooks.Open("C:\Output\abc.xlsb")
xlApp.Visible = True
xlApp.Run "Wallet"
xlApp.Save
xlApp.ActiveWorkbook.Close
xlApp.Quit

Set xlBook = Nothing
Set xlApp = Nothing

End Sub

【问题讨论】：

尝试将行xlApp.Run "Wallet"更改为xlApp.Run "PERSONAL.XLSB!WALLET"，然后运行代码。
@shrivallabha.redij nope!....它不工作
我刚刚意识到我的personal.xlsb 在我试图运行宏的excel 中不可用。有什么办法可以让这个可用....？

标签： excel vba

【解决方案1】：

这样修改你的代码

Sub ExcelMacroExample()

    Dim xlApp
    Dim xlBook

    Set xlApp = CreateObject("excel.application")
    Set xlBook = xlApp.Workbooks.Open("C:\Output\abc.xlsb")
    xlApp.Visible = True
    xlApp.Workbooks.Open ("Path to your Personal.XLSB")
    xlApp.Run "Personal.XLSB!Macro"

    'xlApp.Save                   <= This line would not work, xlApp does not have a Save Method
    'xlApp.ActiveWorkbook.Close   <= You already have the reference to the workbook. It is xlBook
    xlBook.Close True           ' <= This will save and close the workbook you opened
    xlApp.Quit

    Set xlBook = Nothing
    Set xlApp = Nothing

End Sub

如果您不知道您的Personal.xlsb 在哪里，请尝试使用标准位置。

xlApp.Workbooks.Open (xlApp.StartupPath & xlApp.PathSeparator & "Personal.XLSB")

【讨论】：