Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Makro: Speichern mit aktuellem Dateinamen + Datum
zurück: Inkompatibilität Project 2010 und 2013??? weiter: Backward scheduling (SF) with various task relationships Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
der_toby
Im Profil kannst Du frei den Rang ändern


Verfasst am:
13. Feb 2012, 16:00
Rufname:

Makro: Speichern mit aktuellem Dateinamen + Datum - Makro: Speichern mit aktuellem Dateinamen + Datum

Nach oben
       

der_toby am 22. Aug 2011 um 15:09 hat folgendes geschrieben:
Hallo zusammen,

ich habe mir hier folgendes Makro gebastelt:
Code:
Sub PDF()
    DocumentExport FileName:="C:\[b]NAME_[/b]" & Format(Now, "yyyy_mm_dd") & ".pdf", IncludeDocumentProperties:=False, IncludeDocumentMarkup:=False
    FileSaveAs Name:="", FormatID:=""
End Sub
Hiermit will ich es vereinfachen, indem ich ein Makro habe und damit aus dem Projektplan PDFs speicher, die den Namen des Projekts tragen sowie das aktuelle Datum. Das mit dem Datum habe ich bereits hinbekommen. Aber wie/was muss ich machen, damit der Name vom Projektplan ausgelesen wird und hier mit abgespeichert wird?

Für jede Hilfe bin ich sehr dankbar!

Hallo Leute,

das ist wieder aktuell - weiß jmd. mehr und kann mir helfen?

Danke und Gruß,
Toby
GASTnewGAST
Gast


Verfasst am:
23. Jul 2012, 16:21
Rufname:


AW: Makro: Speichern mit aktuellem Dateinamen + Datum - AW: Makro: Speichern mit aktuellem Dateinamen + Datum

Nach oben
       

GASTnewGAST am 23. Jul 2012 um 15:46 hat folgendes geschrieben:
Hallo zusammen,
habe dasselbe Problem wie "der_toby".
Ich bekomme im Dateinamen einfach nicht das Datum mit unter.
Code:
Sub speichern()
'
' speichern des Dokuments als PDF
    ActiveSheet.PageSetup.PrintArea = "$A$1:$M$44"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & Format(Range("B45"),Now,  "yyyy-mm-dd") & ".pdf", _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub
Ich bekomme immer nur den Namen aus Range (B45)

Wenn ich die zwei Argumente tausche erhalte ich nur das Datum aber der Name aus der Range fehlt.

Bin am verzweifeln! HELP!

Hallo zusammen,

Anbei meine Lösung.
Nach Stunden hab ichs dochhingekriegt!
Code:
Sub speichern()
' speichern des Dokuments als PDF
    Dim Neuname As String
    Dim Datum As String

    Neuname = Worksheets("ProjectData").Range("A2")
    Datum = Format(Now, "yyyy_mm_dd")
    ActiveSheet.PageSetup.PrintArea = "$A$1:$M$44"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & Datum & " - " & Neuname & ".pdf", _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub
Have FUN!
Gast



Verfasst am:
04. Apr 2013, 08:44
Rufname:

AW: Makro: Speichern mit aktuellem Dateinamen + Datum - AW: Makro: Speichern mit aktuellem Dateinamen + Datum

Nach oben
       

Hallo,

ich belebe diesen Thread mal, da ich ein ähnliches Problem habe.

Ich möchte ein geöffnetes Projekt von "MS Project 2010 Server" als Datei in einem lokalen Ordner ablegen. Der Pfad ist immer der Selbe und der Dateiname übernommen werden.
Ich zeichne mir also das Makro für die Datei Test auf und es sieht so aus:
Code:
Sub dateiexport()
' Makro zum Export in eine lokale mpp.-Datei
' Makro am 04.04.2013 von [user] aufgezeichnet.
    FileSaveAs Name:="U:\Pfad\Pfad\Sicherungen\Test.mpp", FormatID:="MSProject.MPP"
    FileCloseEx
End Sub
Blöderweise ist der Name der Datei bei der ich die Aufzeichnung mache gleich im Makro mit abgespeichert. Daher bekomme ich wenn ich es in einem anderen Projekt ausführe immer die Meldung,dass bereits eine Datei mit dem Namen besteht.
Wie bringe ich dem Makro nun bei, dass es immer den Namen vom aktuellen Projekt zum Speichern verwendet?

Vielen Dank schon mal im Voraus
c3po-r2d2
Projectmanager


Verfasst am:
09. Apr 2013, 11:35
Rufname: Klaus
Wohnort: Alsdorf

AW: Makro: Speichern mit aktuellem Dateinamen + Datum - AW: Makro: Speichern mit aktuellem Dateinamen + Datum

Nach oben
       

