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

Question

是否有一些宏可以做到这一点？

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

Answer 1

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

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

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

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

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

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