MS Project 2016 öffnen via VBA Makro im Excel 2016

Hallo Barbara

Ich hab nun den Pfad noch korrigiert, MS Project ist bei mir unter Program Files (x86) Office15 abgelegt. Nun hats funktioniert, auch ohne dass MS Project vorher schon offen ist.

Das ist toll, wenn die Dinge laufen.

Danke dir für deine Hilfe. Falls ich weitere Probleme habe würde ich ein neues Thema eröffnen.

Grüsse

Lucy

Hallo Barbara

Habe nun doch noch ein Problem; dass Makro funktioniert nur, wenn ich MS Project bereits mit dem Server-Profil geöffnet habe, ansonsten passiert einfach nichts. Der Save und CheckIn Befehl funktioniert auch nicht bzw. die Abfrage kommt trotzdem und muss
noch mit ok bestätigt werden.

Mein Makro sieht aktuell so aus, evtl. siehst du, was da noch falsch läuft.

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub OpenProjectServerFile()

Dim project_name As String

project_name = Sheets("Hilfstabelle").Range("D8").Value



Dim prj As Object

Dim sServer As String



On Error Resume Next

' Determine whether Project is already running.

Set prj = GetObject(, "MSProject.Application")

If prj Is Nothing Then

'Pfad auf Projectserver

sServer = "http://project.migros.net"

' vollständiger Aufruf für ProjectServer

' sServerString = "winproj.exe /s """ & sServer & """ /u """ _

' & sServerUser & """ /p """ & sServerPass & """"

' wenn /u und /p nicht angegeben werden dann Login über Win-Account

' String basteln. Aufpassen auf Leerzeichen im Aufruf-Pfad

sServerString = """C:\Programme\Microsoft Office\OFFICE11\" _

& "Winproj.exe"" /s """ & sServer & """"

' MSP starten

Shell sServerString

' Warten bis MSP da (Timingproblem)

Warten.Show 0

Sleep 5000

Warten.Hide

Set prj = GetObject(, "msproject.application")

End If

'

Dim pjApp As MSProject.Application

Set pjApp = New MSProject.Application

pjApp.Visible = True

'

pjApp.FileOpenEx Name:="<>\" & project_name & "", ReadOnly:=False

AppActivate "Microsoft Excel"

MsgBox "ok"

FileCloseEx Save:=pjSave, CheckIn:=True

pjApp.Quit

End Sub

Vielen Dank und Grüsse

Lucy

Hallo,

mit Project Server lautet der Befehl so:

FileOpenEx Name:="<>\Projektname", ReadOnly:=False

Wenn das Projekt also Test heißt, sieht das so aus:

FileOpenEx Name:="<>\Test", ReadOnly:=False

Und das Schließen so:

FileCloseEx Save:=pjSave, CheckIn:=True

Entsprechend aus Excel eben mit pjApp davor. Funktioniert es?

Viele Grüße

Barbara

Hallo

Vielen vielen Dank für die ausführliche und vor allem sehr gut funktionierende Lösung.

Ich habe das Makro eingefügt, den Pfad angepasst und es läuft ohne Fehlermeldung durch.

Die Frage ist nun; kann ich dies auch mit dem Project Server verwenden? Wenn ich mein Enterprise-Projekt öffne sehe ich den Pfad nicht, wo dieses abgelegt ist. Gibt es via vba auch eine Aktion um von einer entsprechenden ProjectServer Seite das dazugehörige
Projekt aufzurufen?

Vielen Dank und Grüsse

Lucy

Hallo Lucy,

ich habe gerade zu wneig Zeit für eine komplette Lösung. Aber mir fällt eins auf:

sServerString = """C:\Programme\Microsoft Office\OFFICE11\" _

& "Winproj.exe"" /s """ & sServer & """"

Das sieht mir sehr nach dem Pfad für Project 2007 aus . Mein Project 2016 (ClickToRun) liegt in "C:\Program Files (x86)\Microsoft Office\root\Office16\WINPROJ.EXE".

Bitte prüfen. Wenn das nicht das Problem war, bitte noch mal nachhaken, am Wochenende sollte ich wieder mehr Zeit haben.

Viele Grüße

Barbara