Application.OnTime未按顺序执行后续Sub，VBA代码执行异常求助

核心问题 #

你的代码逻辑存在异步冲突：VBA是单线程执行，Application.OnTime属于异步触发任务，RefreshData执行完后会立刻回到RunMacroForDropdown的循环继续下一次迭代，完全不等ProcessData执行。这就导致：

• Range("B1")被循环快速覆盖，ProcessData拿到的不是预期的股票代码
• 多次调用OnTime会堆积定时任务，相互干扰，甚至根本无法正常触发ProcessData

修改后的代码 #

首先在模块顶部声明模块级变量，用来记录遍历进度：

' 模块级变量，记录当前处理的行号
Private currentRow As Long
' 定义遍历的范围边界
Private Const START_ROW As Long = 6
Private Const END_ROW As Long = 42

然后重写主触发函数和相关子过程：

Sub StartBatchProcessing()
    ' 初始化起始行
    currentRow = START_ROW
    ' 启动第一个股票代码的处理
    ProcessNextStock
End Sub

Sub ProcessNextStock()
    Dim wsSelector As Worksheet
    Set wsSelector = ThisWorkbook.Worksheets("Selector")
    
    ' 判断是否遍历完所有股票
    If currentRow > END_ROW Then
        MsgBox "所有股票数据处理完成！"
        Exit Sub
    End If
    
    ' 设置当前股票代码到B1
    ThisWorkbook.Range("B1").Value = wsSelector.Cells(currentRow, "B").Value
    
    ' 触发Bloomberg数据刷新
    Application.Run "RefreshEntireWorkbook"
    Application.Run "RefreshAllStaticData"
    
    ' 延迟执行后续处理，根据实际刷新速度调整等待时间
    Application.OnTime Now + TimeValue("00:00:05"), "PostRefreshProcessing"
End Sub

Sub PostRefreshProcessing()
    MsgBox "Processing Data for " & ThisWorkbook.Range("B1").Value
    
    ' 等待数据处理完成（根据实际情况调整等待时间）
    Application.Wait Now + TimeValue("00:00:03")
    ThisWorkbook.RefreshAll
    
    ' 保存当前股票的工作簿副本
    SaveWorkbook
    
    ' 推进到下一行，启动下一个股票的处理
    currentRow = currentRow + 1
    ProcessNextStock
End Sub

Sub SaveWorkbook()
    Dim FileName As String
    Dim Path As String
    Application.DisplayAlerts = False
    Path = "\\Client\C$\CitrixExchange\"
    ' 确保路径末尾有斜杠，避免文件名拼接错误
    If Right(Path, 1) <> "\" Then Path = Path & "\"
    FileName = ThisWorkbook.Range("B1").Value & ".xlsm"
    ThisWorkbook.SaveCopyAs Path & FileName
    Application.DisplayAlerts = True
End Sub

关键改动说明 #

• 用**模块级变量currentRow**跟踪遍历进度，替代原来的For Each循环，实现分步异步处理
• StartBatchProcessing作为启动入口，初始化遍历起始位置
• ProcessNextStock负责设置当前股票代码、触发刷新，然后用OnTime延迟执行后续操作
• PostRefreshProcessing执行数据处理、保存后，自动推进到下一个股票，形成链式触发，确保一个股票处理完再开始下一个
• 修正了SaveWorkbook中的路径拼接问题，避免因路径末尾无斜杠导致的错误

额外注意事项 #

• 根据Bloomberg数据实际刷新速度调整OnTime和Application.Wait的等待时间，避免等待过短导致数据未刷新完成
• 如果需要中途终止任务，可以记录OnTime的触发时间戳，调用Application.OnTime的取消方法，或者直接关闭Excel（注意提前保存数据）

内容的提问来源于stack exchange，提问作者Imanol Landa