Question

我在一本书中有一个宏打开了我的单独的“船书”，运行了一个复制粘贴类型的宏，保存，然后关闭了这本书。

除了关闭之外，一切都有效，本书会提示弹出“你想保存，是否等等”，即使宏已写入保存？

因此它实际上并没有关闭 - 这真的很烦人，因为我想安排它每天发生，如果它没有关闭那么它将无法完成。

显然无法关闭此提示窗口，因此任何帮助都会很棒。

请在下面找到我的公式。

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

检查this post的答案：

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

Answer 2

添加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

我有一个宏打开一本新书，运行宏，保存和关闭 - 但保存提示阻止它工作

2 个答案: