Excel中定时执行任务或代码的几种方法

2017-08-09 13:54:00
zstmtony
翻译
895



一、使用Excel自带的OnTime函数


1)打开Excel 进入vbe编辑器 (可使用Alt+F11组合快捷键),插入一个新的模块(Module),并在模块中输入以下代码:


Public Sub TestSub()
   MsgBox ("Office中国定时执行任务") '显示一个提示对话框
End Sub


2)然后给它配上一个计时器,就能让它在指定的时间自动运行。
Application.OnTime Now + TimeValue("00:00:10"), "TestSub"

这句代码可以放在Wordbook的 打开Open事件中来触发

ontime是一个excel函数,所以必须指定application这个对象。now函数是指定当前时间,配合上+号这是运算符,与后面timevalue的值相加。逗号后是调用过程的名称,使用双引号引用起来。


运行效果:

   



二、用API函数来实现(可现毫秒级的计时器)

要借用个Windows 的API函数:SetTimer和KillTimer

前者用于设置定时器,后者用于删除定时器


Private Declare Function SetTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long, _
ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long


声明lTimerID用于存放定时器的ID
Public lngTimerID As Long

启动定时器,IDuration是定时器触发的时间,单位为毫秒
Sub StartTimer(lDuration As Long)
' 如果定时器不存在,则设置定时器,定时器触发的时间为IDuration,定时器触发后执行OnTime
If lngTimerID = 0 Then
 lngTimerID = SetTimer(0&, 0&, lDuration, AddressOf OnTime)
 ' 否则停止定时器,并设置一个新的定时器
Else
  Call StopTimer
  lngTimerID = SetTimer(0&, 0&, lDuration, AddressOf OnTime)
End If
End Sub



停止定时器的函数

Sub StopTimer()
   KillTimer 0&, lngTimerID 
End Sub



OnTime函数
Sub OnTime()
' 计时器触发后运行的代码放在这
Debug.Print "计时器定时执行了!"
End Sub



三、相关知识:


Application的OnTime函数



安排一个过程在将来的特定时间运行(既可以是具体指定的某个时间,也可以是指定的一段时间之后)。

语法

表达式.OnTime(EarliestTime, Procedure, LatestTime, Schedule)

表达式 一个代表 Application 对象的变量。

参数

名称

必需/可选

数据类型

说明

EarliestTime

必需

Variant

希望此过程运行的时间。

Procedure

必需

String

要运行的过程名。

LatestTime

可选

Variant

过程开始运行的最晚时间。例如,如果 LatestTime 参数设置为 EarliestTime + 30,且当到达EarliestTime 时间时,由于其他过程处于运行状态而导致 Microsoft Excel 不能处于“就绪”、“复制”、“剪切”或“查找”模式,则 Microsoft Excel 将等待 30 秒让第一个过程先完成。如果 Microsoft Excel 不能在 30 秒内回到“就绪”模式,则不运行此过程。如果省略该参数,Microsoft Excel 将一直等待到可以运行该过程为止。

Schedule

可选

Variant

如果为 True,则预定一个新的 OnTime 过程。如果为 False,则清除先前设置的过程。默认值为True

注解

使用 Now + TimeValue(time) 可安排经过一段时间(从现在开始计时)之后运行某个过程。使用 TimeValue(time) 可安排某个过程只运行指定的时间。

EarliestTime 值四舍五入到最接近的下一个值。

Schedule 设置为 false,以清除以前设置的具有相同 ProcedureEarliestTime 值的程序。

示例

本示例设置从现在开始 15 秒后运行 my_Procedure。

VBA
Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"

本示例设置 my_Procedure 在下午 5 点开始运行。

Application.OnTime TimeValue("17:00:00"), "my_Procedure"

本示例撤消前一个示例对 OnTime 的设置。

VBA
Application.OnTime EarliestTime:=TimeValue("17:00:00"), _ 
 Procedure:="my_Procedure", Schedule:=False


相关文章:


VBA系列讲座(7):如何在Excel里使用定时器

Access计时器Timer与VB计时器Timer的区别


    分享