【文件属性】：
文件名称：excel定时定时执行
文件大小：10KB
文件格式：RAR
更新时间：2015-12-05 02:11:18
定时执行
是EXCEL的定时执行
Sub OntimeRun()
'运行前用k先判断是否运行
If k = False Then
Exit Sub
Else
'执行程序aa
Call aa
'如果k=true，那么每隔3秒执行程序OntimeRun
Application.OnTime Now() + TimeValue("00:00:03"), "OntimeRun"
End If
'释放控制权，让excel可以干其他事情
VBA.DoEvents
End Sub
【文件预览】：
定时执行-修正.xls