Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
512to516
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
512to516
512to516
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Öffnen aller Dateien im aktuellen Ordner

VBA: Öffnen aller Dateien im aktuellen Ordner
08.11.2004 22:44:08
Wolfgang
Hallo zusammen,
ich möchte mittels eines Makros in der Arbeitsmappe "Gesamt.XLS" alle andern im selben Verzeichnis befindlichen Arbeitsmappen öffnen, um deren Daten auszulesen und entsprechend zu verarbeiten. Die Anzahl sowie die Namen der zu öffnenden Arbeitsmappen variieren dabei ständig. Ich dachte deshalb, mit der "For each"-Anweisung weiterzukommen, aber "For Each Workbook In Application.ActiveWorkbook.Path" hat mich leider nicht weiter gebracht. Das ist doch sicher relativ einfach, oder? Vorab schon mal danke für jede Hilfe...
Gruß Wolfgang

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

Betreff
Datum
Anwender
Anzeige
AW: VBA: Öffnen aller Dateien im aktuellen Ordner
Ramses
Hallo
mal eine einfache variante, indem aus einer Tabelle immer eine Zeile an die letzte Position in der aktuellen Tabelle kopiert.

Sub Dateien_in_eine_Tabelle_zusammenfuehren()
Dim Datei As String
Dim Arbeitsmappe As String
Dim PFAD As String
PFAD = "d:\workarea\"
Datei = Dir(PFAD & "*.xls")
Application.ScreenUpdating = False
Arbeitsmappe = ActiveWorkbook.name
Do While Datei <> ""
Workbooks.Open Datei
Rows("6:" & ActiveWorkbook.ActiveSheet.Range("A65536").End(xlUp).Row).Copy _
Destination:=Workbooks(Arbeitsmappe).ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0)
ActiveWorkbook.Close False
Datei = Dir()
Loop
Application.ScreenUpdating = True
End Sub

Gruss Rainer
Anzeige
AW: VBA: Öffnen aller Dateien im aktuellen Ordner
Ulf
Anders, nicht Workbooks.Open, sondern mit GetObject, ist schneller und läuft
quasi im Hintergrund.
Ulf

277 Forumthreads zu ähnlichen Themen

Anzahl der Dateien in einem Ordner ermitteln
ray

Hallo,
Ich habe code um mir alle Dateien in einem Ordner anzeigen zu lassen.
Wie kann ich mir nur die Anzahl z. B. "5" ausgeben lassen?
viele Grüße aus Hamburg, immer noch diesig und kalt
ray
17.02.2005 10:29:16
Thread-ID: 570313
2 Beiträge
Anzeige
Suche Code zum umbenennen von Dateien
Dateien

Hallo,
ich suche reinen VBcode um die Dateien aus einem Ordner nach dem Dateierstelldatum umzubenennen. Und alles über UserForm ohne sheets.
Hat jemand das schon mal gemacht?
Viele Grüße aus dem mal sonnigen Hamburg
Ray
23.10.2008 15:59:58
Thread-ID: 1018718
6 Beiträge
Umbenennen von Windows-Ordnern aus VBA
Windows-Ordnern

Hallo!
Ich habe ein Problem mit umbenennen von Windows-Ordnern aus VBA.
In einem Ordner befinden sich viele Vorlagen-Ordner z.B Vorlage1, Vorlage2 usw.
Wie kann man immer den ersten (alphabetisch) Vorlage-Ordner zur Laufzeit umbenennen.
Da ich ja den vollen Ordnernamen vorher ni...
07.04.2009 13:21:31
Thread-ID: 1067383
8 Beiträge
Anzeige
Vba Markro für mehrere Dateien ermöglichen | Herbers Excel-Forum
BENNY
Hallo,
habe ein riesen Problem: Ich soll für meinen Arbeitgeber folgenden VBA Code umbauen. Momentan kann man mit Hilfe dieses Codes eine .fdf Datei einlesen und sie wir in Excel in Zeile 1 (Überschrift) und 2 (Werte) ausgelesen.
Mein Chef möchte nun, dass man mehrere Dateien einlesen kann...
13.01.2010 14:52:54
Thread-ID: 1129510
5 Beiträge
Ordnerpfad auflisten bestimmter Dateien
Andre´

Hallo alle zusammen,
kennt jemand eine Möglichkeit,
den Ordnerpfad in einer Exceltabelle aufzulisten mit entsprechenden Link
für alle Dateien mit der Endung xls.
Versteckt Dateien sollen auch mit angezeigt werden.

Das ganze soll auch unter Excel 2007 funktionieren.
19.05.2010 08:04:49
Thread-ID: 1157751
3 Beiträge
Umbenennen von Dateien in einem Ordner
Dateien

Hallo,
ich habe folgende Frage:
Ich nutze Excel 2007.
Ich habe einen Ordner mit über 100 Excel-Dateien. Diese sollen so umbenannt werden, daß an den vorhandenen und unterschiedlich langen Dateinamen vier Buchstaben angehangen werden sollen.
Gibt es eine Möglichkeit dieses zu aut...
04.06.2010 13:20:53
Thread-ID: 1160328
4 Beiträge
alle Dateien in einem Ordner umbenennen
Joachim

Hallo,
ich hab in einem Ordner ca. 400 pdf-Files. Diese muss ich jetzt umbenennen. Die Dateinamen beginnen immer gleich, erst 7 Zeichen, dann eine 14-stellige Nummer, dann der Rest, der aber unterschiedlich lang sein kann. Ich muss nun aus der 14-stelligen Nummer eine 15-stellige machen, sp...
02.08.2010 11:07:41
Thread-ID: 1169991
23 Beiträge
Dateien im Ordner unbenennen
bruno

Hallo zusammen
Ich habe einen Ordner, in dem eine Variable Anzahl von pdf-Dateien sind. Kann ich mit einem Macro alle Dateien unbennenen? (unter unbenennen meine ich in diesem Fall, den alten Namen verkürzen auf die ersten 14 Zeichen)
Gruess ond Danke
de Bruno
27.10.2010 13:19:04
Thread-ID: 1184116
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
3
5
7
2
4
2
3
22
4
13
2
1
1
2
3
5
2
1
1
1
7
1
2
1