Von Excel aus TimeScaleData einer Ressource in MS Project auslesen

03/04/2015 - 19:09 von michel | Report spam
Hallo!

ich möchte gerne für eine Ressource in einem bestimmten Zeitraum die zugewiesene Arbeit auslesen.
Das mit der Ressource klappt, aber den Zugriff auf TimeScaleData bekomme ich nicht hin.

Kann mir jemand weiterhelfen?

Public Sub Project_Lesen()

Dim objMSProject, tsv As Object
Dim resCount As Integer
Dim tsvCount As Integer
Dim resName As String

Set objMSProject = GetObject(PathName:="D:DatenTest.Mpp")
For resCount = 1 To objMSProject.Resources.count
resName = objMSProject.Resources.Item(resCount).name
Worksheets("Project").Cells(resCount + 1, 1) = resName
==> hier fehlt mir der richtige SET-Befehl (Laufzeitfehler 1101)
Set tsv = objMSProject.Resources(resName).TimeScaleData("01.01.15", "30.06.15", Type:=pjResourceTimescaledWork, TimescaleUnit:=pjTimescaleDays)
===> hier sollte der Zeitraum gelesen werden
For tsvCount = 1 To tsv.count
Debug.Print ...
Next tsvCount
Next resCount
Set objMSProject = Nothing
End Sub
 

Ähnliche fragen