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

Sub otime()bpo七二检测

    '10秒后自动运行WbSave过程bpo七二检测

    Application.OnTime Now() + TimeValue("00:00:10"), "WbSave"bpo七二检测

End Subbpo七二检测

Sub WbSave()bpo七二检测

    ThisWorkbook.Save '保存本工作簿bpo七二检测

    Call otime  '再次运行otime过程bpo七二检测

End Subbpo七二检测
 bpo七二检测

Private Sub Workbook_Open()bpo七二检测

Call otimebpo七二检测

End Subbpo七二检测