Excel VBA 计划自动运行问题？以下程序无法运行下去，求帮忙！！

Question

Private Sub Workbook_Open()
WaitHours = 0
WaitMinutes = 0
WaitSeconds = 5
NextTime = Time + TimeSerial(WaitHours, WaitMinutes, WaitSeconds)
Application.OnTime EarliestTime:=NextTime, Procedure:="my_Procedure"
End Sub
Public Sub my_Procedure()
MsgBox "I am OK"
End Sub

Answer 1

time改成now