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

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

Sub SaveThis() Application.DisplayAlerts = False ActiveWorkbook.Save Application.DisplayAlerts = True Application.OnTime Now + TimeValue("00:05:00"), "SaveThis" End Sub 

问：是否有可能在任何活动文件上运行？ 我试图使用个人macros工作簿，但我不知道如何让它自动运行在打开的文件。

提前致谢。

Answer 1

只需循环浏览工作簿集合：

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