Task.WBSSuccessors 屬性 (Project)

取得工作分解結構 (WBS) 代碼的任務的後續任務，以清單分隔字元分隔。 唯讀的 String。

語法

expression。 WBSSuccessors

表達 代表 Task 物件的變數。

範例

下列範例會向使用者查詢任務識別碼，然後將其後續任務的 WBS 碼分解成更容易使用的碼。

Sub EnumerateSuccessors() 
 Dim Task As Task 
 Dim SuccTasks As Tasks 
 Dim ID As Long 
 Dim Successors As String 
 Dim List As String 
 Dim Count As Integer 
 
 ID = CLng(InputBox$("Enter the ID number of the task you wish to examine:")) 
 
 Set Task = ActiveProject.Tasks(ID) 
 Set SuccTasks = Task.SuccessorTasks 
 Successors = Task.WBSSuccessors 
 Count = 1 
 
 If SuccTasks.Count = 0 Then 
 List = "Task " & Task.UniqueID & ", " & Task.Name & ", has no successors." 
 Else 
 List = "Successors to task " & Task.UniqueID & ", " & Task.Name & ":" & vbCrLf & vbCrLf 
 Do While InStr(Successors, ListSeparator) <> 0 
 List = List & SuccTasks(Count).Name & ": " & Mid$(Successors, 1, InStr(Successors, ListSeparator) - 1) & vbCrLf 
 Successors = Right$(Successors, Len(Successors) - InStr(Successors, ListSeparator)) 
 Count = Count + 1 
 Loop 
 List = List & SuccTasks(Count).Name & ": " & Successors 
 End If 
 
 MsgBox List 
 
 Set SuccTasks = Nothing 
 Set Task = Nothing 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。