Question

是否可以测试是否＆＃34; Power Query for Excel＆＃34;安装加载项并使用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

Answer 2

您可以通过以下方式检查是否安装了插件：

AddIns("AddInName").Installed

即：

Sub Foo()
If AddIns("AddIn name").Installed Then
  'installed
Else
  'not installed
End If
End Sub

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

2 个答案: