VBA Microsoft Project Professional 2016：如何按日期按资源按任务读取实际工时和工时小时？

问题描述

我只是想为每个任务和资源提取每天的实际和工作时间数据？

我每天可以获取一个值（工作时间），但是我如何获取我每天需要的所有数据？

示例：

10/2/2021，告诉笑话，罗德吉尔伯特，4、4

2021 年 2 月 10 日，讲笑话，迈克尔·麦金太尔，2 岁，4 岁

解决方法

Set tsvs = ActiveProject.Tasks(T.ID).Resources(R.ID).TimeScaleData( _
        StartDate:=ActiveProject.ProjectStart,_
      EndDate:=ActiveProject.ProjectFinish,_
      Type:=pjResourceTimescaledWork,_
      TimeScaleUnit:=pjTimescaleDays,Count:=1)

循环 T 然后 R。 显然，这个例子拉取了一个项目的所有任务。 我仍在完善我想要的东西，但这回答了我的问题。