如何实现VBA宏按指定时间间隔循环调用（含延迟执行）

要实现前两个宏每60秒运行一次，第三个宏在每次前两个宏执行完成后延迟5秒运行的循环逻辑，需要拆分原有的调度逻辑，单独控制第三个宏的执行时机：

• 保留主过程负责执行前两个宏，并调度下一轮的主过程（维持60秒间隔）
• 在主过程中，单独调度第三个宏在当前时间+5秒后执行

修改后的代码如下：

Sub Button1_Click()
    ' 执行前两个宏
    Call moveFilesFromListPartial
    Call moveFilesFromListPartial_AA
    
    ' 调度下一轮前两个宏60秒后运行
    Application.OnTime Now + TimeValue("00:01:00"), "Button1_Click"
    
    ' 调度第三个宏5秒后运行
    Application.OnTime Now + TimeValue("00:00:05"), "moveAllFilesInDateFolderIfNotExist"
End Sub

' 确保第三个宏本身不需要额外调度，避免重复触发
Sub moveAllFilesInDateFolderIfNotExist()
    ' 这里是你原有的第三个宏的代码
    ' ...
End Sub

注意事项 #

• 若需停止循环，必须调用Application.OnTime的取消方法，避免宏在后台持续运行。可新增如下停止过程：

Sub StopMacroSchedule()
    On Error Resume Next ' 忽略未找到调度的错误
    Application.OnTime EarliestTime:=Now + TimeValue("00:01:00"), Procedure:="Button1_Click", Schedule:=False
    Application.OnTime EarliestTime:=Now + TimeValue("00:00:05"), Procedure:="moveAllFilesInDateFolderIfNotExist", Schedule:=False
    On Error GoTo 0
End Sub

• 确认moveAllFilesInDateFolderIfNotExist宏内部无额外的Application.OnTime调度，防止重复执行。

内容的提问来源于stack exchange，提问作者Salman Shafi