VB脚本继续给我“宏可能无法在此工作簿中使用或所有宏可能被禁用”

Question

我一直在尝试创建一个只打开Excel并运行特定宏的简单VBS。我发誓几个月前，当我写这篇文章时，它起作用了。我已经在论坛上搜索了类似的错误，没有任何建议似乎对我有用。

有什么想法吗？

Option Explicit
Dim xlApp, xlBook

Set xlApp = CreateObject("Excel.Application")

xlApp.DisplayAlerts=false
Set xlBook = xlApp.Workbooks.Open("C:\Users\lnguy\Desktop\New Chemical Receipt Form.xlsm", 0, True)

xlApp.Run "'C:\Users\lnguy\Desktop\New Chemical Receipt Form.xlsm'!Expired2"

xlBook.Close

xlApp.Quit

Set xlBook = Nothing
Set xlApp = Nothing

WScript.Echo "Finished."
WScript.Quit

Answer 1

第二次提到时，您有不同的路径（=缺失），因此无法找到宏。

我建议通过在路径中使用变量来防止这种情况发生：

FTO Development\

Answer 2

将宏从Worksheet1移动到自己的模块中，并确保它是Public Sub，以便可以引用它。