Tasks 对象 (Project)
包含 Task 对象的集合。
示例
使用 Task 对象
使用 Tasks (索引) （其中 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 集合集合。 下面的示例显示选定内容中的每个任务的名称。
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 |
| Count |
| 项目 |
| Parent |
| UniqueID |
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。