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

VBA - Alle Dateien in Unterordner kopieren

Forumthread: VBA - Alle Dateien in Unterordner kopieren

VBA - Alle Dateien in Unterordner kopieren
03.10.2007 19:35:00
Fritz_W
Hallo Experten,
ich würde gerne aus einer geöffneten Exceldatei alle Dateien, die sich im Ordner der geöffneten Exceldatei befinden in sämtliche Unterordner dieses Ordners (nicht jedoch in weitere Unterverzeichnisse) kopieren.
Die Exceldatei aus der ich das Makro starte, sollte jedoch nicht kopiert werden.
Für eure Unterstützung bereits an dieser Stelle besten Dank.
mfg
Fritz

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Alle Dateien in Unterordner kopieren
04.10.2007 15:11:53
Tino
Hallo Fritz_W,
hier habe ich mal etwas für dich.

Sub neu()
Dim i As Variant, unterordner As Variant
Dim fso, f1 As Object
Dim strDateiName As String
Const verz = "c:\tino\"       'Kopieren von
Set fso = CreateObject("Scripting.filesystemobject")
Set f1 = fso.GetFolder(verz)
ChDir verz
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.Filename = "*.*" 'Datei Typ
.Execute
For Each unterordner In f1.subfolders
For i = 1 To .FoundFiles.Count
'hier Dateinamen extrahieren
strDateiName = Right(.FoundFiles(i), Len(.FoundFiles(i)) - InStrRev(.FoundFiles(i), "\"))
'und hier kopieren
If strDateiName = ActiveWorkbook.Name Then GoTo nächste:
FileCopy .FoundFiles(i), unterordner & "\" & strDateiName
nächste:
Next i
Next unterordner
End With
Set fso = Nothing
Set f1 = Nothing
End Sub


Gruss
Tino

Anzeige
AW: VBA - Alle Dateien in Unterordner kopieren
04.10.2007 18:40:54
Fritz_W
Hallo Tino,
bin eben von der Arbeit zurück und freue mich, dass sich doch noch jemand an diese - offensichtlich nicht einfache - Aufgabe gewagt hat. Vielen Dank für Deine Arbeit!!
Ich habe das Makro getestet, leider funktioniert es nicht.
Meine VBA-Kenntnisse reichen jedoch nicht aus, um die Ursache dafür zu erkennen. Das Makro "läuft endlos", und trotzdem wurde nicht eine einzige Datei in einen der - im meinem Testfall - 5 vorhandenen Unterordner kopiert.
Muss ich etwas beachten oder kannst Du Dir das Ganze erklären!
Gruß
Fritz

Anzeige
AW: VBA - Alle Dateien in Unterordner kopieren
04.10.2007 19:06:00
Tino
Hallo,
im Code musst du
c:\tino\ mit dem Pfad ersetzen !! wo deine Excel-Datei !! liegt,
am ende vom Pfad "\" nicht vergessen. (die Excel-Datei muss dort abgespeichert sein!!!)
Mit der Taste F8 kannst du dieses Makro in einzelschritten ausführen.
Bei For i = 1 To .FoundFiles.Count angekommen mit der Maus einfach über unterordner gehen nun müsste der Pfad zum Unterordner angezeigt werden. (alles ok?)
weider mit F8
bei FileCopy .FoundFiles(i), unterordner & "\" & strDateiName angekommen mit der Maus
über strDateiName gehen, nun muss die erste gefundene Dateiname angezeigt werden?
Sollte dies nicht gehen, müsstest du mir die Pfadstrucktur geben damit ich deine verhältnisse nachbauen kann.
MfG
Tino

Anzeige
AW: VBA - Alle Dateien in Unterordner kopieren
04.10.2007 20:16:00
Tino

Hallo,
hier die angepasste Variante, bei dieser musst du
den Pfad nicht mehr angeben.
 


Aber die Excel-Datei,
muss in dem Ordner gespeichert sein
wo sich die besagten Unterordner befinden!!!!!



Sub neu()
Dim i As Variant, unterordner As Variant
Dim fso, f1 As Object
Dim strDateiName As String, verz As String
verz = ActiveWorkbook.Path & "\"      'Kopieren von
Set fso = CreateObject("Scripting.filesystemobject")
Set f1 = fso.GetFolder(verz)
ChDir verz
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.Filename = "*.*" 'Datei Typ
.Execute
For Each unterordner In f1.subfolders
For i = 1 To .FoundFiles.Count
'hier Dateinamen extrahieren
strDateiName = Right(.FoundFiles(i), Len(.FoundFiles(i)) - InStrRev(.FoundFiles(i), "\"))
'und hier kopieren
If strDateiName = ActiveWorkbook.Name Then GoTo nächste:
FileCopy .FoundFiles(i), unterordner & "\" & strDateiName
nächste:
Next i
Next unterordner
End With
Set fso = Nothing
Set f1 = Nothing
End Sub


Gruss
Tino

Anzeige
Das war stark!
04.10.2007 20:34:38
Fritz_W
Hallo Tino,
mein Kompliment, funktioniert das jetzt prima!
Tolle Hilfe, vielen Dank!
Schönen Abend noch
Gruß
Fritz

Forumthreads zu verwandten Themen

Dateinamen aus Verzeichnis nach Excel kopieren
obelix-xxl

Hallo,
nachfolgenden Makro habe ich bei der Suche hier im Forum gefunden.
Es wäre schön, wenn mir Unterstützung geboten würde.
Für meinen Anwendungsfall benötige ich in einer Afrage, die
1.) Abfrage nach dem Unterverzeichnis im dem die zu kopierenden Dateinnamen stehen (Padangab...
08.10.2008 11:35:00
Thread-ID: 1014978
3 Beiträge
Anzeige
Dateinamen auslesen (aus Ordnernamen in Spalte)
Tobias

Dieses Script sollte eine Dateiliste erstellen, wenn der Ordner- bzw. Verzeichnisname in der Spalte A steht.
Quelle: https://www.herber.de/mailing/072499h.htm
Ich bekomme aber Laufzeitfehler 445. Objekt unterstützt diese Aktion nicht.
Woran kann das liegen? Benutze Excel 2007
08.02.2009 21:31:46
Thread-ID: 1048494
6 Beiträge
Ordner auswählen und dateinamen in listbox eintrag
Thomas

Hallo VBAler
Besteht die Möglichkeit über einen Button den Ordnerdialog aufzurufen, einen Ordner auswählen und anschließend die Dateinamen in diesem Ordner in eine Listbox einzutragen.
Ziel ist es dann in der Listbox einen Eintrag auszuwählen und über einen weiteren Button diese Dateie...
03.12.2009 14:06:51
Thread-ID: 1121529
2 Beiträge
Zelle aus allen Dateien eines Ordners "kopieren"
Holger

Hallo,
ich würde gerne folgendes machen:
Ein Ordner mit vielen Excel-Dateien (.xls).
Aus jeder dieser Excel-Dateien möchte ich, dass immer eine Zelle (b5) ausgewählt wird
und anschliessend diese Werte in einer Ausgabedatei ("Planung") untereinander ab Zelle (g4) geschrieben werd...
16.10.2011 12:04:11
Thread-ID: 1234070
3 Beiträge
Dateinamen aus einem Ordner in Tabelle schreiben
Markus

Hallo liebes Forum,
ich habe einen Ordner, in dem sich eine große Menge Bilddateien (.jpg) befinden.
Gibt es eine Möglichkeit per VBA, diesen Ordner auszulesen und die Dateinamen in eine Excel-Tabelle zu schreiben ?
Das Problem betrifft nur einen einzigen Ordner, so dass ich den P...
27.02.2013 17:52:39
Thread-ID: 1301378
2 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 08:49:00
Thread-ID: 1329147
2 Beiträge
Anzeige
Einen Dateinamen aus Ordner auslesn
F

Hallo zusammen.
Ich möchte gerne nur einen Dateinamen aus einem Ordner auslesen. Dies soll per VBA erfolgen. Ich habe einen Code gefunden, der allerdings alle Dateien ausliest: Sub DateinamenAuslesen() Dim fs As Object Dim fVerz As Object Dim fDatei As Object Dim fdateien As Object Dim str...
15.06.2016 09:00:59
Thread-ID: 1498965
5 Beiträge
VBA: Tabellenblatt in viele Dateien kopieren
Heimo

Hallo Leute,
habe folgendes Problem, dass ich gerne mit VBA lösen würde. Allerdings sind meine VBA-Kenntnisse eher bescheiden.
Habe einen Ordner in dem sich ca. 150 Exceldateien (= Fragebögen) befinden, die zwar unterschiedlich benannt sind, aber gleich aufgebaut. Zudem habe ich einen P...
11.10.2016 15:51:21
Thread-ID: 1519129
4 Beiträge
Dateien aus Ordner kopieren und umbennen_FSO
Max

Hallo,
ich stehe völlig auf dem Schlauch. Ich habe ein Programm geschrieben, welches Dateien aus einem Quellordner in einen Zielordner kopiert.
Das Programm soll wie folgt funktionieren:
1. Es wird eine Liste mit Ordnerpfaden abgearbeitet, welche es zu kopieren gilt (funktioniert b...
01.02.2017 08:23:20
Thread-ID: 1538652
2 Beiträge
Daten aus bestimmten Ordnern Kopieren
Michi

Hallo Excelianer,
Ich bin neu hier und hätte ein Problem. Wäre schön, wenn mir jemand von euch weiterhelfen könnte.
Gibt es eine Möglichkeit per VBA auf Unterordner zu zugreifen? Ich möchte ein einem Excelsheet die Namen der Unterordner eingeben und der VBA-CODE soll dann den Ordner öff...
24.02.2017 19:52:41
Thread-ID: 1543849
2 Beiträge
Dateinamen aus beliebigen Ordner in Excel auflist
Walez

Hallo!
folgendes Problem:
ich würde gerne alle Dateien (pdfs) die in einem bestimmten Ordner sind automatisch in Excel auflisten. Dafür will ich in einer Zeile den Pfad des Ordners eingeben und in mehrern Zeilen sollen dann die Dateinamen auftauchen. Ich weiß dass das ganze über Formeln...
17.05.2017 20:30:32
Thread-ID: 1558968
2 Beiträge
VBA Files aus Unterordnern kopieren
SIB

Hallo VBA-Experten,
Mein Problem ist folgendes:
Ich möchte Anhand von Werten einer Excel Datei Bilder aus verschiedenen Ordnern in einen anderen Ordner kopieren. Hierfür habe ich bereits diesen Code entdeckt. Sub copyfiles() 'Updateby Extendoffice Dim xRg As Range, xCell As Range Dim xS...
28.08.2018 11:01:37
Thread-ID: 1641921
10 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

VBA: Alle Dateien aus Unterordnern in einen Ordner kopieren

Schritt-für-Schritt-Anleitung

  1. Öffne die Excel-Datei, die als Hauptdatei dient und in deren Ordner die Dateien kopiert werden sollen.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Füge ein neues Modul hinzu: Klicke auf Einfügen > Modul.

  4. Kopiere den folgenden VBA-Code in das Modul:

    Sub neu()
   Dim i As Variant, unterordner As Variant
   Dim fso, f1 As Object
   Dim strDateiName As String, verz As String
   verz = ActiveWorkbook.Path & "\" 'Kopieren von
   Set fso = CreateObject("Scripting.filesystemobject")
   Set f1 = fso.GetFolder(verz)
   ChDir verz
   With Application.FileSearch
       .NewSearch
       .LookIn = verz
       .SearchSubFolders = False
       .Filename = "*.*" 'Datei Typ
       .Execute
       For Each unterordner In f1.subfolders
           For i = 1 To .FoundFiles.Count
               ' hier Dateinamen extrahieren
               strDateiName = Right(.FoundFiles(i), Len(.FoundFiles(i)) - InStrRev(.FoundFiles(i), "\"))
               ' und hier kopieren
               If strDateiName = ActiveWorkbook.Name Then GoTo nächste:
               FileCopy .FoundFiles(i), unterordner & "\" & strDateiName
               nächste:
           Next i
       Next unterordner
   End With
   Set fso = Nothing
   Set f1 = Nothing
End Sub

  5. Ändere den Pfad, falls nötig, indem du die Zeile verz = ActiveWorkbook.Path & "\" anpasst.

  6. Führe das Makro aus: Gehe zurück zu Excel, drücke ALT + F8, wähle neu und klicke auf Ausführen.

Häufige Fehler und Lösungen

  • Fehler: "Das Makro läuft endlos"
    Lösung: Überprüfe, ob der Pfad korrekt eingegeben wurde (verz = "c:\dein\pfad\"). Stelle sicher, dass die Excel-Datei im gleichen Ordner wie die Unterordner gespeichert ist.

  • Fehler: "Keine Dateien werden kopiert"
    Lösung: Achte darauf, dass die Suchoption SearchSubFolders auf False gesetzt ist, und dass der Dateityp in der Zeile .Filename = "*.*" korrekt angegeben ist.

Alternative Methoden

Wenn du keine VBA-Lösung nutzen möchtest, kannst du auch manuell alle Dateien aus einem Ordner kopieren:

  1. Öffne den Hauptordner im Explorer.
  2. Drücke Strg + A, um alle Dateien auszuwählen.
  3. Ziehe die Dateien in die gewünschten Unterordner.

Praktische Beispiele

  • Beispiel: Kopieren aller Dateien aus einem Ordner
    Wenn du alle Dateien aus einem Ordner in die Unterordner kopieren möchtest, kannst du die oben genannten Schritte mit dem entsprechenden VBA-Code nutzen, um sicherzustellen, dass die Dateien nicht doppelt kopiert werden.

Tipps für Profis

  • Verwende F8, um den Code Schritt für Schritt auszuführen: So kannst du genau verfolgen, was in jedem Schritt passiert und eventuelle Fehler leichter identifizieren.
  • Erstelle Backups: Bevor du den Code ausführst, mache immer eine Sicherungskopie deiner Dateien, um Datenverlust zu vermeiden.
  • Teste den Code zuerst in einer Testumgebung, bevor du ihn in einer produktiven Umgebung anwendest.

FAQ: Häufige Fragen

1. Wie kann ich alle Dateinamen aus einem Ordner kopieren?
Du kannst den VBA-Code anpassen, um nur Dateinamen zu extrahieren, anstatt sie zu kopieren.

2. Funktioniert das auch in Excel 2016?
Ja, der Code ist mit Excel 2016 und späteren Versionen kompatibel. Achte darauf, dass die entsprechenden VBA-Einstellungen aktiviert sind.

Beliebteste Forumthreads (12 Monate)

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