如何使用 VBA 将 .XLAM 加载项添加到 Microsoft Excel 2013答案

【问题标题】：How to add a .XLAM add-in to Microsoft Excel 2013 using VBA如何使用 VBA 将 .XLAM 加载项添加到 Microsoft Excel 2013
【发布时间】：2014-05-06 16:41:46
【问题描述】：

我编写了一个 vbscript 来安装 Excel 2013 的插件。

Dim oXL
Dim oAddin
Set oXL = CreateObject("Excel.Application")
oXL.Workbooks.Add
Set oAddin = oXL.AddIns.Add("C:\Apps\FMP.xlam", True)
oAddin.Installed = True
oXL.Quit

这适用于 Excel 2007，但无法在 Excel 2013 上安装插件。

在 Excel 2013 的 VBA 参考的帮助下，我修改了脚本如下：

Dim oXL
Set oXL = CreateObject("Excel.Application")
oXL.Workbooks.Add
oXL.Add("C:\Apps\FMP.xlam").Installed = True
oXL.Quit

不幸的是，这也不起作用。我错过了什么？

请帮忙。

【问题讨论】：

你能描述什么“不起作用”吗？您收到错误消息吗？如果是这样，请说明那是什么意思。您是否检查过明显的罪魁祸首，例如您的安全/信任中心设置？这实际上是 vbscript 还是只是 Excel 中的 VBA？谢谢。
我已经使用vbscript来实现VBA。不显示错误。插件未安装，即在启动 excel 时插件不可见。安全和信任中心设置很好。该插件确实与具有类似设置的 excel 2007 一起安装。
您是否在装有 Office 2007 和 2010 的机器上测试此脚本？如果是这样，它很可能推出了 2007 版本。加oXL.Visible = True查看。您可能需要运行 2010 exe 文件，然后运行 GetObject。

标签： vba excel vbscript excel-2013 excel-addins

【解决方案1】：

Dim oXL
Set oXL = CreateObject("Excel.Application")
oXL.Workbooks.Add
oXL.AddIns.Add("C:\Temp\Fred_2010.xlam").Installed = True
oXL.Quit

试试这个。它对我有用。

【讨论】：