Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1992to1996
1992to1996
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Dateien mit Datum im Dateinamen in Ordner verschieben

Forumthread: VBA - Dateien mit Datum im Dateinamen in Ordner verschieben

VBA - Dateien mit Datum im Dateinamen in Ordner verschieben
10.10.2024 21:11:11
Martin
Hallo,

ich habe verschiedene Excel-Dateien nach dem Schema "Job1_2024_10_08_09_16_55.xlsx". Für jeden Tag werden 24 dieser Tabellen erzeugt. Die Tabellen sollen aus einem Sammelordner in einen Ordner mit dem jeweiligen Datum sortiert werden (Ordnername = 2024-10-08). Für jeden weiteren Tag werden wieder 24 neue Tabellen erstellt, die wieder einsortiert werden müssen. Wie könnte man das am einfachsten realiserien?

VG Martin
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Dateien mit Datum im Dateinamen in Ordner verschieben
11.10.2024 10:24:57
MCO
Moin!

Eine VBA-Lösung, wo auch immer du die integrierst, könnte so aussehen: 



Sub Versuch_einzelne_Dateien_verschieben()



    Dim FSO As Object

    Dim searchfolder As Object

    Dim FI As Object

    Dim eachfil As Object

    Dim Neuer_Ordner As String

    Dim Ordn_nam As String



    Set FSO = CreateObject("Scripting.Filesystemobject")

    Set searchfolder = FSO.GetFolder("C:\TEMP\fotos") 'Ausgangsordner

    Neuer_Ordner = "C:\TEMP\Fotos\" 'übergeordneter Zielordner

    

    Set eachfil = searchfolder.Files             ' Dateien in der jeweiligen Root

    For Each FI In eachfil                       ' Schleife über alle Dateien

            

        Ordn_nam = Replace(Mid(FI.Name, 6, 10), "_", "-")

        If Dir(Neuer_Ordner & Ordn_nam, vbDirectory) = "" Then MkDir Neuer_Ordner & Ordn_nam

        pfad_neu = Neuer_Ordner & Ordn_nam & "\" & FI.Name

        Name FI As pfad_neu                  'Verschieben = umbenennen!

    Next FI

    Set eachfil = Nothing

    Set FSO = Nothing

    

End Sub


Gruß, MCO
Anzeige
AW: VBA - Dateien mit Datum im Dateinamen in Ordner verschieben
11.10.2024 10:50:29
Martin
Hallo, vielen Dank dafür. Das hilft mir weiter. VG Martin
;

Forumthreads zu verwandten Themen

Datum beim Export im Dateinamen
Herbert

Hallo,
bezüglich meines Beitrages zur Hinterlegung habe ich noch eine andere Idee. Der nachfolgende Code exportiert das jeweilige Tabellenblatt nach C:\temp. Dateiname ist der jeweilige Name der Registerkarte. Kann man hier beim Abspeichern das aktuelle Datum beifügen (Name der Registerkar...
21.10.2008 15:41:27
Thread-ID: 1018062
3 Beiträge
Anzeige
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Datei mit akt. Tagesdatum speichern. Wie?
stefan

hallo,
ich ändere fast jeden tag etwas an einer datei. wie kann ich beim speichern automatisch eine version mit dateiname_aktuelles_datum.xls anlegen?
danke für eure hinweise.
05.03.2009 14:54:05
Thread-ID: 1056872
2 Beiträge
Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
hab' ein kleines Problem:
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
13.03.2009 16:49:57
Thread-ID: 1059943
4 Beiträge
Datum in Dateinamen
Dieter

Hallo Excel-Freaks!
Aus einem Textfile erstelle ich per VBA eine .html mit folgendem Code:
fsDatei.CreateTextFile "C:\Dokumente und Einstellungen\User\Desktop\Project.html"
Wie kann ich nun das zum Zeitpunkt des Speicherns einer Datei jeweils gültige Systemdatum in den Dateinamen au...
26.05.2009 09:20:53
Thread-ID: 1077274
5 Beiträge
Datum und Zeit in Zelle einfügen
chris

Schönen Christtag!
Ich suche eine Lösung welche ich trotz googlen nichts geeignetes finden konnte.
Also: Wenn im Bereich F4:F100 neue Werte eingetragen werden, dann soll sich im Bereich L4:L100 in der gleichen Zeile das Datum (evtl. sogar mit Uhrzeit) neu eingetragen werden.
Für Hil...
25.12.2009 13:37:43
Thread-ID: 1125900
8 Beiträge
Datum und Zeit in Zelle einfügen
chris

Schönen Christtag!
Ich suche eine Lösung welche ich trotz googlen nichts geeignetes finden konnte.
Also: Wenn im Bereich F4:F100 neue Werte eingetragen werden, dann soll sich im Bereich L4:L100 in der gleichen Zeile das Datum (evtl. sogar mit Uhrzeit) neu eingetragen werden.
Für Hil...
25.12.2009 13:38:19
Thread-ID: 1125901
2 Beiträge
vor Einfügen einer csv-Datei Dateidatum prüfen | Herbers Excel-Forum
Jürgen
Hallo Excel - Forum,
habe ein Problem - schätzungsweise ein kleines - was ich durch Recherche nicht lösen konnte. Vielleicht könnt Ihr mir hier helfen:
Ich habe eine offene Arbeitsmappe in die ich eine csv-Datei einlesen möchte. Das ist soweit kein Problem. Ich möchte aber gerne, dass vor d...
14.01.2010 13:51:17
Thread-ID: 1129903
3 Beiträge
Anzeige
Excel mit Zeit & Datum speichern
Hajo
Hallo Kerstinwenn Du Dich mit VBA Auskennst kannst Du bestimmt folgendes Makro umarbeiten das beim speichern wirktin DieseArbeitsmappe
Gruß Hajo
14.04.2002 21:08:54
Thread-ID: 113230
3 Beiträge
Sicherheitscopy mit Datum speichern
marion

Hallo,
ich komme nicht mehr weiter.
Bitte um Hilfe.
Ich möchte vor abspeichern einer Datei eine Sicherheitscopy erstellen.
Dabei sollte die "letzte Sicherheitscopy" umbenannt werden, so das ich immer die letzten zwei Änderungen
als Sicherheitscopy gespeichert habe.
Gespe...
11.05.2010 00:49:45
Thread-ID: 1156524
3 Beiträge
Datum in Grafik einfügen
jens-claus

Hallo Excelfreunde,
kann ich in eine Grafik das Tagesdatum einfügen,
damit dieses beim Ausdruck der Grafik erscheint.
Besten Dank im voraus.
Jens
07.07.2010 09:56:08
Thread-ID: 1165878
4 Beiträge
Dateiname mit Datum
Bernd

Guten Morgen,
habe ein kleines Problem und finde keine Lösung.
Mein Code speichert eine Tabelle als CSV-Datei. In der Tabelle ist ein Datum das im Dateinamen mit ausgegeben wird. Das Datum in der Tabelle ist Text(!) in Form TT.MM.JJJJ. und soll in der Tabelle auch unverändert bleiben. I...
17.01.2011 08:45:21
Thread-ID: 1195928
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige