Excel VBA - Configurate MS Projectリソースシート

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

リソーステーブルを編集する（リソースシートビューの例えばエントリテーブル）、FalseにTableEdit方法の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