替换global.mpt中的现有自定义字段

Question

我们运行了很多项目文件，希望在打开文件时，用存储在全局文件中的新查找和公式更新/替换现有的自定义字段。

我已经想出了以下代码，但问题是它没有附加"；。mpp"；文件类型(如果文件已保存(。我也尝试过"；"ActiveProject.FullName"；，然而，这返回运行时1101错误。

我不想硬编码文件名，因为这将是一场噩梦。

关于如何解决这个问题有什么想法吗？

提前感谢

Sub DeleteUpdateFields()
OrganizerDeleteItem pjFields, FileName:=ActiveProject.Name, Name:="Test (Text19)"
OrganizerMoveItem pjFields, FileName:="Global.MPT", ToFileName:=ActiveProject.Name, Name:="Test (Text19)"
End sub

Answer 1

Joe，您没有指定扩展名(.mpp(是否总是缺失，或者只是针对某些文件，但这里有一些代码将首先测试扩展名，然后在缺失时添加它。

出现运行时错误的原因是ActiveProject.FullName包含的路径在此实例中不是有效参数。

我假设您的代码在每个文件中都作为Open Event运行，而不是必须为每个文件启动宏。如果没有，请告诉我们。

Option Compare Text
Sub DeleteUpdateFields()
Dim FNam As String
FNam = ActiveProject.Name
If InStr(1, ActiveProject.Name, ".mpp") = 0 Then
FNam = ActiveProject.Name & ".mpp"
End If
OrganizerDeleteItem pjFields, FileName:=FNam, Name:="Test (Text19)"
OrganizerMoveItem pjFields, FileName:="Global.MPT", ToFileName:=FNam,     Name:="Test (Text19)"
End Sub

希望这能有所帮助。约翰·