我正在尝试保存之前在Project Server 2013上打开的文件。我对文件进行的唯一更新是设置状态日期并移动未完成的任务。我在excel VBA中运行该文件。我可以分享完整的代码集,但我认为没有必要。如果我在不保存文件的情况下运行宏,一切都运行得很好。我需要做的就是在不提示我的情况下保存文件,我已经完成了。感谢所有帮助。
Dim appPJ As MSProject.application
Set appPJ = New MSProject.application
appPJ.FileOpenEx Name:="<>\" & strFileName, ReadOnly:=False, Noauto:=True, IgnoreReadOnlyRecommended:=True, DoNotLoadFromEnterprise:=False
'Update the status date and move unfinished tasks to the future
appPJ.ProjectSummaryInfo StatusDate:=dateStatusDate
appPJ.UpdateProject All:=True, UpdateDate:=dateStatusDate, Action:=2
'Call the various read data only report routines
appPJ.DisplayAlerts = False
appPJ.FileCloseEx pjSave, True, True
上面的行不会通过提示保存到服务器。