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")

References.addfromfile 项目打开（）

References.addfromfile on Project Open()

vba

ms-project