如何每隔一分钟保存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项目==>插入==>模块.然后在新创建的模块中粘贴代码.

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

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

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