尝试使用 Application.AddIns.Add 时不断出现错误 1004
Constantly getting Err 1004 when trying to using Application.AddIns.Add
我正在尝试为我的加载项工作簿实施 bootstrap 安装程序，以便我可以轻松地为新用户安装加载项并发送更新。它在我的机器上运行良好，但是当让其他人测试它时，当我尝试调用 Set AI = Application.AddIns.Add(fileName:=fullPath, copyfile:=True) 时出现运行时错误。具体来说，错误是“1004：无法获取 AddIns class 的 Add 属性”。我认为这是因为用户需要启用 "Trust access to the VBA project object model"，但即使在他们切换该框后似乎仍会出现错误。
我检查过的其他内容：
- 外接程序的完整路径有效，用户可以访问目录和文件
- 用户的文件夹位于
Application.UserLibraryPath
有什么想法吗？
公爵，也许是收件人机器上的信任中心设置。我找到了 this，可能会有帮助。
最好，
丹尼
在 YouTube ExcelVBADude 上查看 VBA 个视频。
想通了。看来问题不是权限之一，而是工作簿是否已经打开。在 运行 之前打开任何工作簿，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
我正在尝试为我的加载项工作簿实施 bootstrap 安装程序，以便我可以轻松地为新用户安装加载项并发送更新。它在我的机器上运行良好，但是当让其他人测试它时，当我尝试调用 Set AI = Application.AddIns.Add(fileName:=fullPath, copyfile:=True) 时出现运行时错误。具体来说，错误是“1004：无法获取 AddIns class 的 Add 属性”。我认为这是因为用户需要启用 "Trust access to the VBA project object model"，但即使在他们切换该框后似乎仍会出现错误。
我检查过的其他内容：
- 外接程序的完整路径有效，用户可以访问目录和文件
- 用户的文件夹位于
Application.UserLibraryPath
有什么想法吗？
公爵，也许是收件人机器上的信任中心设置。我找到了 this，可能会有帮助。
最好， 丹尼 在 YouTube ExcelVBADude 上查看 VBA 个视频。
想通了。看来问题不是权限之一，而是工作簿是否已经打开。在 运行 之前打开任何工作簿，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