excel表格中每隔一段时间自动保存文件，防止内容丢失

1.在“开发工具”下面的“编辑器“中创建一个模块2,输入下面两段代码。此处设置每隔两分钟自动保存一次，可以自己设置时间间隔

Sub stime()
  Application.OnTime Now() + TimeValue("00:02:00"), "wbSave"
End Sub

Sub wbSave()
  ThisWorkbook.Save
  Call stime
End Sub

2.双击thiswrokbook，其中输入下面代码,调用上面模块2的代码

Private Sub workbook_open()
Call stime
End Sub

3.保存后，在重新打开excel表格，即可以生效
4.参考图片