VBA连接刷新错误中获取PowerQuery错误消息

chane2015

vba 代码ActiveWorkbook.RefreshAll后，如果powerquery查询显示错误，如何用msgbox显示正常或错误。

Peny2020

用VBA刷新后，如query有问题还是会弹出对话框的啊，为什么还要msgbox提醒

chane2015

Peny2020 发表于 2025-2-7 09:16
用VBA刷新后，如query有问题还是会弹出对话框的啊，为什么还要msgbox提醒

右侧查询&连接的对话框是默认关闭的，这个文件是给业务人员用的，他们只需要按那个按钮控件

Peny2020

Peny2020

Sub test()
   On Error Resume Next
    ActiveWorkbook.RefreshAl
    Application.CalculateUntilAsyncQueriesDone
    If Err.Number <> 0 Then
        MsgBox "Power Query error : " & Err.Description, vbCritical
        Err.Clear
    End If
    On Error GoTo 0
End Sub

chane2015

Peny2020 发表于 2025-2-7 11:31
Sub test()
   On Error Resume Next
    ActiveWorkbook.RefreshAl

感谢，但是测试了一下，好像vba识别不到query的错误，err.number为0

Peny2020

chane2015 发表于 2025-2-7 13:33
感谢，但是测试了一下，好像vba识别不到query的错误，err.number为0

?我试过可以的啊，首先你确定query里有错误？

chane2015

Peny2020 发表于 2025-2-7 15:24
?我试过可以的啊，首先你确定query里有错误？

数据类型Error了，它没有弹出错误