A small macro question

A
assaf f 👤 Member for 18 years 7 months
H
Hannes de Bruyne 👤 Member for 21 years

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

Featured Partner

Top Posters

Zine Eddine
2 posts
Alex Lyaschenko
27 posts
mxsiegel
0 posts
Mattvtek
0 posts
Gareth Evans
3 posts
PP Admin
3, 129 posts
Rajkamal Tangirala
5 posts
Rahul Kumar
1 posts
blake333_
0 posts
Jeamiell Ostrovsky
2 posts