如何保存Excel文件每一分钟？

问题：如何每分钟保存Excel文件？ 有一些macros可以做到吗？

任何帮助将不胜感激 – 我是VBA的新手。

Answer 1

请将此代码放在ThisWorkbook module 。 您可以通过双击VBA项目中的ThisWorkbook模块来访问该模块。

 Private Sub Workbook_Open() Application.OnTime Now + TimeValue("00:01:00"), "Save1" End Sub 

然后把这个代码放在standard module 。 要插入标准模块，请右键单击VBA项目==>插入==>模块。 然后将代码粘贴到新创build的模块中。

 Sub Save1() Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True Application.OnTime Now + TimeValue("00:01:00"), "Save1" End Sub 

现在当你打开工作簿时，它会自动保存每一分钟。 您需要重新打开工作簿才能触发Workboook_Open事件。