如何每隔一分钟说一次保存一个Excel文件?

本文介绍了如何每隔一分钟说一次保存一个Excel文件?的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述

有一些宏可以做到吗?

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

Any help would be appreciated - I am novice with VBA.

推荐答案

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

Please put this code in ThisWorkbook module. you can access this module by pressing double click on ThisWorkbook module inside VBA project.

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

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

then put this code in standard module. To insert standard module, right click on VBA project==>Insert==>Module. then paste code in newly created module.

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

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

Now when you open your workbook, it will automatically save every minute. You need to reopen Workbook in order to trigger Workboook_Open event.