主题：[求助]如何实现每天15:00收盘时执行一个动作？

这个就行

Sub APPLICATION_Timer(ID)
    dim h_time
    dim m_time
    dim s_time
    h_time = Hour(Now)
    m_time = Minute(Now)
    s_time = Second(Now)
    If h_time = 14 and m_time = 57 and s_time = 00 then
        CreateObject("SAPI.SpVoice").Speak "马上收盘了！！！快准备平仓！！！ "
    End if
 End Sub