Code to open MS project from EXCEL

[komark]

Hi,
I need to open up MS Project Professional. In a excel spreadsheet (under column A) I have the names of the enterprise projects that I want to open. For some reason it is not doing anything.

Can anyone help me?





Sub OpenFile()
'deleting the first row
Rows("1:1").Select
Selection.Delete Shift:=xlUp

Dim Projects As Object
Dim Winproj As Application

'running a loop
Application.ScreenUpdating = False
For x = 1 To 1000 Step 1
If Range("A" & x) = Not (Null) Then

Set Range("A" & x).Copy = Projects
Set Winproj = New MSProject.Application

'Winproj.ActiveWindow.Activate
Winproj.Visible = True
Winproj.ActiveWindow.Activate
Workbooks.Open Filename:=("<>\" & Projects)


End If

Next




End Sub

 

[JerryKlmns]

I don`t have M$-Project installed but this looks like an automation issue, so try something like

Dim Winproj As Object

Set Winproj = CreateObject("MSProject.Application")

So Winproj is an instance of M$-Project. There should be a method to open a M$-Project file. You ´ll have to explore the object browser of the according library ...

 

[komark]

Yes I need help in opening up enterprise projects