Option Explicit
Sub subExportOverview()
Dim mspApplication As MSProject.Application
Dim Project As MSProject.Project
Dim startTask As Date
Dim endTask As Date
Dim task As Variant
Dim resource As Variant
Dim work As Variant
Dim indexTask As Long
Dim indexResource As Long
Set mspApplication = CreateObject("Msproject.Application")
mspApplication.ScreenUpdating = False
Set Project = mspApplication.ActiveProject
With Project
indexTask = 1
For Each task In .Tasks
startTask = task.start
endTask = task.Finish
indexResource = 1
For Each resource In task.Resources
Set work = Project.Tasks.Item(indexTask).Resources.Item(indexResource).TimeScaleData(StartDate:=startTask, _
EndDate:=endTask, _
Type:=pjResourceTimescaledWork, _
TimescaleUnit:=pjTimescaleHours, _
Count:=1)
EndDate:=endTask, _
Type:=pjResourceTimescaledWork, _
TimescaleUnit:=pjTimescaleHours, _
Count:=1)
Debug.Print ("Work: " & work)
indexResource = indexResource + 1
Next resource
indexTask = indexTask + 1
Next task
End With
End Sub