Скопируйте представление ресурсов проекта Microsoft в таблицу Excel - Использование VBA

Question

Я настраиваю электронную таблицу для копирования данных ресурсного листа из файла Microsoft Project. Я собираюсь построить таблицу использования ресурсов в Excel, мне нужно скопировать каждое имя ресурса, а затем скопировать их дату / день и соответствующие часы для каждого ресурса.

Я пытаюсь использовать следующий код

'Set start export date
StartDate = FindStartDate

'Loop through each project and export resources
Dim sTask As Task ' The Summary Task
For Each t In ActiveProject.Tasks
     If Not t Is Nothing Then
        If t.ID > 1 Then 'skip heading
            If t.Summary Then 'this is a summary heading

                    If Not t.Status = pjComplete Then

                        'Set project description and project task object
                        Set sTask = ActiveProject.Tasks(t.ID)
                        key = Trim(t.Name & "--" & t.Text2)


                        Dim st As Task 'sub tasks
                        For Each st In t.OutlineChildren
                             If Not st.Summary Then
                                 Dim r As Resourcee

Цель состоит в том, чтобы вывести его в электронную таблицу, чтобы его можно было преобразовать в гистограмму.

А диапазон дат - ежедневно