Excel刷新数据连接前如何验证连接有效性避免代码报错中断

IsConnected属性本身就不具备实际连通性校验能力，它仅反映连接是否被配置为保持会话状态，你之前尝试的错误捕获思路方向是对的，只需要补全两层校验逻辑，就能实现无报错继续执行的需求。

完整逻辑分为三个环节：首先从现有连接配置中提取目标数据源地址，避免硬编码路径；其次校验目标地址对应的文件是否真实存在，兼容SharePoint Web路径、本地同步盘UNC路径两种格式；最后在刷新操作时做小范围错误捕获，覆盖权限不足、文件损坏这类前置校验识别不到的异常，全程不会触发系统报错终止代码。

可直接复用的代码 #

Sub RefreshSharePointConnection()
    Dim targetConn As OLEDBConnection
    Dim sourcePath As String
    Dim connValid As Boolean
    
    ' 如需按连接名称指定，可修改为ActiveWorkbook.Connections("你的自定义连接名称").OLEDBConnection
    Set targetConn = ActiveWorkbook.Connections(1).OLEDBConnection
    connValid = True
    
    ' 从连接字符串中提取数据源路径
    On Error Resume Next
    sourcePath = Split(Split(targetConn.Connection, "Data Source=")(1), ";")(0)
    If Err.Number <> 0 Or Len(Trim(sourcePath)) = 0 Then
        connValid = False
        Err.Clear
    End If
    On Error GoTo 0
    
    ' 校验目标文件是否存在
    If connValid Then
        Application.DisplayAlerts = False
        On Error Resume Next
        ' 对SharePoint Web路径，Dir会通过WebDAV协议自动校验可访问性
        If Len(Dir(sourcePath)) = 0 Then
            connValid = False
        End If
        On Error GoTo 0
        Application.DisplayAlerts = True
    End If
    
    ' 执行刷新或提示
    If connValid Then
        On Error Resume Next
        targetConn.Refresh
        If Err.Number <> 0 Then
            connValid = False
            Err.Clear
        End If
        On Error GoTo 0
    End If
    
    If Not connValid Then
        MsgBox "Could not refresh connection", vbInformation
    End If
    
    ' 所有分支执行完后，直接在此处续写后续计算逻辑即可，代码不会中断
    Call RunYourCalculationFlow
End Sub

Sub RunYourCalculationFlow()
    ' 把你原本要执行的计算、数据处理代码放在这里
End Sub

实现说明 #

• 所有错误捕获仅包裹单条/少量可能出错的语句，执行完立刻恢复默认错误处理逻辑，不要用全局跳转式的错误处理，避免掩盖其他代码问题
• 数据源路径直接从连接配置中提取，后续如果调整连接的目标地址、文件名，代码不需要同步修改
• 临时关闭DisplayAlerts是为了屏蔽Excel自带的路径错误弹窗，所有异常都会被代码内部捕获
• 认证逻辑会自动继承当前Office客户端登录的SharePoint账号权限，不需要额外编写鉴权代码

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