MS Project zu Excel
27.04.2016 14:55:57
Manfred
habe das Makro im Forum gefunden.
Kann man das Makro so umbauen daß der Ausdruck der Daten erst in Zelle B2 beginnt.
Jetzt ist der Beginn in Zelle A1. Wenn ich i=1 auf 2 umstelle fehlt der erste Eintrag aus MS-Project.
Ich brauche noch eine direkte Auswahl der MPP-Datei, geht das auch ?
Mit freundlichen Grüßen
Manfred
Sub Spalten_auslese_Original()
Dim prj As Object
On Error Resume Next
Set prj = CreateObject("msproject.application")
If Err = 429 Then
MsgBox "MSproject ist nicht installiert"
End If
prj.FileOpen Name:="C:\Project_Name.mpp", ReadOnly:=False, FormatID:="MSProject.MPP"
For i = 1 To prj.Application.ActiveProject.Tasks.Count
Range("A" & i).Value = prj.Application.ActiveProject.Tasks(i).ID
Range("B" & i).Value = prj.Application.ActiveProject.Tasks(i).Name
Range("C" & i).Value = prj.Application.ActiveProject.Tasks(i).Start
Next i
End Sub