AW: Von Excel Daten aus MS Projekt importieren
23.11.2011 13:30:40
Nepumuk
Hallo,
1. Ja es ist zwingend erforderlich dass das Programm installiert ist.
2. Ein kleines Beispiel (für Project 2003 da ich 2007 nicht installiert habe)
Public Sub Test()
Dim objApplicationMSP As Object, objMSProjectPlan As Object
Dim strPath As String
Dim lngTaskCounter As Long
strPath = "D:\Eigene Dateien\MS-Projekte\IT-Unterstützung IH-M 2007_09_14_09_58_35.mpp"
Set objApplicationMSP = CreateObject(Class:="MSProject.Application")
If Not objApplicationMSP.FileOpen(Name:=strPath, ReadOnly:=True) Then _
Err.Raise Number:=vbObjectError, _
Description:="Fehler beim Öffnen des Projektplanes " & strPath & "''."
Set objMSProjectPlan = objApplicationMSP.ActiveProject
With objMSProjectPlan.Tasks
For lngTaskCounter = 1 To objMSProjectPlan.Tasks.Count
If Not .Item(lngTaskCounter) Is Nothing Then
If .Item(lngTaskCounter).Milestone Then
MsgBox .Item(lngTaskCounter).Start & " / " & .Item(lngTaskCounter).Finish
'hier musst du schauen welche Namen deine Felder haben
End If
End If
Next
End With
objApplicationMSP.Quit
Set objMSProjectPlan = Nothing
Set objApplicationMSP = Nothing
End Sub
Gruß
Nepumuk