Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1488to1492
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

MS Project zu Excel

MS Project zu Excel
27.04.2016 14:55:57
Manfred
Hallo zusammen,
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: MS Project zu Excel
27.04.2016 15:14:22
Nepumuk
Hallo,
so:
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"
        Exit Sub
    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 + 1).Value = prj.Application.ActiveProject.Tasks(i).ID
        Range("B" & i + 1).Value = prj.Application.ActiveProject.Tasks(i).Name
        Range("C" & i + 1).Value = prj.Application.ActiveProject.Tasks(i).Start
        
        
    Next i
End Sub

Gruß
Nepumuk

Anzeige
AW: MS Project zu Excel
27.04.2016 15:40:22
Manfred
Hallo Nepumuk,
eigentlich ganz einfach.
Noch ne Frage zum öffnen der MPP-Datei.
Geht das auch mit dem OpenFile Dialog zum auswählen ?
Recht herzlichen Dank
Gruß
Manfred

AW: MS Project zu Excel
27.04.2016 16:12:49
Nepumuk
Hallo,
teste mal:
Sub Spalten_auslese_Original()
    Dim prj As Object, vntFile As Variant
    
    On Error Resume Next
    Set prj = CreateObject("msproject.application")
    If Err = 429 Then
        MsgBox "MSproject ist nicht installiert"
        Exit Sub
    End If
    vntFile = Application.GetOpenFilename(FileFilter:="Project Files (*.mpp), *.mpp", _
        Title:="MS-Poject Datei öffnen")
    If vntFile <> False Then
        prj.FileOpen Name:=vntFile, ReadOnly:=False, FormatID:="MSProject.MPP"
        For i = 1 To prj.Application.ActiveProject.Tasks.Count
            
            Range("A" & i + 1).Value = prj.Application.ActiveProject.Tasks(i).ID
            Range("B" & i + 1).Value = prj.Application.ActiveProject.Tasks(i).Name
            Range("C" & i + 1).Value = prj.Application.ActiveProject.Tasks(i).Start
            
            
        Next i
    End If
End Sub

Gruß
Nepumuk

Anzeige
AW: MS Project zu Excel
27.04.2016 16:41:48
Manfred
Hallo Nepumuk,
alles bestens.
Vielen Dank für deine Hilfe.
Gruß
Manfred

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige