專案) (Tasks 物件

包含 Task 物件的集合。

範例

使用 Task 物件

使用 工作 (索引) ，其中 index 是任務索引編號或任務名稱，可傳回單一 Task 物件。 下列範例會列印指派給每個任務中使用中專案每一資源的名稱。

Dim Temp As Long, A As Assignment 

Dim TaskName As String, Assigned As String, Results As String 

 

For Temp = 1 To ActiveProject.Tasks.Count 

 TaskName = "Task: " & ActiveProject.Tasks(Temp).Name & vbCrLf 

 For Each A In ActiveProject.Tasks(Temp).Assignments 

 Assigned = A.ResourceName & ListSeparator & " " & Assigned 

 Next A 

 Results = Results & TaskName & "Resources: " & _ 

 Left$(Assigned, Len(Assigned) - Len(ListSeparator & " ")) & vbCrLf & vbCrLf 

 TaskName = "" 

 Assigned = "" 

Next Temp 

 

MsgBox Results

使用 Tasks 屬性可傳回 Tasks 集合。 下列範例會顯示選取範圍中每個任務名稱。

Dim T As Task, Names As String 

 

For Each T In ActiveSelection.Tasks 

 Names = Names & T.Name & vbCrLf 

Next T 

 

MsgBox Names

使用 Add 方法，可以將一個 Task 物件新增到 Tasks 集合。 下面範例將一個新建任務新增到任務清單的結尾。

ActiveProject.Tasks.Add "Hang clocks"

方法

名稱
Add

屬性

名稱
Application
數目
項目
Parent
UniqueID

另請參閱

Project 物件模型

支援和意見反應

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