Excel2007 每间隔指定时长自动保存文件

Sub Auto_Open()
   run_timer
End Sub



Sub run_timer()
     nexttime = Now + TimeValue("00:00:15")
     Application.OnTime nexttime, "my_Procedure"
End Sub

Private Sub my_Procedure()
    ThisWorkbook.Save
    'MsgBox ("保存")
    Call run_timer
End Sub

以上代码放在Excel 2007 文件（启用宏）的 模块1 下面
实现每间隔15秒自动保存一下文件（指数据簿）