VBA系列-032.Excel文件按你指定的时间自动保存

032.Excel文件按你指定的时间自动保存

第一步

Sub otime()
    '10秒后自动运行WbSave过程
    Application.OnTime Now() + TimeValue("00:00:10"), "WbSave"
End Sub
Sub WbSave()
    ThisWorkbook.Save '保存本工作簿
    Call otime  '再次运行otime过程
End Sub

第二步

Private Sub Workbook_Open()
Call otime
End Sub