次の方法で共有


Application.GetProjectServerVersion メソッド (Project)

作業中のプロジェクトの Project Server のバージョンを確認します。 また、特定のサーバー URL が、動作中で有効な Project Server を指しているかどうかを調べます。

構文

GetProjectServerVersion( _ServerURL_ )

Application オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
ServerURL 必須 String バージョンを確認する必要がある Project Server の URL を示す文字列を指定します。

戻り値

PjServerVersionInfo

注釈

引数 ServerURL が、動作中で有効な Project Server を指していない場合、このメソッドはトラップ可能なエラー (エラー コード 1004) を返します。

次のサンプル コードは、Project Server の設定を示す XML ストリームを返します。このサンプル コードによって返される設定は、ProjectServerSettingsRequestAdminDefaultTrackingMethodAdminTrackingLockedProjectIDInProjectServerProjectManagerHasTransactionsProjectManagerHasTransactionsForCurrentProjectTimePeriodGranularity、および 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 のサポートおよびフィードバックを参照してください。