Excel宏 - 測試是否已安裝電源查詢Excel插件

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 

Answer 2

如果插件被安裝，你可以檢查：

AddIns("AddInName").Installed 

即：

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