Application.AddResourcesFromProjectServer 方法 (Project)

如果您已連線到 Project Server 且目前位於資源檢視中，請開啟 [ 建置小組 ] 對話方塊。

語法

expression。 AddResourcesFromProjectServer

expression 代表 Application 物件的變數。

傳回值

布林值

註解

AddResourcesFromProjectServer 方法只能在資源檢視中，並會傳回可截獲的錯誤 (錯誤代碼 1100年) 時套用在非資源檢視中。

範例

下列範例會顯示 從 Project Server 建立小組] 對話方塊。 首先，Project 會將 [共同作業 選項 ] ([共同 作業 ] 功能表) 中指定的 URL 新增至 Microsoft Internet Explorer 的信任網站清單。 確認時，Project 會切換至 [資源工作表 ] 檢視，並在以工作組模式連線到 [我的電腦] 時，顯示 [ 從 Project Server 建 置小組] 對話方塊。 Project 在連線到 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 支援與意見反應。