分享代码
使用VBA实现定时保存工作簿代码,保证数据不丢失
Private Sub Workbook_Open()
Call Otime
End Sub
'--------------------- 模块代码 ---------------------
Sub Otime()
'5分钟后自动运行WbSave过程
Application.OnTime Now() + TimeValue("00:05:00"), "WbSave"
End Sub
Sub WbSave()
ThisWorkbook.Save '保存代码所在的工作簿
Call Otime '再次运行Otime过程,设置再次运行程序的时间
End Sub