定时保存Excel(VBA实现法）

很多朋友在处理Excel数据的时候，总是没有养成习惯点击系统自带的保存按钮，有时候电脑出现死机或停电等现象，往往丢失数据而后悔莫及！今天给大家一个定时保存的方法。 打开表格，按住ALT+F11，打开VB编辑器，在 ThisWorkbook中输入以下代码： Private Sub Workbook_Open() MsgBox "欢迎你，在这张表格里，每5分钟出现一次保存的提示！", vbInformation, "请注意！"      Call runtimer End Sub 新建以下2个模块（代码如下：） A模块：   Sub runtimer()      Application.OnTime Now + TimeValue("00:05:00"), "saveit" End Sub B模块： Sub SaveIt()      msg = MsgBox("朋友，你已经工作很久了，现在就存盘吗？" & Chr(13) _      & "选择是：立刻存盘" & Chr(13) _      & "选择否：暂不存盘" & Chr(13) _      & "选择取消：不再出现这个提示", vbYesNoCancel + 64, "休息一会吧！")          If msg = vbYes Then ActiveWorkbook.Save Else If msg = vbCancel Then Exit Sub      Call runtimer       End Sub