A small macro question

A
assaf f 👤 Member for 18 years 6 months
H
Hannes de Bruyne 👤 Member for 20 years 11 months

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

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