Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba MS Project 2010-更改企业自定义字段的值_Vba_Ms Project - Fatal编程技术网

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

Vba MS Project 2010-更改企业自定义字段的值,vba,ms-project,Vba,Ms Project,了解如何在MSProject2010中使用VBA更改/更新企业自定义字段中的值 到目前为止,我尝试了下面的代码段,但出现了错误:“应用程序定义的错误或对象定义的错误” 我做错了什么或其他什么 谢谢将查找字段代码与设置值分离可能有助于隔离错误: Dim prTask As Task Dim fldCode As Long fldCode = FieldNameToFieldConstant("EntCustField") For Each prTask In prProject.Tasks

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

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

我做错了什么或其他什么


谢谢

将查找字段代码与设置值分离可能有助于隔离错误:

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