Project.DeliverablesGetByProject 方法 (Project)
指定的企業專案中傳回物件的 XML 成員會取得所有可傳送作業的清單。 只有 project Professional。
語法
expression。 DeliverablesGetByProject( _ProjectGuid_ )
表達 代表 Project 物件的變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| ProjectGuid | 必要 | String | 企業專案的 GUID。 |
傳回值
Object
註解
使用 VBA 來處理 DeliverablesGetByProject 結果物件的 XML 成員需要非明顯且複雜的程式碼。 我們建議您使用 Office 與 SharePoint 開發工具Visual Studio 2012中使用 Project Server 與 SharePoint 功能時為專案建立增益集。 處理 XML 最簡單的方法是使用 LINQ to XML 方法.NET Framework 4中。
範例
在下列範例中，名為簡單的企業專案包括將可傳送作業之設定的名為 M1 里程碑。 專案網站 URL，其中包含簡單專案的可傳送作業清單，是 https://ServerName/PWA/Simple 。 TestDeliverables 巨集會顯示在訊息方塊包含 XML 結果的一部分。
GetServerProjectGuid 方法所傳回的 projectGuid 值包含大括號周圍的 GUID，例如"{1b14e65c-5601-4565-acb9-3822078a17fb}"。 使用含或不含大括弧的 GUID 值。
Option Explicit
Sub TestDeliverables()
Dim projectGuid As String
Dim ds As Object
projectGuid = ActiveProject.GetServerProjectGuid
' Optional: Removing the braces on the GUID value makes no difference.
' projectGuid = Mid(projectGuid, 2, 36)
Set ds = ActiveProject.DeliverablesGetByProject(projectGuid)
MsgBox ds.XML
Debug.Print ds.XML
End Sub
注意事項
[!注意事項] 若要尋找的變數類型的 物件 ，例如 ds 變數的成員在物件上設定監看，然後設定中斷點之後您將值指派給物件。 變數的 監看窗格中，依序展開 [和您所見 XML 成員。
[訊息] 方塊中顯示的 XML 結果 17,295 字元總數中第一次 1024年個字元 (在此範例中)。 下列 XML 結果，屬性可分為同行。 實際的 XML 結果是所有在您可以看到您是否列印結果輸送至在 VBE 的 [ 立即] 窗格中的一列。 此範例不會顯示 XML 結構描述，大部分的內容所組成。
在 SharePoint 清單中定義的 ows_ 欄位。 一些您可能會想要擷取的欄位包含 deliverableUid 、 workspaceUri 、 linkedTaskUid (Project Server 中之任務的 GUID)、 ows_LinkTitle (具有可傳送作業之任務的名稱)、 ows_Created 、 ows_Modified 、 ows_Author 、 ows_CommitmentStart 及 ows_CommitmentFinish 。
<DeliverableMasterDocument>
<Deliverables>
<Deliverable deliverableUid="6f8cb9a5-d9b8-496d-af90-1e88dc57f46a" projectUid="1b14e65c-5601-4565-acb9-3822078a17fb"
type="1" tpId="1" workspaceUri="https://ServerName/PWA/Simple" workspaceName="PWA/Simple" workspaceVServerUri="https://ServerName"
listUid="168a6e6f-6993-4315-a593-7ffa21683e57" state="1">
<Client linkedTaskUid="d3eaf532-9ab9-4eb2-8f85-fd41a1b5db0c" ows_ID="1"
ows_ContentTypeId="0x010074416DB49FB844B99C763FA7171E7D1F00001031A192BFCA4D83CA160D2BCAB735"
ows_ContentType="Project Site Deliverable" ows_Title="M1" ows_Modified="2010-02-19 13:30:19"
ows_Created="2010-02-19 13:29:45" ows_Author="1073741823;#System Account"
ows_Editor="1073741823;#System Account" ows_owshiddenversion="2" ows_WorkflowVersion="1"
ows__UIVersion="512" ows__UIVersionString="1.0" ows_Attachments="0" ows__ModerationStatus="0"
ows_LinkTitleNoMenu="M1" ows_LinkTitle="M1" ows_LinkTitle2="M1" ows_SelectTitle="1"
ows_Order="100.000000000000" ows_GUID="{FFA3E0F9-DBB4-44B6-B09D-1C2AB7A9EF92}"
ows_FileRef="1;#PWA/Simple/Lists/Deliverables/1_.000" ows_FileDirRef="1;#PWA/Simple/Lists/Deliverables"
ows_Last_x0020_Modified="1;#2010-02-19 13:29:45" ows_Created_x0020_Date="1;#2010-02-19 13:29:45"
ows_FSObjType="1;#0" ows_SortBehavior="1;#0" ows_PermMask="0x7fffffffffffffff" ows_FileLeafRef="1;#1_.000"
ows_UniqueId="1;#{29AF34EA-EA27-48C7-80A6-83B0A95DB9BD}" ows_ProgId="1;#"
ows_ScopeId="1;#{73C1A12E-DBA2-4BE2-87EE-1FF5EF1494DD}" ows__EditMenuTableStart="1_.000"
ows__EditMenuTableStart2="1" ows__EditMenuTableEnd="1" ows_LinkFilenameNoMenu="1_.000"
ows_LinkFilename="1_.000" ows_LinkFilename2="1_.000" ows_ServerUrl="/PWA/Simple/Lists/Deliverables/1_.000"
ows_EncodedAbsUrl="https://jc2vm1/PWA/Simple/Lists/Deliverables/1_.000" ows_BaseName="1_" ows_MetaInfo="1;#"
ows__Level="1" ows__IsCurrentVersion="1" ows_ItemChildCount="1;#0" ows_FolderChildCount="1;#0"
ows_CommitmentStart="2010-02-02 00:00:00" ows_CommitmentFinish="2010-02-02 00:00:00" ows_SuppressCreateEvent="1"/>
</Deliverable>
</Deliverables>
<Schemas>
<Schema . . .
. . . >
<Fields>
<Field . . . />
. . .
</Fields>
</Schema>
</Schemas>
</DeliverableMasterDocument>
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。