vba - MS Project 2010 - 更改企业自定义字段的值

Question

寻找如何在 MSProject2010 中使用 VBA 更改/更新企业自定义字段中的值。

到目前为止，我尝试了以下代码段，但出现错误：“应用程序定义或对象定义错误”

    For Each prTask In prProject.Tasks
        prTask.SetField(FieldNameToFieldConstant("EntCustField"), "value") any
    Next

我做错了什么或任何其他方式？

谢谢

Answer 1

将查找域代码与设置值分开可能有助于隔离错误：

Dim prTask As Task
Dim fldCode As Long
fldCode = FieldNameToFieldConstant("EntCustField")
For Each prTask In prProject.Tasks
    prTask.SetField fldCode, "value"
Next