Microsoft Project, используйте vba для удаления задач

Question

Извините, если это простой вопрос, я только начал использовать vba с MS Project.

Я пытаюсь выполнить все задачи в файле проекта MS и удалить задачу, если она соответствует определенным критериям. Проблема возникает после удаления задачи, похоже, что в переменной j 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