如何每隔一分钟说一次保存一个Excel文件? [英] How to save an Excel file every, say one minute?

问题描述

有一些宏可以做到吗?

任何帮助将不胜感激-我是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.

这篇关于如何每隔一分钟说一次保存一个Excel文件?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！