我只是想通过VBA代码自动添加引用。如果我手动运行它但在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
答案 0 :(得分:0)
找到它无法正常工作的原因。当我打开项目时,它还会为资源打开另一个项目。 ActiveVBProject
是资源项目。我已经通过使用我想要引用的项目的索引修复了我的问题。
Application.Projects(1).VBProject.References.AddFromFile ("C:\Program Files (x86)\Microsoft Office\root\Office16\PJCALEND.DLL")