Hi!
I'll just give the specific MS project code I suppose (I hope) you can code
Excel VBA or passing this into VB (which I never practiced)
Dim TheAss as assignment
Dim XlApp as Excel.application
Dim TSBW as timescalevalues
Dim TSBWel as timescalevalue
Dim CumBW as double
dim ctr as integer
set xlapp=CreateObject "Excel.Application"
......
'The task is suppose dto be located let's call it AnyTask
'The example handles the 1st assignment of this task
Set TheAss=Anytask.assignments(1)
set TSBW=theass.timescaledata startdate:=anytask.start, _
enddate:=anytask.finish, type:=pjassignmenttimescaledbaselinework, _
timescaleunit:=pjtimescaledays
'Now find the address of the Excel Cell where to put the first of the values
'Let's call that Ro and Col
'similar logic may apply to addresses in Access tables
CumBW=0
ctr=0
For each TSBWel in TSBW
cumbw=cumbw+val(tsbwel)/60
xlapp.activesheet.cells(ro,col+ctr)=cumbw
ctr=ctr+1
next tsbwel
........
Hope this helps
