I have an issue with importing data from excel into MS Project.
The issue I have is that I have tasks with fiexd work of f.i. 8 hours and a duration of 8 days. When I import this data, I get 8 days duration (this is OK!) but I get 64 hours of work (instead of 8 hours fixed work).
How can I resolve this?
This is the VB code I am using to import the data:
Sub ImportFromExcel()
'start macro
MapEdit Name:="ImportFromExcel", Create:=True, OverwriteExisting:=True, DataCategory:=0, CategoryEnabled:=True, TableName:="Sheet1", FieldName:="Summary", ExternalFieldName:="Summary", ExportFilter:="Should Start By...", ImportMethod:=0, HeaderRow:=True, AssignmentData:=False, TextDelimiter:=Chr$(9), TextFileOrigin:=0, UseHtmlTemplate:=False, IncludeImage:=False
MapEdit Name:="ImportFromExcel", DataCategory:=0, FieldName:="Outline Level", ExternalFieldName:="Outline"
MapEdit Name:="ImportFromExcel", DataCategory:=0, FieldName:="WBS", ExternalFieldName:="Wbs"
MapEdit Name:="ImportFromExcel", DataCategory:=0, FieldName:="Name", ExternalFieldName:="Description"
MapEdit Name:="ImportFromExcel", DataCategory:=0, FieldName:="Resource Names", ExternalFieldName:="Role"
MapEdit Name:="ImportFromExcel", DataCategory:=0, FieldName:="Work", ExternalFieldName:="Work"
MapEdit Name:="ImportFromExcel", DataCategory:=0, FieldName:="Start", ExternalFieldName:="Start"
MapEdit Name:="ImportFromExcel", DataCategory:=0, FieldName:="Duration", ExternalFieldName:="Duration"
MapEdit Name:="ImportFromExcel", DataCategory:=0, FieldName:="Milestone", ExternalFieldName:="Milestone"
'FileOpenEx , ReadOnly:=True, Map:="ImportFromExcel", FormatID:="MSProject.xls", DoNotLoadFromEnterprise:=True
FileOpenEx , ReadOnly:=True, Map:="ImportFromExcel", DoNotLoadFromEnterprise:=True
end sub
This is an example of the excel data I want to import:
Summary Outline Wbs Description Role Work Start Duration
Yes 1 1 Transition
Yes 2 1. 1. Project Startup
No 3 1. 1. 1 pm algemeen PRPM07 320 1-7-2013 23
No 3 1. 1. 2 pl PRPM06 320 1-7-2013 23
Yes 2 1. 2. Inventarisatie
No 3 1. 2. 1 Opleveren Documentatie CMO SEIE08 20 1-7-2013 23
No 3 1. 2. 2 Application Discovery Service SEIE08 8 1-7-2013 23
No 3 1. 2. 3 Workload discovery service SEIE08 8 1-7-2013 23
No 3 1. 2. 4 validatie Applicatie Compat SEIE08 8 1-7-2013 23
No 3 1. 2. 5 Workshops overdracht kennis SEIE08 104 1-7-2013 23
No 3 1. 2. 6 Workload map met per systeem SEIE08 8 1-7-2013 23
The issue I have is that I have tasks with fiexd work of f.i. 8 hours and a duration of 8 days. When I import this data, I get 8 days duration (this is OK!) but I get 64 hours of work (instead of 8 hours fixed work).
How can I resolve this?
This is the VB code I am using to import the data:
Sub ImportFromExcel()
'start macro
MapEdit Name:="ImportFromExcel", Create:=True, OverwriteExisting:=True, DataCategory:=0, CategoryEnabled:=True, TableName:="Sheet1", FieldName:="Summary", ExternalFieldName:="Summary", ExportFilter:="Should Start By...", ImportMethod:=0, HeaderRow:=True, AssignmentData:=False, TextDelimiter:=Chr$(9), TextFileOrigin:=0, UseHtmlTemplate:=False, IncludeImage:=False
MapEdit Name:="ImportFromExcel", DataCategory:=0, FieldName:="Outline Level", ExternalFieldName:="Outline"
MapEdit Name:="ImportFromExcel", DataCategory:=0, FieldName:="WBS", ExternalFieldName:="Wbs"
MapEdit Name:="ImportFromExcel", DataCategory:=0, FieldName:="Name", ExternalFieldName:="Description"
MapEdit Name:="ImportFromExcel", DataCategory:=0, FieldName:="Resource Names", ExternalFieldName:="Role"
MapEdit Name:="ImportFromExcel", DataCategory:=0, FieldName:="Work", ExternalFieldName:="Work"
MapEdit Name:="ImportFromExcel", DataCategory:=0, FieldName:="Start", ExternalFieldName:="Start"
MapEdit Name:="ImportFromExcel", DataCategory:=0, FieldName:="Duration", ExternalFieldName:="Duration"
MapEdit Name:="ImportFromExcel", DataCategory:=0, FieldName:="Milestone", ExternalFieldName:="Milestone"
'FileOpenEx , ReadOnly:=True, Map:="ImportFromExcel", FormatID:="MSProject.xls", DoNotLoadFromEnterprise:=True
FileOpenEx , ReadOnly:=True, Map:="ImportFromExcel", DoNotLoadFromEnterprise:=True
end sub
This is an example of the excel data I want to import:
Summary Outline Wbs Description Role Work Start Duration
Yes 1 1 Transition
Yes 2 1. 1. Project Startup
No 3 1. 1. 1 pm algemeen PRPM07 320 1-7-2013 23
No 3 1. 1. 2 pl PRPM06 320 1-7-2013 23
Yes 2 1. 2. Inventarisatie
No 3 1. 2. 1 Opleveren Documentatie CMO SEIE08 20 1-7-2013 23
No 3 1. 2. 2 Application Discovery Service SEIE08 8 1-7-2013 23
No 3 1. 2. 3 Workload discovery service SEIE08 8 1-7-2013 23
No 3 1. 2. 4 validatie Applicatie Compat SEIE08 8 1-7-2013 23
No 3 1. 2. 5 Workshops overdracht kennis SEIE08 104 1-7-2013 23
No 3 1. 2. 6 Workload map met per systeem SEIE08 8 1-7-2013 23