Метод Application.GetProjectServerVersion (Project)

Статья
04/07/2023

Этот метод проверяет версию Project Server для активного проекта. Метод также можно использовать для проверки того, указывает ли определенный URL-адрес сервера на допустимый и функционирующий Сервер Project Server.

Синтаксис

выражение. GetProjectServerVersion( _ServerURL_ )

выражение: переменная, представляющая объект Application.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
ServerURL	Обязательный	String	Строка, представляющая URL-адрес сервера Project Server, версия которого должна быть проверена.

Возвращаемое значение

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 и обратная связь.