Application.GetProjectServerVersion 方法 (Project)

此方法检查用于活动项目的 Project Server 的版本。 也可以用该方法检查某个特定的服务器 URL 是否指向一个有效的且正在运行的 Project Server。

语法

expression。 GetProjectServerVersion( _ServerURL_ )

expression：表示“Application”对象的变量。

参数

名称	必需/可选	数据类型	说明
ServerURL	必需	String	表示需要检查其版本的 Project Server 的 URL 的字符串。

返回值

PjServerVersionInfo

备注

如果 ServerURL 参数未指向有效的且正在运行的 Project Server，则该方法返回一个可捕获的错误（错误代码为 1004）。

示例

以下示例从 Project Server 返回一个代表下列设置的 XML 流：ProjectServerSettingsRequest、AdminDefaultTrackingMethod、AdminTrackingLocked、ProjectIDInProjectServer、ProjectManagerHasTransactions、ProjectManagerHasTransactionsForCurrentProject、TimePeriodGranularity 和 GroupsForCurrentProjectManager。

Sub mpsVersion() 
 URL = ActiveProject.ServerURL 
 If Application.GetProjectServerVersion(URL) = pjServerVersionInfo_P10 Then 
 ActiveProject.MakeServerURLTrusted 
 xmlStream = Application.GetProjectServerSettings( _ 
 RequestXML:="<ProjectServerSettingsRequest>" _ 
 & "<AdminDefaultTrackingMethod /><AdminTrackingLocked />" _ 
 & "<ProjectIDInProjectServer />" _ 
 & "<ProjectManagerHasTransactions />" _ 
 & "<ProjectManagerHasTransactionsForCurrentProject />" _ 
 & "<TimePeriodGranularity /><GroupsForCurrentProjectManager />" _ 
 & "</ProjectServerSettingsRequest>") 
 MsgBox xmlStream 
 Else 
 MsgBox "This macro returns information from Project " _ 
 & "Server. Please choose 'Collaborate using Project " _ 
 & "Server' and specify a valid Project Server URL " _ 
 & "for this project in Collaboration Options (Collaborate menu)." 
 Exit Sub 
 End If 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。