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 支持和反馈,获取有关如何接收支持和提供反馈的指南。