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