Earned Value - Export to excel

[SarahM]

I was wondering if anyone has found a good way to export Earned Value to
excel? I have tried both the Timescaled Data and export map, but neither
method provide the correct data in the excel spreadsheet. Ultimately what I
am looking for is a way to export weekly roll ups of earned value for status
reporting.

If I use the timescaled method, MS project spreads the value over the
timeframe of the project I am reporting on. If I use the export map method,
MS project provides data for the entire project and it is not rolled up per
week.

Any help would be greatly appreciated!

Thanks!
Sarah

 

[JackD]

The Export timescaled data has some settings to control the period and start
date.
It should give you what you want.
An alternative is to use a macro.

I've used something like this:

MyFile = "c:\" & "HardwareBreakout" & ActiveProject.Name & "_" & Date$ &
".txt"

fnum = FreeFile()
Open MyFile For Output As fnum
mystring = ActiveProject.Name & " " & ActiveProject.LastSaveDate & " " &
Application.UserName
Write #fnum, mystring 'write project info
Write #fnum, ' Write blank line.
jPeriod = 7 'select time reporting period 1 = 1 day, 7 = 1 week
jStart = ActiveProject.ProjectSummaryTask.Start
For ArrayIndex = 0 To UBound(WorkType)
jEnd = ActiveProject.ProjectSummaryTask.Finish
jStatus = jStart
myBCWS = 0
myACWP = 0

Do While jStatus <= jEnd + jPeriod
ActiveProject.StatusDate = jStatus
'CalculateProject
myBCWS = 0
myACWP = 0
For Each myTask In ActiveProject.Tasks
If (Not myTask Is Nothing) And (Not myTask.summary) And (Not
myTask.Text21 = "") And (myTask.Text21 = WorkType(ArrayIndex)) Then
myBCWS = myBCWS + myTask.BCWS
myACWP = myACWP + myTask.ACWP
End If
Next myTask
mystring = WorkType(ArrayIndex) & ", " & jStatus & ", " & myBCWS
& ", " & myACWP
Write #fnum, mystring 'write project info