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

Zellen aller Dateien in einem Ordner auslesen

Forumthread: Zellen aller Dateien in einem Ordner auslesen

Zellen aller Dateien in einem Ordner auslesen
21.06.2018 18:48:03
schoko
hallo forum!!
ich bin ein makro-neuling und möchte gerne folgendes via makro ausführen:
in einem ordner befinden sich unzählige dateien.
ich möchte aus jeder datei (jede datei hat ein register das irgendwie heisst) die inahlte der befüllten zellen in ein leeres blatt übernehmen.
wenn eine datei ausgelesen wurde, soll alles aus der nächsten datei unten angehängt werden usw bis alle datein ausgelesen wurden!?
bitte um hilfe!
danke!
schoko
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen aller Dateien in einem Ordner auslesen
21.06.2018 19:38:23
Michael
Hallo!
zB so:
Sub a()
Dim WbZ As Workbook, WbQ As Workbook
Dim WsZ As Worksheet, WsQ As Worksheet, Pfad$, Datei$
Application.ScreenUpdating = False
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Bitte Verzeichnis wählen"
.AllowMultiSelect = False
If .Show  -1 Then
MsgBox "Vorgang abgebrochen", vbInformation
Exit Sub
Else: Pfad = .SelectedItems(1) & "\"
End If
End With
Set WbZ = Workbooks.Add(template:=xlWBATWorksheet)
Datei = Dir(Pfad & "*.xls*", vbDirectory)
Do Until Datei = vbNullString
Set WbQ = Workbooks.Open(Pfad & Datei)
Set WsQ = WbQ.Worksheets(1)
Set WsZ = WbZ.Worksheets(1)
WsQ.UsedRange.Copy WsZ.Cells(WsZ.Rows.Count, 1).End(xlUp).Offset(1, 0)
WbQ.Close False
Datei = Dir
Set WbQ = Nothing: Set WsQ = Nothing: Set WsZ = Nothing
Loop
Set WbZ = Nothing: Set aL = Nothing
End Sub
LG
Michael
Anzeige
AW: Zellen aller Dateien in einem Ordner auslesen
21.06.2018 22:48:08
schoko
perfekt!!!
danke!!!

Forumthreads zu verwandten Themen

Dateien verschieben/löschen
Edgar

Hallo zusammen,
ich bräuchte mal die Hilfe der VBA Experten. Habe schon alle möglichen Threads durchgelesen, aber das was ich eigentlich will habe ich nicht gefunden.
Ich habe einen Ordner mit n Textdateien. Nun möchte ich alle Dateien, die älter als 39 Monate sind in ein Archiv verschi...
21.11.2020 15:04:51
Thread-ID: 1794720
2 Beiträge
Dateien speicherortunabhängig machen
Tobias

Hallo Leute,
ich suche nach einer Möglichkeit meine Exceldatei so klein und so unabhängig wie möglich zu machen. Hierbei tun sich für mich zwei Probleme auf.
Zum Einen habe ich Grafiken in Form von GIF-Dateien, die per "datei.Copy und datei.Paste" von einem ausgeblendeten Tabellenblatt...
23.02.2006 19:03:25
Thread-ID: 736905
3 Beiträge
CSV-Import
Volker

Hallo Zusammen,
ich habe folgenden VBA-Code um CSV-Dateien zu Importieren gefunden. Das Importieren der ersten CSV-Datei ist auch soweit i.o.
Die zweite CSV soll nun aber nicht in ein neues Tabellenblatt sondern auf dem aktuellen Sheet unten angehängt werden.
Hat vielleicht von Euch...
07.03.2014 10:10:54
Thread-ID: 1352546
1 Beitrag
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
Dateien aus Ordner erkennen
Martin
Hallo zusammen,
ich habe einen Ordner, wo txt Dateien automatisch zur Weiterverarbeitung abgelegt werden.
zb. 19283.txt, 19284.txt, 19305.txt
Nach der Verarbeitung werden sie in einen Unterordner verschoben.
Nun würde ich ungern bruteforcemäßig alle Dateinamen raten und vba schauen l...
08.07.2021 17:55:18
Thread-ID: 1838338
9 Beiträge
BEREICH.VERSCHIEBEN per VBA ändern
u_hoernchen

Ihr lieben,
ich habe das Internet schon durchsucht, aber noch keine wirliche Lösung gefunden:
In meiner Datei (die es leider 70 mal gibt mit jeweils 36 identischen Blättern) gibt es Felder, auf denen eine Gültigkeitsprüfung liegt. Diese Gültigkeitsprüfung ist eine BEREICH.VERSCHIEBEN-Fo...
18.03.2014 10:43:43
Thread-ID: 1353875
2 Beiträge
Blätter in Mappe automatisch aktualisieren.
Stephan

Hallo. Ich hatte bis heute folgende Herausforderung :

Bezieht sich auf diese Nachricht:
Hallo !
Bin in Excel zwar kein Newbie, aber habe ein Problemstellung und komme nicht weiter. Möchte ein paar Excel-Tabellen, die ab und zu per Hand aktualisiert werden, in einer Mappe zusamme...
24.05.2005 18:18:26
Thread-ID: 615635
1 Beitrag
Blätter in Mappe automatisch aktualisieren.
Stephan

Hallo. Ich hatte bis heute folgende Herausforderung :

Bezieht sich auf diese Nachricht:
Hallo !
Bin in Excel zwar kein Newbie, aber habe ein Problemstellung und komme nicht weiter. Möchte ein paar Excel-Tabellen, die ab und zu per Hand aktualisiert werden, in einer Mappe zusamme...
24.05.2005 18:19:01
Thread-ID: 615636
2 Beiträge
VBA - Zellen in Master-Datei konsuldieren
Ruhrpottriot
Hallo zusammen,

leider ist mein Beitrag im Archiv gelandet, mein Problem ist aber noch nicht gelöst (Thorsten hat es prophezeit, dass das passiert). Daher schreibe ich ihn hier neu an. Habe in den Forum nix dazu gefunden, ob es eine Möglichkeit gibt den Beitrag aus dem Archiv wieder ins Leb...
12.12.2023 14:59:41
Thread-ID: 1957471
2 Beiträge
Dateien eines Ordners nach Zeit sortiert verarbeit
joko0803

Liebe Excel-Experten,
ich hatte vor einiger Zeit hier ein Problem eingestellt, das ich mit Eurer Hilfe lösen konnte. Gerne würde ich das nun "rund" machen, weiß aber nicht im Geringsten wie der Code dazu aussehen könnte.
Problem: Ich habe ca. 25 bis 40 Dateien (.xls in der Version 2) in...
07.03.2017 16:22:02
Thread-ID: 1545975
5 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2026 19:23:24
VBA - Blattschutz lässt sich mit Code nicht ausschalten
17.05.2026 13:47:03
Laufende Uhrzeit in einer Zelle
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
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum