Объект Tasks (Project)

Содержит коллекцию объектов Task .

Пример

Использование объекта задачи

Используйте tasks (index), где 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
Count
Item
Parent
UniqueID

См. также

Объектная модель Project

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.