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

Question

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

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

Answer 1

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

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

然后将此代码放入standard module。要插入标准模块，请右键单击VBA项目==＆gt;插入==＆gt;模块。然后将代码粘贴到新创建的模块中。

Sub Save1()
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True

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

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