Excelmacros – testing是否安装Excel查询Excel插件

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

感谢致敬。

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