项目打开时的References.addfromfile ()

Question

我正在尝试自动添加引用。

如果我手动运行代码，而不是在Project_Open()上运行，代码就可以工作。

Private Sub Project_Open(ByVal pj As Project)

    Application.VBE.ActiveVBProject.References.AddFromFile ("C:\Program Files (x86)\Microsoft Office\root\Office16\PJCALEND.DLL")

End Sub

Answer 1

找到了它不起作用的原因。当我打开该项目时，它还会为资源打开另一个项目。ActiveVBProject是资源项目。我已经修复了我的问题，通过使用我想要引用的项目的索引。Application.Projects(1).VBProject.References.AddFromFile ("C:\Program Files (x86)\Microsoft Office\root\Office16\PJCALEND.DLL")