运行macros后保存并closures工作簿而不提示？

我想通过VBScript保存并closures在其中执行macros（模块：modBex，Sub：Test）的Excel文件。

下面的代码工作正常，除了Excel文件（ macro_file.xlsm ）没有得到保存。

这是我的代码：

 Option Explicit Dim xlApp, xlBook Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open("C:\macro_file.xlsm", 0, True) xlApp.Run "modBex.Test" xlApp.DisplayAlerts = False xlBook.Save xlApp.Quit Set xlApp = Nothing Set xlAddin = Nothing Set xlBook = Nothing WScript.Quit 

Answer 1

改变线

 Set xlBook = xlApp.Workbooks.Open("C:\macro_file.xlsm", 0, True) 

至

 Set xlBook = xlApp.Workbooks.Open("C:\macro_file.xlsm", 0, False) 

因为我相信该标志将文件设置为只读，导致保存文档时出错。

除此之外，如果你留下任何和所有的警报抑制（即.DisplayAlerts = False ），直到你知道你有工作代码，那么这使得事情更容易被发现。