vba - 方法 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)

使用您传入的参数值