定时事件Ontime如何每天同一时间发生？

north00

请教高手：

假如我的这个Excel的VBA文件一直在电脑上开着，如何用Ontime在每天的某个固定时间，如每天的10:00:00触发某个过程my_Procedure？
我的思路是在Workbook_Open过程中调用my_Timer，在下面有两种写法，到底哪一种正确？
在第二种写法中是不是my_Procedure事件仅仅执行一次就结束了还是会一直重复执行（其实对Ontime最后一个参数默认为True的时候不是很理解）

第一种：

1. <p>Sub my_Timer()
   
2.    </p><p>     call my_Procedure</p><p>     Application.OnTime VBA.TimeValue("10:00:00"), "my_Timer"
   
3.       
   
4. End Sub</p>

复制代码

第二种：

1. <p>Sub my_Timer()   </p><p>     </p><p>     Application.OnTime VBA.TimeValue("10:00:00"), "my_Procedure"
   
2.       
   
3. End Sub</p>

复制代码

山菊花

'ThisWorkbook 模块
Private Sub Workbook_Open()
    Dim nTime As Date
    nTime = Date + 5 / 12                    '启动程序的时间设定为当天10点整
    If Now > nTime Then nTime = nTime + 1    '如果当前时间大于10点，则把时间改为第二天10点
    Application.OnTime nTime, "my_Procedure" '定时开始
End Sub




'模块1
Sub my_Procedure()
    Dim nTime As Date

    '主程序
   
   
   
   
    nTime = Date + 1 + 5 / 12
    Application.OnTime nTime, "my_Procedure"
End Sub