A small macro question
Forum Sponsor
Top Posters
Jayaprakash Sekar
1 posts
arash.karmand
0 posts
James Williams
74 posts
Vahidazimi01
0 posts
David Smith
4 posts
Peter Holroyd
51 posts
fridau
0 posts
Rahmat Hidayat
32 posts
pinoyplanner
1 posts
Saqib Ullah
1 posts
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