excel定时定时执行
是EXCEL的定时执行
SubOntimeRun()
'运行前用k先判断是否运行
Ifk=FalseThen
ExitSub
Else
'执行程序aa
Callaa
'如果k=true,那么每隔3秒执行程序OntimeRun
Application.OnTimeNow()+TimeValue("00:00:03"),"OntimeRun"
EndIf
'释放控制权,让excel可以干其他事情
VBA.DoEvents
EndSub
用户评论