每X分钟自动保存所有Excel文件

Question

我知道有一种方法可以通过在文件的模块或工作表中定义一个文件，每隔x分钟保存一个文件。这是我发现的代码：

Sub SaveThis()
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True

Application.OnTime Now + TimeValue("00:05:00"), "SaveThis"
End Sub

问题：是否可以在任何活动文件上运行？我试图使用个人宏工作簿，但我无法弄清楚如何让它自动运行在打开的文件上。

提前致谢。

Answer 1

只需遍历workbooks集合：

Application.DisplayAlerts = False
For w = 1 to Workbooks.Count
     Workbooks(w).Save
Next w
Application.DisplayAlerts = True