使用Excel VBA在项目上发布

Question

我需要从列表中发布项目计划。

所有代码都已完成并正在运行。

.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}"

发布窗口在Project上弹出。 VBA停止，直到我点击窗口中的发布，这必须使用SendKeys完成。

有没有一种方法可以在不弹出窗口的情况下发布，或者在窗口弹出时使VBA运行？

Answer 1

您需要先添加一行并使用FileSave方法，然后发布项目计划enteri.e。 enter Application.FileSave Application.Publishp True，Null