Auto publish projects in a batch job?

[Shawn Everingham]

Can/or does anyone have a solution or know of a solution in which you can
publish multiple projects in a single batch?

a PM in our organization is managing about 20-30 projects at any given time.
They are quick projects that last about 1 month in duration and thusly this
PM has a lot of projects ongoing all the time.

This PM does not want to have to open up and publish 30 projects every
Monday to ensure that all her project's represented in Project Workspaces
have been refreshed and updated with all the Task Updates.

Can this be done? (I'm very certain the answer is Yes)
Can anyone provide a solution as to how?
thanks in advance.

 

[Rod Gill]

I wrote a solution once that listed project titles in a project file, one
per task. I then had a VBA macro to open each project, save and publish.
This worked well, though it is better that the PM updates each week and
saves then publishes manually!

--

Rod Gill
Microsoft MVP for Project

Author of the only book on Project VBA, see:
http://www.projectvbabook.com

 

[Stephen Sanderlin]

What version of Project Server?

--
Stephen Sanderlin
Principal Consultant
MSProjectExperts

For Project Server Consulting: http://www.msprojectexperts.com
For Project Server Training: http://www.projectservertraining.com

Read my blog at: http://www.projectserverhelp.com
Join the community at: http://forums.epmfaq.com

 

[Divyesh]

Hi Gill,

I am in process of writing a script that republishes Project. My problem is
how i can open all the enterpirse projects from the server at one time and
loop through them.
Below is my code. Using "projApp.FileOpenEx()" am able to opne one project
at a time from Project professional and then code saves the project,
republish it and close it. Please let me know if it is possible for me to
open all the project as same time and loop through it so it saves and
republish all project one by one.
Module Module1

Sub Main()
Dim strProj = "http://njcportal/pwa"
Dim projApp As New Microsoft.Office.Interop.MSProject.Application
Dim proj As Microsoft.Office.Interop.MSProject.Project
projApp.FileOpenEx()
Dim cnt
cnt = projApp.Projects.Count
For Each proj In projApp.Projects
'proj = projApp.ActiveProject
'projApp.UpdateProject()
projApp.FileSave()
System.Threading.Thread.Sleep(17000)
projApp.Publish()
System.Threading.Thread.Sleep(17000)
projApp.FileClose(PjSaveType.pjSave)
'projApp.CheckIn()
'projApp.ActiveWindow.Close()
'Stop
Next
'The format is winproj.exe /s serverurl /u projectuser /P password
where serverurl is the project server url


End Sub

End Module