定时保存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

分享到: