vba-每天固定日期执行某个宏

Sub 启动定时任务()
    Application.OnTime TimeValue("17:16:00"), "定时递归运行"
End Sub

Sub 定时递归运行()
    ' 这是要运行的代码
    MsgBox "宏已运行！"
    
    ' 设置下一次运行的时间，例如，每隔一天运行一次
    Dim NextRunTime As Date
    NextRunTime = DateAdd("d", 1, Now)
    
    ' 递归调用，将宏再次安排在未来的时间运行
    Application.OnTime NextRunTime, "定时递归运行"
End Sub