Publish on Project using Excel VBA

Question

I need to publish Project plans from a list.

All the code is done and running.

.Publish Republish:=Null, WssUrl:=Null

'Store timer
dblTimer = Timer
'Pause 5 seconds to allow publish window to appear
Do While dblTimer + 30 > Timer

     DoEvents

Loop
'Enable publish
SendKeys "{ENTER}"

The publish window pops on Project. The VBA stops until I click on publish in the window, which has to be done with the SendKeys.

Is there a way to publish without popping the window, or making VBA run when the window pops?

Answer 1

您需要添加一行，并使用的FileSave方法首先然后发布项目计划enter即enter Application.FileSave Application.Publishp真，空