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