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

Sub otime()euw检测VBA

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

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

End Subeuw检测VBA

Sub WbSave()euw检测VBA

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

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

End Subeuw检测VBA
 euw检测VBA

Private Sub Workbook_Open()euw检测VBA

Call otimeeuw检测VBA

End Subeuw检测VBA