Ошибка неверного значения аргумента при настройке поля задачи MS Project

Question

В Excel VBA я получаю эту ошибку внезапно:

Ошибка таймера выполнения 1101: значение аргумента недопустимо.

I пытаюсь установить для всех полей задач Percent Work Complete задач из Microsoft Project значение 0. В этом блоке кода возникает ошибка:

    Dim t As Task
    Dim row As Variant
    For Each row In tasksDict.Keys
        If tasksDict(row).Active Then
            Set t = tasksDict(row)
            t.SetField FieldID:=188743713, Value:=0 ' ERROR HERE (sets the Percent Work Complete field)
        End If
    Next row

Это не работает, если я делаю это либо:

t.SetField FieldID:=188743713, Value:="0"

Может кто-нибудь помочь мне выяснить, какое будет действительное значение?

Редактировать: Обратите внимание, что этот код работал до сегодняшнего дня. Может ли это быть ошибкой со стороны Microsoft?

Answer 1

решаемая. Прочитав документы, я понял, что вы не можете установить поле «Процент завершенной работы» для итоговых задач, поэтому я добавил в свой код дополнительный оператор if:

Dim t As Task
Dim row As Variant
For Each row In tasksDict.Keys
    If tasksDict(row).Active Then
        Set t = tasksDict(row)
        If Not t.Summary Then
            t.SetField FieldID:=188743713, Value:=0 ' ERROR HERE (sets the Percent Work Complete field)
        End If
    End If
Next row