如何避免点击Excel「全部刷新」时弹出[DataSource.Error] ODBC错误

核心原因 #

功能区的「全部刷新」是Excel内置命令，它的错误处理优先级高于VBA的On Error和DisplayAlerts设置，所以你在AfterRefresh里加的错误处理会滞后于系统弹窗，根本挡不住。而自定义按钮宏是完全由VBA控制刷新流程，所以不会触发系统弹窗。

具体解决方法 #

1. 替换内置「全部刷新」逻辑（最优方案） #

直接用自定义功能区按钮绑定宏来替代内置按钮，全程用VBA掌控刷新和错误处理：

Sub CustomRefreshAll()
    Application.DisplayAlerts = False
    On Error Resume Next ' 拦截刷新过程中的系统错误触发
    ThisWorkbook.RefreshAll
    On Error GoTo 0
    Application.DisplayAlerts = True
End Sub

然后把这个宏绑定到自定义功能区按钮上，代替原来的「全部刷新」。

2. 错误处理的正确位置：前置拦截+事后校验 #

• 不能只依赖AfterRefresh：AfterRefresh是刷新完成后才触发，而系统弹窗是在刷新过程中弹出的，必须在刷新前就用On Error拦截错误触发路径。
• 类模块的AfterRefresh用来做事后的具体错误判断和自定义提示：

' 类模块（命名为QueryEvents）代码
Private WithEvents qry As WorkbookQuery

Private Sub Class_Initialize()
    Set qry = ThisWorkbook.Queries("你的目标查询名称")
End Sub

Private Sub qry_AfterRefresh(ByVal Success As Boolean)
    If Not Success Then
        ' 判断错误是否为目标表不存在
        If InStr(qry.Error, "目标表不存在") > 0 Then
            MsgBox "查询「" & qry.Name & "」执行失败：目标表不存在", vbExclamation, "提示"
        End If
    End If
End Sub

3. 保留内置按钮的极端方案（不推荐） #

如果一定要用内置「全部刷新」按钮，只能通过修改Windows注册表禁用Excel的错误对话框（会影响全局Excel操作），或者用Windows API钩子拦截弹窗，这种方法复杂度高且不稳定，不建议普通用户使用。

总结 #

• 内置「全部刷新」的错误弹窗无法通过常规VBA语句屏蔽，最优解是用自定义宏绑定功能区按钮替代内置刷新。
• 错误处理要分两步：刷新前用On Error拦截全局错误，刷新后用AfterRefresh判断具体错误原因并弹出自定义提示，不能只把逻辑放在AfterRefresh里。

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