方法FieldNameToFieldConstant运行时错误1004

Question

我试过让这个宏为Microsoft Project工作正常，如果离线工作，但如果我尝试使用项目服务器，该方法在运行时返回错误1004。检查上面的代码。

Function RetornaValorCampo(NomeCampo As String)
    Dim Campo
    Campo = FieldNameToFieldConstant("NomeCampo", pjTask)
    RetornaValorCampo = ActiveProject.ProjectSummaryTask.GetField(Campo)
End Function

坦克提供任何帮助。 []的

Answer 1

您将NomeCampo作为参数传递给RetornaValorCampo函数。当您调用FieldNameToFieldConstant函数时，您将"NomeCampo"作为第一个参数传递。

由于"个字符，"NomeCampo"始终是字符串"NomeCampo"，无论您传递给RetornaValorCampo函数的是什么。

尝试：

Campo = FieldNameToFieldConstant(NomeCampo, pjTask)

使用您在

中传递的参数值