vba - 使用 VBA 安装 Excel COM 加载项

Question

是否可以使用 VBA 安装 COM 插件？我发现另一个帖子链接到使用 VBA 安装非 COM 加载项的解决方案，但这不适用于 COM 加载项。这并不重要，但我特别希望为 Excel 2013 的 Inquire COM 加载项的安装编写脚本。

这是我所知道的不起作用：

这是我找到的用于安装非 COM 加载项的代码：

AddIns("NativeShim.InquireConnector.1").Installed = True

该代码失败，因为我正在尝试使用 COM 加载项，并且该集合中不存在指定的加载项。

这是我尝试使用 COM 加载项的代码

Dim addin As COMAddIn
Set addin = COMAddIns.Item("NativeShim.InquireConnector.1")
addin.Installed = True

该代码正确获取对加载项的引用，但无法将 Installed 设置为 True，因为 COMAddIn 对象没有 Installed 属性。

Answer 1

基于 Excel 2010，您需要：

1. 以管理员权限运行 Excel

2. 连接到您的加载项，而不是.Installed property这样设置：

   Application.COMAddIns("NativeShim.InquireConnector.1").Connect = True
   

3. 设置.Connect property为 false 显然会com add-in关闭。