Microsoft Project，使用vba删除任务

Question

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

我正在尝试遍历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