Excel VBA：如何在弹出/警报消息中显示连接的查询负载状态？答案

【问题标题】：Excel VBA: How to show connected query Load status in a pop-up/ alert message?Excel VBA：如何在弹出/警报消息中显示连接的查询负载状态？
【发布时间】：2021-11-23 05:10:49
【问题描述】：

我的 Excel 电子表格有问题。我有一个链接到电子表格的查询。我希望用户可以在单击刷新按钮后刷新查询并运行宏代码。很简单的需求！问题是有时某些用户无权访问源数据，因此查询无法正确更新。但是当他们单击刷新按钮时，它不会向他们显示任何错误消息并继续运行宏代码而不更新查询。有什么好的流程可以向他们展示查询没有下载数据的状态吗？ ** 这是我在这个网站上的第一篇文章，如果我没有正确遵循问题格式，我深表歉意。谢谢你们。这个网站总是对我很有帮助。

【问题讨论】：

标签： excel vba refresh spreadsheet powerquery

【解决方案1】：

对于错误控制，你可以使用这个：

Public Function example()
On Error GoTo Err_Control

' you code

Err_Control:
    If Err.Number <> 0 Then
        If Err.Number = 1004 Then
            MsgBox "You do not have permission to access the data source." & Chr(13) & "Macro will be finished."
            Exit Function
        Else
            MsgBox Err.Number & " - " & Err.Description
        End If
    End If
End Function

在 Err_Control 中放置错误处理程序。

【讨论】：