Project) (Application.GetProjectServerVersion 方法

此方法會檢查使用中專案的 Project Server 版本。 此方法也可以用來檢查某一特定的伺服器 URL 是否指向有效且可正常運作的 Project Server。

語法

expression。 GetProjectServerVersion( _ServerURL_ )

expression 代表 Application 物件的變數。

參數

名稱	必要/選用	資料類型	描述
ServerURL	必要	String	字串，代表其版本需要檢查的 Project Server 的 URL。

傳回值

PjServerVersionInfo

註解

如果 ServerURL 引數未指向有效且可正常運作的 Project Server，則此方法會傳回可截獲的錯誤 (錯誤代碼 1004)。

範例

下列範例會傳回 XML 資料流，代表 Project Server 的下列設定：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 支援與意見反應。