Microsoft Excel 12.0 Object Library reference upload

[chamdan]

Hi,

Does anyone out there know how to add the reference library listed above using vba from inside ms project and remove the before closing.

I tried the following but seems not to work:

Public Sub addRefToOffice()
  On Error Resume Next
  Application.VBE.ActiveVBProject.References.AddFromFile "C:\Program Files\Microsoft Office\Office12\MSO12.DLL"
End Sub

Public Sub removeRefToOffice()
  Dim ref As Object
  On Error Resume Next
  Set ref = Application.VBE.ActiveVBProject.References("C:\Program Files\Microsoft Office\Office12\MSO12.DLL")
  Application.VBE.ActiveVBProject.References.Remove ref
End Sub

I look forward to hearing from someone.

Regards,



Chuck

[chamdan]

I have finally resolved this issue of uploading programmatically the reference to Excel 12.0 Object library from ms project vba.
Here below is the solution:
Call the first macro from inside the Open_Event and one from the before_Close_Event.

First macro:

Public Sub addRefToOffice()
  On Error Resume Next
  Application.VBE.ActiveVBProject.References.AddFromFile "C:\Program Files\Microsoft Office\Office12\EXCEL.EXE"
End Sub

Second macro:

Public Sub removeRefToOffice()
  Dim ref As Object
  On Error Resume Next
  Set ref = Application.VBE.ActiveVBProject.References("Excel")
  Application.VBE.ActiveVBProject.References.Remove ref
End Sub

Chuck

[JulieS]

Glad you were able to solve it and thanks very much for posting the answer!