通过

Application.AddResourcesFromProjectServer 方法 (Project)

  • 项目

如果已连接到 Project Server 并且当前位于资源视图中，则打开“ 生成团队 ”对话框。

语法

expression。 AddResourcesFromProjectServer

expression：表示 Application 对象的变量。

返回值

布尔值

备注

AddResourcesFromProjectServer 方法仅可用于资源视图，并返回一个可捕获的错误 (错误代码 1100年) 应用在非资源视图时。

示例

下列示例显示“从 Project Server 建立工作组”对话框。 首先，Project 将“协作选项”（“协作”菜单）中指定的 URL 添加到 Microsoft Internet Explorer 的可信网站列表中。 确认后，如果以工作组模式连接到“我的计算机”，Project 将切换到 “资源表” 视图并显示“ 从 Project Server 生成团队 ”对话框。 连接到 Project Server 时，Project 将显示“从项目名称生成团队”对话框。

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。