Excel VBA - 配置 MS 项目资源表

Question

我的所有数据都是在Excel中准备的，我的最后一步是将数据传输到MS Project。在数据传输之前，我正在尝试编辑资源表中的表列。 (删除前 3 个默认列、自定义文本 1，并将文本 1 添加到资源工作表的位置 1(

--下面的代码是用 Excel 准备的 --

Dim Proj    As MSProject.Application
Dim NewProj As MSProject.Project
Set Proj    = New MSProject.Application
Set NewProj = ActiveProject
'Activate Resource Sheet
Proj.ViewApply Name:="Resource Sheet", SinglePane:=True
'Custom Resource Text1 to From
Proj.CustomFieldRename FieldID:=pjCustomResourceText1, NewName:="From"
'Delete First 3 Default Column
Proj.ColumnDelete
Proj.ColumnDelete
Proj.ColumnDelete
'-----------------------------------------------------------------------
'THIS CODE NEED HELP - It didn't add column to Resource Sheet, 
' but add in Gantt Chart Sheet
Proj.TableEdit _
Name:="Entry", TaskTable:=True, NewFieldName:="Text1", _
Title:="From", Width:=6, Align:=1, _
ShowInMenu:=True, LockFirstColumn:=True, DateFormat:=255, _
RowHeight:=1, ColumnPosition:=1, AlignTitle:=pjCenter
Proj.TableApply Name:="Entry"

我不确定发生了什么/编码错误，你们看到任何错误吗？

Answer 1

若要编辑资源表(例如，"资源工作表"视图的"条目"表(，请将"TableEdit"方法的"任务表"参数设置为 False：

Proj.TableEdit _
Name:="Entry", TaskTable:=False, NewFieldName:="Text1", _
Title:="From", Width:=6, Align:=1, _
ShowInMenu:=True, LockFirstColumn:=True, DateFormat:=255, _
RowHeight:=1, ColumnPosition:=1, AlignTitle:=pjCenter