验证凭据对查询有效

编程问答 2022-06-05

问题描述

我有一个电子表格，可以通过几个查询从其他地方提取一些数据。为了使用户更轻松地刷新查询，我添加了一个小宏，他们可以使用电子表格中的按钮来激活它，看起来像这样：

Option Explicit
Option Private Module

Sub update_tables()
    Dim uf As ufWait
    
    ThisWorkbook.RefreshAll
    Set uf = New ufWait
    uf.Show (vbModeless)
    uf.Repaint
    Application.CalculateUntilAsyncQueriesDone
    Unload uf
    Call merge_tables
End Sub

这很好，只要用户具有有效的凭据即可连接到查询源。如果不这样做，则用户窗体将显示，并且直到用户中止该宏，都不会发生任何事情。如果他们随后进入查询编辑器，则会在顶部看到一条黄线，上面写着“无效的凭据-您要编辑它们吗？”之类的内容。我认为如果他们在运行宏之前进入编辑器，也会出现相同的消息。

这是我删除凭据时的样子，我认为他们的外观会稍有不同，因为当他们的凭据更改/无效时会出现。

enter image description here

我的问题是中止宏并检查其凭据是否有效都超出了我可以从用户那里获得的专业知识水平。另一方面，如果在他们的凭据未更新时我可以给他们一条错误消息，那么我可以给他们提供解决该问题所需的必要说明。

是否有任何方法可以使用VBA检测查询是否缺少访问数据源的适当凭据？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

excelexcelexcel-365powerqueryvba