从任务资源中获取价值

Question

我想创建获取任务资源值（“Erträge”和“Kosten”）的宏，并将这些值设置为变量，以便我可以使用它们来计算事物

我正在使用“For Each t In ActiveProject.Tasks”对所有任务执行相同操作我唯一的问题是我不知道如何从“Ressourcenamen”获取此值。

我计算的示例代码：

Sub Macro1()

Dim E As Double
Dim A As Double
Dim test As Double

For Each t In ActiveProject.Tasks

test = E + A + test 

Debug.Print test

Next t
End Sub

“E”和“A”应该是资源。

Answer 1

我自己发现了

A = ActiveProject.Tasks(t).Assignments(1).Cost
E = ActiveProject.Tasks(t).Assignments(2).Cost