Метод Application.AddResourcesFromProjectServer (Project)

Статья
04/07/2023

Открывает диалоговое окно Команда сборки , если вы подключены к Project Server и в настоящее время находитесь в представлении ресурсов.

Синтаксис

выражение. AddResourcesFromProjectServer

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

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

Boolean

Примечания

Метод AddResourcesFromProjectServer доступен только в представлениях ресурсов и возвращает перехватываемую ошибку (код ошибки 1100) при применении в представлении, отличном от ресурсов.

Пример

В следующем примере отображается диалоговое окно Сборка команды из Project Server . Во-первых, Project добавляет URL-адрес, указанный в разделе Параметры совместной работы (меню "Совместная работа "), в список доверенных сайтов Microsoft Internet Explorer. После подтверждения Project переключается в представление "Лист ресурсов" и отображает диалоговое окно Сборка команды из Project Server при подключении к моему компьютеру в режиме рабочей группы. При подключении к Project Server отображается диалоговое окно Создание команды из имени проекта .

Sub AddResources() 
   If Projects.Count = 0 Then 
      MsgBox "You must have at least one active project open." 
      Exit Sub 
   End If 
 
   If ActiveProject.ServerURL = "" Then 
      MsgBox "A Project Server URL has not been " _ 
         & "specified." & Chr(13) & "Click OK to select " _ 
         & "'Collaborate Using Project Server' and " _ 
         & "specify a valid URL in the Options dialog box " _ 
         & "(Tools menu)." 
      Application.OptionsWorkgroup 
   Else 
      ActiveProject.MakeServerURLTrusted 
      ViewApply Name:="Resource Sheet" 
      Application.AddResourcesFromProjectServer 
   End If 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через