如何从Excel VBA在Microsoft Project中添加新列？

Question

我现在正在使用VBA在Excel中编写Sub。我已经成功打开了一个MS Project项目。现在，我想通过Excel VBA在MS Project文件中添加新列。我该怎么做？

'''vba

Dim MSProject As MSProject.Application
Dim project As MSProject.project

Dim wb As Workbook
Dim ws As Worksheet

Set wb = ThisWorkbook
Set ws = Sheets("Sheet1")
wb.Activate
ws.Select

' Open Microsoft Project project
Set MSProject = CreateObject("MSProject.Application")
With MSProject
    .FileOpen "test.mpp"
    .Application.Visible = True
End With

Set project = MSProject.ActiveProject

' Add column in Project (this syntax does not work)
MSProject.TableEditEx(Name:="test.mpp", TaskTable:=True, _NewFieldName:="JIRA Issue Key", Title:="JIRA Issue Key", Width:=15, _ShowInMenu:=True, _ColumnPosition:=1)

'''

Answer 1

1. 请勿使用MSProject作为变量名，因为它是库名。与project相同。典型的变量名可能类似于prjApp和prj。
2. 您是否有一个名为“ JIRA发行密钥”的企业字段？字段名称必须是有效的现有字段。
3. Name中的TableEditEx参数是指表的名称，而不是项目的名称。
4. 编辑表格后，您需要使用TableApply
应用更改

这是在默认视图（甘特图）中将现有字段添加到默认表（条目）中的代码的外观：

prjApp.TableEditEx Name:="Entry", TaskTable:=True, NewFieldName:="Text1", Title:="Custom title here", Width:=15, ShowInMenu:=True, ColumnPosition:=1
prjApp.TableApply "Entry"

有关更多信息，请参见the documentation。