vba - 微软项目 : Loop through filtered tasks

Question

我想从一个 MS 项目中将满足过滤器条件的任务名称复制到 Excel 工作表。比方说过滤 dumb tasks。我正在尝试一些东西，但它不起作用:

Dim b As Task

For Each b In ActiveProject.TaskFilters("dumb tasks")
    'code to copy to excel
Next

Answer 1

如果您正在为过滤器使用自定义字段 Flag3，您可以遍历任务，并检查每个任务是否 b.Flag3 = True，然后复制此任务到 Excel。

Dim b As Task

For Each b In ActiveProject.Tasks
    If b.Flag3 = True Then
        ' here do your copy>>paste to Excel

    End If
Next