Ich versuche zur Zeit einige Daten per Excel-Makro von MS Project zu importieren.
Der Code sieht so aus:
Sub Import ()
Dim Datei
Dim ProjApp As MSProject.Application
Dim T As Task
Dim xlCell As Range
Datei = Application.GetOpenFilename("Microsoft Project Datei (*.mpp), *.mpp")
If Datei = False Then
MsgBox "Keine Datei wurde ausgewählt."
Exit Sub
End If
Sheets(1).Visible = True
Sheets(1).Select
Range("A2:D501").Clear
Range("A2").Select
Set ProjApp = New MSProject.Application
ProjApp.Visible = False
ProjApp.FileOpen Datei
Set xlCell = Range("A2")
For Each T In ProjApp.ActiveProject.Tasks
If Not T Is Nothing Then
If Not T.Summary Then
xlCell.Value = T.WBS
Set xlCell = xlCell.Offset(1, 0)
End If
End If
Next T
ProjApp.FileClose pjDoNotSave
ProjApp.Quit
Set ProjApp = Nothing
AppActivate "Microsoft Excel"
Range("A1").Select
End Sub
Die Eigenschaft WBS ist ein Code und wird theoretisch als Text gespeichert.
Die entsprechende Werte die ich in Excel bekomme stimmen leider nicht mit den in MS Project überein.
MS Project / Excel
1.1 / 1,1
1.2 / 1,2...
1.10 / 1,1
1.11 / 1,11...
...
3.1.1 / 3.1.1... leider tauchen in diesen Zellen grüne Zeichen am linken Zellenrand auf mit
31.10 / 3.1.10 "Diese Zelle enthält Datumswert mit nur zweistelliger Jahreszahl", obwohl die Zellen schon als Text formatiert sind. Sonst wäre das nicht so schlecht.
Ich würde gerne die exakte WBS codes kriegen, genau so wie sie in MS Project erscheinen.
Ich hoffe dass jemand mir weiterhelfen kann.
Bedanke mich im Voraus.
Mit freundlichen Grüßen,
Juan.