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

Sub otime()AVn检测VBA

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

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

End SubAVn检测VBA

Sub WbSave()AVn检测VBA

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

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

End SubAVn检测VBA
 AVn检测VBA

Private Sub Workbook_Open()AVn检测VBA

Call otimeAVn检测VBA

End SubAVn检测VBA