Question

我正在尝试为我的加载项工作簿实现一个引导安装程序，这样我就可以轻松为新用户安装该加载项并发出更新。它可以在我的机器上正常工作，但是当其他人对其进行测试时，当我尝试调用Set AI = Application.AddIns.Add(fileName:=fullPath, copyfile:=True)时遇到运行时错误。具体来说，错误是“ 1004：无法获取AddIns类的Add属性”。我以为这是因为用户需要启用“对VBA项目对象模型的信任访问”，但是即使在切换该框之后，该错误似乎仍然会发生。

我检查过的其他内容：

加载项的fullPath有效，用户可以访问目录和文件
用户的文件夹位于Application.UserLibraryPath

有什么想法吗？

Answer 1

Duke，也许是收件人计算机上的“信任中心”设置。我找到了this，可能会有所帮助。

最好，丹尼在YouTube的ExcelVBADude上观看VBA视频。

Answer 2

弄清楚了。看来问题不是权限之一，而是工作簿是否已打开。在运行Addins.Add之前打开任何工作簿可防止发生错误，因此我将其简单地添加到了程序中：

If Application.Workbooks.Count = 0 then Set wb = Application.Workbooks.Add()

Set AI = Application.AddIns.Add(fileName:=fullPath, copyfile:=True)

If not wb is nothing then wb.Close

尝试使用Application.AddIns.Add时不断获取Err 1004

2 个答案: