MS Project Server 2016 Daten mit Excel via VBA Makro in Excel 2010

RedCoin · 5. Februar 2019

Hallo

Vorab bin ich ein totaler VBA Anfänger. Also falls so eine Frage bereits gestellt wurde, tut es mir leid.

Zu meiner Frage:

Ist es möglich via Makro Projektnummern auf dem MS Projec Server abzurufen und mit den Projektnummer in Excel zu vergleichen?

Wenn die Projektnummer auf dem Server noch nicht vorhanden ist, soll ein neues Projekt mit den Daten aus Excel angelegt werden. Falls die Nummer vorhanden ist, sollen die Daten auf dem Server mit den aus Excel angepasst werden.

Ist so etwas Möglich oder denke ich zu komplex?

Ich habe bereits gelesen das es möglich ist MS Projekt über Excel zu starten.

Danke im Voraus

Barbara Henhapl

Hallo,

ja, das geht. Um welche Projektnummer geht es? Die Standardprojektnummer? Nur damit ich es richtig vorbereite ...

Viele Grüße

Barbara

Galin Karlov MSFT

Hallo RedCoin,

Bitte wende dich an
Technet Forum, denn dort können dir Spezialisten mehr über deine Anfrage helfen.

Mit freundlichen Grüßen,

Galin Karlov

Microsoft Office 365 Support Engineer

LucyDi

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

LucyDi

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

Barbara Henhapl

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

Hi,

willkommen im Windows Forum!

MS Project Server 2016 Daten mit Excel via VBA Makro in Excel 2010 - Similar Threads - Project Server 2016	Forum	Datum
Excel VBA / Makro Zoomen Excel VBA / Makro Zoomen: Hallo Zusammen,1.Ich würde gerne per VBA / Makro Button alle Tabellenblätter per click z.B. auf 100% Zoomen Folgenden Code Habe ich benutzt. Leider wird nur das Tabellenblatt auf 100% gesetzt...	Microsoft Office	3. Oktober 2022
VBA Excel, Daten aus einem Arbeitsblatt in ein anderes einfügen, Makro starten, nächste... VBA Excel, Daten aus einem Arbeitsblatt in ein anderes einfügen, Makro starten, nächste...: Hallo, ich habe eine Art Zahlungsprogramm erstellt. Jetzt will ich etwas neues hinzufügen. Vorab, ich habe auf dem ersten Tabellenblatt eine kleine Tabelle mit Datum, Name, Wert/Betrag und...	Microsoft Office	27. Januar 2021
Excel 2016 VBA. Excel 2016 VBA.: Hallo! Folgendes Problem: Ich hab ein kleines Makro geschrieben welches die Anzahl zweier Tabellenblätter auslest und die Zeilen Anzahl in Tab1 an Tab2 anpasst. Der Hintergrund ist in Tab1 ist...	Microsoft Office	20. Januar 2020
Makro-Recorder VBA Excel für Mac 2016 Makro-Recorder VBA Excel für Mac 2016: Guten Abend miteinander ! Kurze Frage bitte: In Excel für Mac 2016 gibt es beim Makro-Rekorder keine Wahlmöglichkeit zwischen absoluten- und relativen Verweisen - Ist dies ausschlaggebend für die...	Microsoft Office	20. Mai 2018
MS Project 2016 öffnen via VBA Makro im Excel 2016 MS Project 2016 öffnen via VBA Makro im Excel 2016: Hallo Ich habe ein Makro in MS Project 2016, dieses soll via Excel aufgerufen werden. Das Makro funktioniert im Project, nun hab ich mich ans Excel-Makro gemacht, jedoch kann ich da nicht mal MS...	Microsoft Office	20. August 2017
Verknüpfung MS Project mit Excel Verknüpfung MS Project mit Excel: Hallo zusammen, mein Problem sieht wie folgt aus. Ich würde gerne eine Verknüpfung zwischen MS Project und Excel schaffen. Ich habe eine große Project-Datei und um dies manuell zu ändern, dauert...	Microsoft Office	10. April 2017
Excel 2016, VBA Excel 2016, VBA: Ich habe ein VBA-Modul , in dem ich möglichst große Arrays brauche, erhalte aber schon bei 0,42GB die Fehlermeldung "Nicht genug Speicher". In Windows 7 bekam ich diese Meldung erst bei >2GB....	Microsoft Office	28. Oktober 2016

MS Project Server 2016 Daten mit Excel via VBA Makro in Excel 2010