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
Anzeige
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 23: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 12: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 12:50:29
Martin
Hallo, vielen Dank dafür. Das hilft mir weiter. VG Martin

Forumthreads zu verwandten Themen

CSV auftrennen und kopieren
Christian

Hallo. Ich bin dabei verschiedene Markos hintereinander zu schalten, um immer wiederkehrende Abläufe zu automatisieren. Aufgrund meiner geringen Erfahrung zeige ich, was ich bisher zusammengeschustert habe und schreibe unter den Makros was mir noch fehlt.
Makro 1. Öffnen der CSV Dateien ein...
02.05.2017 17:52:14
Thread-ID: 1555829
3 Beiträge
Sammelbearbeitung von Dateien
Dateien

Hallo Zusammen,
ich benötige eure Hilfe.
Ich erstelle gerade ein Modul, mit dessen hilfe alle gleichartig aufgebauten Excel-Dateien eines Verzeichnisses bearbeitet werden sollen. Leider komme ich im Programmablauf nicht weiter.
Dateiaufbau:
10 Sheets mit den Jahren 2000 bis 2009...
29.09.2008 13:30:41
Thread-ID: 1013052
4 Beiträge
Anzeige
Kopieren&umbenennen von Dateien mit VBA
Dateien

Moin,
verflixt, ich habe hier einen super Tip bekommen, wie ich vernünftig Dateien (mit einem T am Ende) unter VBA kopieren kann.
Dim sr As Scripting.FileSystemObject v0 = "c:\prog\testfiles" TNetzCopy "\\pc1\i1\*T ", v0, "1" und dann weiter mit der SUB Private Sub TNetzCopy(QuellPC As...
02.09.2013 10:49:00
Thread-ID: 1329147
1 Beitrag
Anzeige
AutoFilter/Remove Hidden Rows + Werte
Sassi
Hallo Zusammen,

ich verzweifle aktuell an einer Programmierung.

Ziel der Sache:
Durch Klick auf den Button "Report starten" im Tabellenblatt "Partnerübersicht" soll

1. Pro Kundennummer der Datenbasis im Tabellenblatt "Gesamtplanung" eine neue .xls-Datei gespeichert w...
21.04.2023 10:05:44
Thread-ID: 1928288
1 Beitrag
Makro Absturz beim zweiten Ausführen
Tobias
Hallo, ich bin noch relativ neu in der VBA Programmierung, darum bitte ich um Nachsicht.

Hier das Problem: Ich habe eine Liste, aus welche Daten für ein Protokoll in einem seperaten Tabellenblatt gezogen werden. Dieses Protokoll soll in ein separates Dokument kopiert werden, allerdings nur...
15.06.2023 17:32:39
Thread-ID: 1933893
10 Beiträge
Zellbereich prüfen, ob Inhalt vorhanden ist
Matze

Hallo,
ein paar grundlegende Erfahrungen mit VBA habe ich schon gemacht, so dass ich das ein oder andere Verstehe, wenn ich einen Code sehe. Zum selber programmieren ist es aber noch ein weiter Weg und hoffe so auf eure Hilfe.
Ich habe ein Makro, mit dem ich mehrere Tabellen in einer zu...
01.02.2017 08:31:27
Thread-ID: 1538645
2 Beiträge
Anzeige
VBA erweitern
Susi

Hallo zusammen,
ich wurde schon einmal geholfen und hoffe jetzt das mir jemand weiterhilft.
Ich habe folgenden Code: Private Sub CommandButton2_Click() Dim ablagepfad As String Dim dateiname As String Dim pfaderledigt As String Dim zieldatei As Object Dim quelle As Object Dim letztezeil...
19.07.2016 12:39:36
Thread-ID: 1505173
5 Beiträge
Leere Zeilen überspringen in Makro
Patrick
Hallo zusammen,
UweD hatte mir vor einigen Tagen sehr weitergeholfen und mir einen VBA-Code zur Verfügung gestellt, der automatisiert Dateien kopiert und nach einem bestimmten Muster umbenenennt. Dabei wird folgender Code genutzt.
Option Explicit Sub Umbenennen() Dim Dlg As FileDialog, FSO...
15.12.2021 09:41:04
Thread-ID: 1861685
2 Beiträge
Datei im Ordner umbenennen wenn
udo

Hallo Profis,
bräuchte bitte eure Hilfe bei folgendem Code.
Sub Lagerbestand_XLS_umbenennen() ' ======================================================================================== _ _ _ Dim Pfad As String Pfad = Sheets("BZG").Range("J2").Value Name = Dir(Pfad) Application.D...
27.01.2021 11:28:04
Thread-ID: 1808634
10 Beiträge
beliebige Dateien umbenennen
Peter

Hallo, Excel-Experten,
ich habe ein Problem in einer Excel / VBA - Anwendung. Ich möchte programmgesteuert Bilddateien (.jpg) umbenennen entsprechend eines jeweiligen Projektnamen. Es genügte auch, eine neue Datei mit SaveAs zu erstellen. Aber alle entsprechenden Befehle beziehen sich auf W...
29.06.2010 16:13:17
Thread-ID: 1164556
2 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum