设置 MS Project 任务字段时出现无效参数值错误

Question

在 Excel VBA 中，我突然收到这个错误：

Run-timer error 1101: The argument value is not valid.

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

设置 MS Project 任务字段时出现无效参数值错误

Invalid argument value error when setting MS Project task field

excel

vba

ms-project