Excel VBA - MS Project Resource Sheet konfigurieren

Question

Alle meine Daten wurden in Excel vorbereitet und mein letzter Schritt war die Übertragung der Daten an MS Project. Bevor Daten übertragen wurden, versuche ich, die Tabellenspalte im Ressourcenblatt zu bearbeiten. (Entfernen ersten 3 Spalte Standard Benutzerdefinierte Text1 und fügen Sie Text1 in Position 1 bei Ressourcenblatt)

- Code unten in Excel erstellt wurde -

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" 

Ich bin nicht sicher, was/Error los Kodierung, siehst du irgendeinen Fehler.

Answer 1

Um eine Ressourcentabelle (beispielsweise der Eintragstabelle für die Ressourcenblatt Ansicht) zu bearbeiten, setzen Sie das TaskTable Argument der Methode 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