Microsoft Project，使用 vba 删除任务

Question

抱歉，如果这是一个简单的问题，我刚开始使用 vba 和 MS Project。

我正在尝试循环遍历 MS Project 文件中的所有任务，并在任务满足特定条件时将其删除。问题发生在任务被删除后，似乎 j 任务变量被设置为 Nothing，这搞砸了一切。知道我该怎么做吗？

For Each j In prj.Tasks

    If j.Text10 = "1" Or j.Text10 = "2" Then ' If criteria is met

        SelectRow Row:=j ' Select the row
        EditDelete        ' Delete the row

    End If
Next j

Answer 1

我以前就是这样做的，检查项目中的所有任务。

我不是 100% 确定语法，因为自从我使用项目以来已经有一段时间了，我从 vb.net

复制了它

Dim T as Task

For Each T In Application.Tasks
    If T.Text10 = "1" Or T.Text10 = "2" Then
        T.Delete
    End If
Next

再次查看您的代码后，您似乎只需要更改一下

.... Then
    j.Delete
End if

Microsoft Project，使用 vba 删除任务

Microsoft Project, use vba to delete tasks

vba

ms-project