每隔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