【VBA案例】Excel文件按你指定的时间自动保存

Sub otime()FWS检测VBA

    '10秒后自动运行WbSave过程FWS检测VBA

    Application.OnTime Now() + TimeValue("00:00:10"), "WbSave"FWS检测VBA

End SubFWS检测VBA

Sub WbSave()FWS检测VBA

    ThisWorkbook.Save '保存本工作簿FWS检测VBA

    Call otime  '再次运行otime过程FWS检测VBA

End SubFWS检测VBA
 FWS检测VBA

Private Sub Workbook_Open()FWS检测VBA

Call otimeFWS检测VBA

End SubFWS检测VBA