将microsoft project资源视图复制到excel工作表-使用VBA

我正在设置一个电子表格，以便从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

目标是将其输出到电子表格中，以便将其转换为直方图

日期范围为每日

---

您的问题是导出资源使用数据，但您是在任务中循环，而不是在资源中循环。为什么呢？您是否有任何代码显示到目前为止您在将数据导出到Excel中所做的工作？您能否提供Excel中数据的屏幕截图？同时，查看是否满足您的需要。请参阅。我已将问题的输出更新为excel。感谢allYes，我开始认为我应该查看标准甘特图视图，循环完成每个任务，并获得分配给它的相应资源。但我认为更简单的方法是复制资源表视图并将其加载到excel中。复制资源使用情况表（就像您在屏幕截图中所做的那样）是将数据加载到excel的快速方法。听起来你需要别的什么或更多的东西。。。