Excel 宏 - 测试是否已安装 Power Query for Excel Addin

Question

是否可以测试“Power Query for Excel”加载项是否已安装并启用使用 Excel 宏？ 我想用它来授权我的工作簿的数据刷新，该工作簿使用此加载项连接到多个数据源。

感谢和问候。

Answer 1

您可以使用类似的东西，因为它是一个 COM 加载项:

Function IsPowerQueryAvailable() As Boolean
    Dim bAvailable As Boolean
    On Error Resume Next
    bAvailable = Application.COMAddIns("Microsoft.Mashup.Client.Excel").Connect
    On Error GoTo 0
    IsPowerQueryAvailable = bAvailable
End Function

如果您确实想尝试启用它(如果它存在)，您可以使用如下内容:

Function IsPowerQueryConnected() As Boolean
    Dim bAvailable      As Boolean
    Dim oPQ             As COMAddIn
    On Error Resume Next
    Set oPQ = Application.COMAddIns("Microsoft.Mashup.Client.Excel")
    If Not oPQ Is Nothing Then
        If Not oPQ.Connect Then oPQ.Connect = True
        bAvailable = oPQ.Connect
    End If
    IsPowerQueryConnected = bAvailable
End Function