Excel VBA - 配置MS Project资源清单

我所有的数据都是在Excel中准备的，最后一步是将数据传输到MS Project。在数据传输之前，我试图编辑资源表中的表格列。（删除前3默认列，自定义文本1，并在资源表中添加文本1到位置1）Excel VBA - 配置MS Project资源清单

- 下面的代码在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"

我不知道是什么回事/错误编码，你有没有看到任何错误。

来源

2017-07-17 user6648485

要编辑资源表（例如，用于资源工作表视图入口表），设置TableEdit方法为False TaskTable论点：

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

来源

2017-07-17 19:56:59

Excel VBA - 配置MS Project资源清单

回答

相关问题