Hallo zusammen,
ich versuche mit VBA aus MS Project die Vorgang Einsatz Werte in Excel zu extrahieren, leider ohne Erfolg.
ich habe folgenden Code:
Sub ExportResourceUsageToExcel()
Dim FilePath As String
Dim Proj As Project
Dim Res As Resource
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Dim Row As Long
' Projekt setzen
Set Proj = ActiveProject
' Excel-Anwendung starten
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
' Kopfzeilen schreiben
xlSheet.Cells(1, 1).Value = "Ressource"
xlSheet.Cells(1, 2).Value = "Datum"
xlSheet.Cells(1, 3).Value = "Arbeit (h)"
' Durch alle Ressourcen gehen
Row = 2
For Each Res In Proj.Resources
' Sicherstellen, dass die Ressource gültig ist
If Not Res Is Nothing Then
' Daten in Excel schreiben
xlSheet.Cells(Row, 1).Value = Res.Name
xlSheet.Cells(Row, 2).Value = Res.Start
xlSheet.Cells(Row, 3).Value = Res.Work / 60 ' Minuten in Stunden
Row = Row + 1
End If
Next Res
' Datei speichern
FilePath = "C:\Temp\ResourceUsage.xlsx"
xlBook.SaveAs FilePath
xlBook.Close
xlApp.Quit
' Excel-Objekte freigeben
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
MsgBox "Export abgeschlossen! Datei gespeichert unter: " & FilePath, vbInformation
End Sub
Wo mache ich fehler?
Vielen Dank schonmal und viele Grüße
|