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
用户评论