主题：定时器整点运行

在定时器中判断当前计算机时间是不是到了你那个几个时间节点不就行了？

Sub APPLICATION_VBAStart()
    Call Application.Settimer(0,1000)
End Sub

Sub APPLICATION_Timer(ID)
   if Hour(now) >= 9 And Hour(now) <= 15 And Minute(Now) > 1 And Second(Now) < 1 Then
      DifMin = Minute(Now) Mod 5
      
      IF DifMin = 0 Then
         '这里执行你的操作
      End If
   End if
End Sub

 

这里的Settimer(0,1000)目的是1秒执行一次检测，目的是保证正好能在刚过执行点时能检测到，如果你的模型只需要间隔5分钟而不需要那么精确卡在时间点，将这里改成60秒即可，另外去掉And Second(Now) < 1这句即可