项目 Open() 上的 References.addfromfile

【问题标题】：References.addfromfile on Project Open()项目 Open() 上的 References.addfromfile
【发布时间】：2020-07-01 07:04:39
【问题描述】：

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

如果我手动运行代码而不是在 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

【问题讨论】：

标签： vba ms-project

【解决方案1】：

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

【讨论】：

使用ThisProject 对象，而不是假定此代码在第一个项目中运行。