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

Sub otime()ikG检测VBA

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

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

End SubikG检测VBA

Sub WbSave()ikG检测VBA

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

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

End SubikG检测VBA
 ikG检测VBA

Private Sub Workbook_Open()ikG检测VBA

Call otimeikG检测VBA

End SubikG检测VBA