maches mal kurz und schmerz los....
bei mir sieht es immer so aus:
Code:
    Dim pr As Project
    Dim myPath As String
    Dim myProjectName As String
    Dim myFileName As String
   
    Set pr = Application.ActiveProject
    myPath = pr.Path
    myProjectName = pr.name
    myFileName = myPath + "\" + myProjectName + "usw..."

Gruss
Klaus

_________________
Successful project managers have perfected the skill of being comfortable being uncomfortable.
(Feedback ist Balsam für die Seele Wink )
SimoneSch
Gast


Verfasst am:
16. Apr 2014, 14:44
Rufname:


AW: Makro: Speichern mit aktuellem Dateinamen + Datum - AW: Makro: Speichern mit aktuellem Dateinamen + Datum

Nach oben
       

Mit grosser Begeisterung bin ich auf die Lösung gestossen. Jedoch klappt dies nur beim ersten file. Dh. ich hab ein dropdown Menu mit allen Ländern bei denen alles immer angepasst wird. Jetzte will ich ein Makro das automatisch diese pdf speichert und am besten noch drückt.
Code:
Sub speichern()
' speichern des Dokuments als PDF
    Dim Neuname As String
    Dim Datum As String

    Neuname = Worksheets("Invoice IC interest loan").Range("I4")
    Datum = Format(Now, "yyyy_mm_dd")
    ActiveSheet.PageSetup.PrintArea = "$A$1:$f$54"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF _
                                  , FileName:=CreateObject("WScript.Shell").SpecialFolders("Desktop") _
                                  & "\" & Datum & " - " & Neuname & ".pdf" _
                                  , IncludeDocProperties:=True _
                                  , IgnorePrintAreas:=False _
                                  , OpenAfterPublish:=True
End Sub
Soweit bin ich gekommen und die erste Rechnung vom dropdown Menü wird erstellt. Was muss ich machen das die restlichen 32 auch nochh erstellt werden?

Danke und Gruss
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge MS Project Forum: Berechnete Dauer zu festem Datum addieren 3 bzin 708 25. Mai 2012, 15:06
Matthias Schäfer Berechnete Dauer zu festem Datum addieren
Keine neuen Beiträge MS Project Forum: Makro aus Projekt 2010 in Projekt 2000 zum laufen bringen 0 _Manuela_ 910 01. Apr 2012, 23:54
_Manuela_ Makro aus Projekt 2010 in Projekt 2000 zum laufen bringen
Keine neuen Beiträge MS Project Forum: PDF speichern in 1 Seitengrösse 1 Flinkx 2757 03. Feb 2012, 13:57
CodeRed PDF speichern in 1 Seitengrösse
Keine neuen Beiträge MS Project Forum: Auf Bildveränderung reagierendes Makro 1 kmikesch 606 15. Apr 2011, 14:14
Simineon Auf Bildveränderung reagierendes Makro
Keine neuen Beiträge MS Project Forum: Zeitachse nicht mehr benutzbar nach Speichern im 2010-Format 2 jschlinker 1529 11. März 2011, 13:35
jschlinker Zeitachse nicht mehr benutzbar nach Speichern im 2010-Format
Keine neuen Beiträge MS Project Forum: Balkenplan steht beim Öffnen an einem falschen Datum 0 Ron23 1301 19. Jan 2011, 11:53
Ron23 Balkenplan steht beim Öffnen an einem falschen Datum
Keine neuen Beiträge MS Project Forum: Wenn Task 100% abgeschlossen, soll ein Makro ausgeführt wer. 4 martinx 1230 21. Jul 2010, 14:56
martinx Wenn Task 100% abgeschlossen, soll ein Makro ausgeführt wer.
Keine neuen Beiträge MS Project Forum: Namen beim Speichern vorbestimmen 0 Cabaalo 413 09. März 2009, 17:13
Cabaalo Namen beim Speichern vorbestimmen
Keine neuen Beiträge MS Project Forum: Immer aktuelles Datum im Filter setzen 1 Paul Neumann Pegnitz 2772 14. Nov 2008, 18:39
abbe-b Immer aktuelles Datum im Filter setzen
Keine neuen Beiträge MS Project Forum: Spaltentitel dauerhaft speichern 2 MagixG23 607 30. Okt 2008, 16:00
Gast Spaltentitel dauerhaft speichern
Keine neuen Beiträge MS Project Forum: Datum am Balkenende "Ende" mit des Jahr, bzw. 24.0 1 Gast Antonia 1523 04. Sep 2008, 15:01
Gast Datum am Balkenende "Ende" mit des Jahr, bzw. 24.0
Keine neuen Beiträge MS Project Forum: Projectserver Absturz beim Speichern 0 Janus-der-1ste 915 31. Jul 2008, 10:18
Janus-der-1ste Projectserver Absturz beim Speichern
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA