Office: datei speichern unter Name und datum per vba

Hallo,
ich möchte eine Datei täglich archivieren unter C:\Eigene Dateien\Archiv.
Nun soll die Datei per Knopfdruck gespeichert werden und den Namen beibehalten. Es soll nur noch das Aktuelle Datum des Tages der speicherung angefügt werden.
Beispiel: Matbes heist die Datei die gespeichert wird.
Ich Archiv soll die Datei dann Matbes_12.08.2004.xls heisen.
Kann mir jemand dabei helfen? Ich habe schon im Forum gesucht aber noch nichts passendes gefunden.
Wer hat so ein VBA-MAkro greifbar oder kann mir eins erstellen.
Im vorraus vielen Dank für jede Hilfe.
Gruß Eric Palm

:)

 

Moin, Eric,

da sollte folgende Zeile reichen
Code:

wobei ich ddas Datum in umgekehrter Reihenfolge (also zuerst Jahr, dann Monat, dann Tag) bevorzuge...

 

Hallo Jinx,
klasse, aber wo gebe ich den Pfad ein? Bitte helfe mir auch damit noch.
Ich Danke dir schon mal im vorraus.
Der Pfad ist C:\Eigene Dateien\Archiv

Ich sollte das bestimmt schon können aber leider kann ich es nicht alleine. Mein Kenntnisse leben nur davon das ich weiss wo ich soetwas schon mal gebraucht hatte und das kann ich mir meistens umbasteln.

Danke und Gruß Eric

 

Tach Eric,

ergänze jinx' Variable "strFileName" um den Pfad:
strFileName = "C:\Eigene Dateien\Archiv\Matbes"
(Der Dateiname heißt in diesem Fall "Matbes_12.08.2004.xls")

 

Hallo,
irgendwas ist hier faul oder ich zu blöd. ( Ich denke das letztere )
Dieser Satz wird mir Rot geschrieben und es kommt die Meldung Syntaxfehler
ActiveWorkbook.SaveAs FileName;=strFileName & "_" & Format(Date, "dd.mm.yyyy")

Bei Mir steht der Code nun so:

Dim strFileName
strFileName = "C:\Eigene Dateien\Archiv\Matbes"
ActiveWorkbook.SaveAs FileName;=strFileName & "_" & Format(Date, "dd.mm.yyyy")

Was ist falsch? Hilfe

Gruß Eric

 

Moin, Eric,

weil der Moderator nicht erkannt hat, dass dort statt eines Semikolons ein Doppelpunkt stehen muss.... *frown.gif* (Das kommt dann von den Live-Antworten...)

 

Hallo Jinx und FixFoxx,
danke für die Hilfe. nur noch eine Frage dazu.
Mein Code:
Dim strFileName
strFileName = "C:\Eigene Dateien\Archiv\Matbes"
ActiveWorkbook.SaveAs Filename:=strFileName & "_" & Format(Date, "dd.mm.yyyyxls")

Setze ich das xls nicht hinten dran ist es keine EXCEL Datei.
Nun erscheint aber im Explorer der Name so: Matbes_12.08.2004xl0
Auch wenn ich die Datei wieder öffne steht als Name das gleiche wie oben beschrieben.

Warum steht am schluss eine 0 anstatt ein S? Was hat das zu bedeuten.
Ansonsten klappt der Code nun perfekt.

Ich bin ganz stolz auf mich das ich auch darauf gekommen bin das ein ; anstatt ein : in dem Code stand. Aber auch nur durch vergleich in dem ich ein Speichermakro aufgezeichnet hatte.

Danke für die Gedult die ihr mit mir habt
Gruß Eric

 

Moin, Eric,

wenn Du Dir ein Makro aufgezeichnet hast, wirst Du sicherlich auch dort festgestellt haben, dass die Erweiterung durch einen Punkt vom Dateinamen getrennt war:

Code:

 

Hallo Jinx,
Du hast mich erwischt.
ich danke Dir für Deine Hilfe.
Gruß Eric *Smilie