我有一个macros，打开一本新书，运行macros，保存并closures – 但保存提示是停止工作

我在一本书中有一个macros，它打开了我的单独的“容器书”，运行一个复制和粘贴types的macros，保存，然后closures这本书。

除了closures的时候，所有的东西都会起作用，即使macros写入了保存，本书也会提示popup“你想保存，是不是等等” 。

因此，它并不真正closures – 这真的很烦人，因为我想把它安排在每天都会发生，如果它不closures，那么它将无法完成。

显然这是不可能的，closures这个提示窗口，所以任何帮助将是伟大的。

请在下面find我的公式。

Sub AllFiles() Application.Run "'G:\Research\Analysts\Elliot Frost\Barge_Tracker_Master.xlsm'!HistoricalData" Workbooks("Barge_Tracker_Master.xlsm").Close savechanges:=True End Sub '============================================================= Sub Scheduler() '-- RUNS SUB(S) (OR FUNCTIONS) AT TIME SCHEDULED. Application.OnTime TimeValue("11:28:00"), "AllFiles" End Sub 

Answer 1

添加Application.DisplayAlerts = False ，像这样：

 Sub AllFiles() With Application .Run "'G:\Research\Analysts\Elliot Frost\Barge_Tracker_Master.xlsm'!HistoricalData" DoEvents .DisplayAlerts = False End With Workbooks("Barge_Tracker_Master.xlsm").Close savechanges:=True Application.DisplayAlerts = True Scheduler End Sub Sub Scheduler() '-- RUNS SUB(S) (OR FUNCTIONS) AT TIME SCHEDULED. Application.OnTime TimeValue("11:28:00"), "AllFiles" End Sub 

Answer 2

检查从这个职位的答案：

 Sub test() '[...] Application.DisplayAlerts = False ThisWorkbook.Save ThisWorkbook.Close False Application.DisplayAlerts = True End Sub