Sub otime()maL检测VBA
'10秒后自动运行WbSave过程maL检测VBA
Application.OnTime Now() + TimeValue("00:00:10"), "WbSave"maL检测VBA
End SubmaL检测VBA
Sub WbSave()maL检测VBA
ThisWorkbook.Save '保存本工作簿maL检测VBA
Call otime '再次运行otime过程maL检测VBA
End SubmaL检测VBA maL检测VBA
Private Sub Workbook_Open()maL检测VBA
Call otimemaL检测VBA
End SubmaL检测VBA |