如何通过VBA逐个更新Excel 2010数据连接？兼容多版本

问题根源 #

Excel 2010里连续调用ActiveWorkbook.Connections().Refresh时，哪怕手动关闭了后台刷新，也可能因为连接的异步刷新残留状态，导致后续任务卡在“待处理”状态。核心是要让每个连接的刷新任务同步完成后，再执行下一个。

通用兼容VBA代码 #

Sub RefreshSpecificConnections()
    Dim conn As WorkbookConnection
    Dim connNames As Variant
    Dim originalBackground As Boolean
    
    ' 把需要刷新的连接名称列在这里
    connNames = Array("OCs", "Stock", "Demands")
    
    On Error GoTo ErrorHandler
    
    For Each connName In connNames
        Set conn = ActiveWorkbook.Connections(connName)
        
        ' 先保存连接原本的后台刷新设置
        originalBackground = conn.OLEDBConnection.BackgroundQuery
        
        ' 强制关闭后台刷新，确保刷新任务同步执行
        conn.OLEDBConnection.BackgroundQuery = False
        
        ' 执行刷新并等待完成
        conn.Refresh
        
        ' 恢复连接原来的后台刷新设置（如果不需要恢复，直接删掉这行）
        conn.OLEDBConnection.BackgroundQuery = originalBackground
    Next connName
    
    Exit Sub
    
ErrorHandler:
    MsgBox "刷新连接 '" & connName & "' 时出错: " & Err.Description, vbExclamation
End Sub

代码细节说明 #

• 批量维护连接：用connNames数组统一管理需要刷新的连接，后续增删改直接改数组就行。
• 同步刷新保障：临时关闭后台刷新，避免Excel在后台堆叠刷新任务，确保每个连接刷新完成后再处理下一个。
• 错误防护：单个连接刷新失败时会弹出提示，不会导致整个刷新流程中断。
• 跨版本兼容：WorkbookConnection对象在Excel 2010和365中都支持，不用额外做版本判断。

可选：优先用表格刷新（仅365支持） #

如果你的ListObject表格在两个版本中都存在，也可以加个版本适配逻辑，优先用365的表格刷新方法，不行再 fallback到连接刷新：

Sub RefreshTablesOrConnections()
    Dim tbl As ListObject
    Dim connNames As Variant
    Dim conn As WorkbookConnection
    
    connNames = Array("OCs", "Stock", "Demands")
    
    On Error Resume Next
    For Each connName In connNames
        ' 先尝试用ListObject刷新（Excel 365及以上）
        Set tbl = SpreadsheetOrigem.ListObjects(connName)
        If Err.Number = 0 Then
            tbl.Refresh
        Else
            Err.Clear
            ' 失败就用连接刷新（兼容Excel 2010）
            Set conn = ActiveWorkbook.Connections(connName)
            If Not conn Is Nothing Then
                conn.OLEDBConnection.BackgroundQuery = False
                conn.Refresh
                conn.OLEDBConnection.BackgroundQuery = True ' 恢复原设置
            End If
        End If
    Next connName
    On Error GoTo 0
End Sub

内容的提问来源于stack exchange，提问作者Diego Pulita