Speichern unter & alle alten Dateien in Archiv verschieben

Hey,
Ich habe bereits eine Makro, die die Excel ganz simpel speichert.
Hierbei habe ich den Datei-Pfad angegeben und Datum (Now, "yyyy-mm-dd") hinten drangehängt. (Siehe Code)

Jetzt will ich die Makro erweitern und suche nach einem Code, der mir alle Dateien, die älter sind, als die gerade gespeicherte, in einen Archiv-Odner "C:Beispiel\Pfad\ZZ_Archiv" verschiebt.

Ich hatte es zuvor mit FSO.MoveFile "C:\Beispiel\Pfad\Dateiname_ (...) probiert, bin dann aber an dem "alle Dateien vor heute" Datum/Format gescheitert.

Vielen Dank im Voraus.

Mein bisheriger Code:



Sub SpeichernUnter()



ActiveWorkbook.SaveAs "C:Beispiel\Pfad\Dateiname_" & Format (Now, "yyyy-mm-dd") & ".xlsm



End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Danke für die Antwort.

Im Ordner, in der die Datei gespeichert wird enthält viele andere Dateien. Ich möchte ausschließlich die ältere Version der gespeicherten Datei ins Archiv verschieben.

Also anhand dem Beispiel:

Im Ordner "C:\Beispiel\Pfad" liegt die Datei "Dateiname_2023-09-28". Nun ändere ich die Datei ein Tag später ab und führe meine bereits beschriebene Makro aus. Diese wird im selben Ordner als "Dateiname_2023-09-29" gespeichert.
Nun soll die Makro die alte Datei gleich ins Archiv verschieben. Die Datei "C:\Beispiel\Pfad\Dateiname_2023-09-28" soll also quasi zu "C:\Beispiel\Pfad\ZZ_Archive\Dateiname_2023-09-28" werden.
Am Besten wäre es, wenn alle anderen Dateien mit dem Namen "Dateiname_yyyy-mm-dd" , die vor dem 29.09. gespeichert wurden auch verschieben werden.

Sub SpeichernUnter() Dim OldFN As String OldFN = ActiveWorkbook.Name ActiveWorkbook.SaveAs "C:\Beispiel\Pfad\Dateiname_" & Format(Now, "yyyy-mm-dd) & ".xlsm" FSO.MoveFile "C:\Beispiel\Pfad\"OldFN".xlsm, "C:\Beispiel\Pfad\Archiv\"OldFN".xlsm" End Sub

Sub SpeichernUnter() Dim OldFN As String OldFN = ActiveWorkbook.Name ActiveWorkbook.SaveAs "C:\Beispiel\Pfad\Dateiname_" & Format(Now, "yyyy-mm-dd) & ".xlsm" FSO.MoveFile "C:\Beispiel\Pfad\" & "OldFN" & ".xlsm", "C:\Beispiel\Pfad\Archiv\" & "OldFN" & ".xlsm" End Sub

Sub SpeichernUnter() Dim OldFN As String OldFN = ActiveWorkbook.Name ActiveWorkbook.SaveAs "C:\Beispiel\Pfad\Dateiname_" & Format(Now, "yyyy-mm-dd) & ".xlsm" FSO.MoveFile "C:\Beispiel\Pfad\" & OldFN & ".xlsm", "C:\Beispiel\Pfad\Archiv\" & OldFN & ".xlsm" End Sub

Beliebteste Forumthreads (12 Monate)

Speichern unter & alle alten Dateien in Archiv verschieben

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Speichern unter & alle alten Dateien in Archiv verschieben

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread