从任务资源中获取价值

Get value from task resources

我想制作宏来获取任务资源的值("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" 应该是资源。

我自己发现的

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