MS 项目 - 使用 VBA 添加 "Successors" 列

Question

抱歉，如果这看起来很简单，但不幸的是我无法在任何地方找到在 MS Project 中设置附加列的方法。我确实尝试了录制宏选项并复制粘贴代码，但仍然遇到错误。

Sub addcolumn()
' Macro addcolumn
    SelectTaskColumn Column:="Add New Column"
    TableEditEx Name:="&Entry", TaskTable:=False, NewName:="", FieldName:="Text1", NewFieldName:="Successors", Title:="", ColumnPosition:=8
    TableApply Name:="&Entry"
End Sub

收到此错误：运行-时间错误'1004'： “继任者”字段不存在。

在此感谢一些指导。谢谢

Answer 1

由于 Successors 是一个 Task 字段，因此第二个参数需要为 True：

TableEditEx Name:="&Entry", TaskTable:=True, NewName:="", FieldName:="Text1", NewFieldName:="Successors", Title:="", ColumnPosition:=8

有关详细信息，请参阅 Application.TableEditEx method。

MS 项目 - 使用 VBA 添加 "Successors" 列

MSProject - adding "Successors" columns using VBA

vba

ms-project