VB 运行时错误“1004”：无法获取 Addins 类的 Add 属性

Question

我继承了一个 Excel 文件，该文件为我公司的分析师从网络文件夹安装了一个插件。该文件几乎适用于所有使用它的人。最近，两位分析师收到错误“运行时错误‘1004’：无法获取 Addins 类的 Add 属性”

代码：

Sub InstallAddIn()
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    Dim AI As Excel.AddIn
    Set AI = Application.AddIns.Add(Filename:="\\apps\www\net\wwwroot\b-ratings\research\tools\addin\RMTools.xlam")
    AI.Installed = True 
End Sub

如果需要任何其他详细信息，请告诉我

Answer 1

我也遇到这个问题了。前一分钟代码可以工作，后一分钟就不行了。

当没有打开工作簿（Workbooks.Count = 0）时，会发生此错误。 您需要添加一个虚拟工作簿才能添加加载项。

我最终在另一篇post中找到了这个问题的解决方案（带有代码示例）。 我在这里留下我的回复，因为我首先发现了这篇文章。