A small macro question

Submitted by assaf f on
Microsoft Project

Member for

20 years 3 months
Member for 20 years 3 months
Submitted by Hannes de Bruyne on Wed, 2008-08-20 12:28
Permalink

Set ProjAppl = CreateObject("MSProject.Application")



Title = "Please Select Microsoft Project File"

fname = Application.GetOpenFilename("Microsoft Project Files (*.mpp), *.mpp", , Title)



ProjAppl.FileOpen fname, ReadOnly:=False, FormatID:="MSProject.MPP"

Set aProj = ProjAppl.ActiveProject



’now open a seccond project

Title = "Please Select Microsoft Project File"

fname = Application.GetOpenFilename("Microsoft Project Files (*.mpp), *.mpp", , Title)



ProjAppl.FileOpen fname, ReadOnly:=False, FormatID:="MSProject.MPP"





Set bProj = ProjAppl.ActiveProject



Now you habe aProj.xxx

and bProj.xxx