为何VBA代码在OneDrive文件可用，SharePoint文件却失效？

你的VBA代码在OneDrive本地文件中正常运行，但在SharePoint跨站点数据源场景下出现并行刷新、错误分支未触发的问题，可能由以下几个原因导致：

1. 连接的异步刷新默认行为差异 #

SharePoint托管的Excel文件中，Power Query连接默认可能开启异步刷新（BackgroundQuery），此时调用Connections.Refresh会立即返回，不会等待刷新完成。代码会直接跳过错误判断逻辑，继续执行下一个查询的刷新，最终导致多个查询并行执行。而OneDrive本地文件的连接通常默认同步刷新，所以代码能按顺序执行。

解决时需要在刷新前显式强制同步：

With ThisWorkbook.Connections(query).OLEDBConnection
    .BackgroundQuery = False ' 强制同步刷新
    .Refresh
End With

如果是Power Query的Workbook Connection，也可以通过修改连接属性关闭异步。

2. 错误捕获机制无法捕获SharePoint特定错误 #

跨SharePoint站点的查询可能涉及身份验证、跨域权限、网络超时等系统层面的问题，这类错误可能不会触发VBA的Err.Number，导致On Error Resume Next后，Err.Number始终为0，代码既不进入错误分支，也不会因为成功刷新而Exit For（因为刷新实际还在后台运行）。

比如跨站点访问时的身份验证弹窗、SharePoint的请求拦截，这些都不是VBA代码能捕获的运行时错误，自然不会触发你的错误判断逻辑。

3. 连接名称在SharePoint副本中被修改 #

当Excel文件保存到SharePoint时，部分连接的内部名称可能被自动修改（比如添加站点前缀、特殊字符编码），导致ThisWorkbook.Connections(query)无法找到对应的连接。但因为On Error Resume Next的存在，代码不会抛出错误，而是直接跳过刷新逻辑，继续执行下一个查询，看起来像是并行刷新，且错误分支未触发。

可以在调试时添加代码遍历所有连接名称，确认是否匹配：

Dim conn As WorkbookConnection
For Each conn In ThisWorkbook.Connections
    Debug.Print conn.Name
Next conn

4. Power Query全局并行加载设置覆盖 #

Excel的Power Query全局设置中，如果开启了允许并行加载查询，这个设置会优先于VBA的顺序调用逻辑，强制多个查询同时刷新。你可以通过以下路径检查：

文件 > 选项 > 数据 > 查询和连接 > 取消勾选“允许并行加载查询”

附你的原始代码：

Sub RefreshData()
 RetryRefresh ("Query - Billable")
 RetryRefresh ("Query - NonBillable")
 RetryRefresh ("Query - INVOICE A")
 RetryRefresh ("Query - INVOICE B")
 RetryRefresh ("Query - INVOICE C")
 RetryRefresh ("Query - INVOICE D")
 RetryRefresh ("Query - INVOICE E")
 RetryRefresh ("Query - LOG")
End Sub

Sub RetryRefresh(query As String)
 Dim retryCount As Integer
 For retryCount = 1 To 5 ' try refreshing 5 times
    On Error Resume Next
    ThisWorkbook.Connections(query).Refresh
    If Err.Number <> 0 Then
        Debug.Print "Refresh attempt " & retryCount & " failed"
        Err.Clear
    Else
        Exit For
    End If
    ' Add a small delay between retries, required to work
    Application.Wait (Now + TimeValue("00:00:10"))
 Next retryCount
 If retryCount > 5 Then
    MsgBox "Refresh of " & query & "failed after multiple attempts."
 End If
End Sub

内容的提问来源于stack exchange，提问作者Katie Brown