Das Archiv des Excel-Forums

Alle Dateien in einem Unterordner öffnen


Betrifft: Alle Dateien in einem Unterordner öffnen
von: David

Geschrieben am: 12.09.2019 12:57:59
Hallo zusammen,

folgender Sachverhalt:

In meinen eigenen Dokumenten habe ich einen Unterordner "Test".
In diesen Ordner kommen Dateien rein, welche schreibgeschützt sind.
Nun wurde bisher immer, wenn alle Dateien in dem Ordner abgelegt sind, jede einzelne Datei geöffnet und manuell ein Makro abgerufen, welches den Schreibschutz wieder entfernt, damit man die Dateien bearbeiten kann.

Nun zu meiner Frage:

Gibt es einen Code, welcher sagt, öffne Datei 1 unter Pfad "C:\Users\m\Documents\Test", rufe Makro Blattschutz_entfernen () auf, speichere die Datei ab und öffne Datei 2. So sollte im Idealfall alles durchlaufen, bis jede Datei wieder entsperrt ist.

Kann mir damit jemand weiterhelfen?

Vielen Dank!
David

Betrifft: AW: Alle Dateien in einem Unterordner öffnen
von: 1712673.html
Geschrieben am: 12.09.2019 13:06:30
Hallo David,

versuch mal:


Sub test2()
Application.ScreenUpdating = False
Dim Pfad As String, Datei As String
Pfad = "C:\Users\m\Documents\Test\"
Datei = Dir(Pfad & "*.xlsx")        'wenn xlsx Dateien
Do While Datei <> ""
Workbooks.Open Filename:=Pfad & Datei
With Workbooks(Datei)
Application.Run Workbooks(Datei) & "'!Blattschutz_entfernen"
End With
Datei = Dir()
Loop
End Sub
Gruss Torsten

Betrifft: AW: Alle Dateien in einem Unterordner öffnen
von: 1712674.html

Geschrieben am: 12.09.2019 13:07:16
hallo,
sowas wurde schon 100x gefragt.
Sub aaa()
dim strfile as string, wkb as workbook
strfile=dir("C:\Users\m\Documents\Test\*.xlsx")
do while strfile <>""
set wkb=workbooks.open(C:\Users\m\Documents\Test\" &strfile
call  Blattschutz_entfernen
wkb.close true
strfile=dir
loop
End Sub
Gruß
Rudi

Betrifft: AW: Alle Dateien in einem Unterordner öffnen
von: 1712675.html
Geschrieben am: 12.09.2019 13:09:29
Hallo,
Application.Run Workbooks(Datei) & "'!Blattschutz_entfernen"
Die Prozedur steht mit Sicherheit nicht in Workbooks(Datei), da es eine .xlsx ist.
Gruß
Rudi

Betrifft: AW: Alle Dateien in einem Unterordner öffnen
von: 1712677.html

Geschrieben am: 12.09.2019 13:10:25
Oh Hab vergessen zu schliessen. Sorry.

Sub test2()
Application.ScreenUpdating = False
Dim Pfad As String, Datei As String
Pfad = "C:\Users\torsten.wetzel\Downloads\"
Datei = Dir(Pfad & "*.xlsx")        'wenn xlsx Dateien
Do While Datei <> ""
Workbooks.Open Filename:=Pfad & Datei
With Workbooks(Datei)
Application.Run Workbooks(Datei) & "'!Blattschutz_entfernen"
.Close savechanges:=True
End With
Datei = Dir()
Loop
End Sub

Betrifft: AW: Alle Dateien in einem Unterordner öffnen
von: 1713635.html
Geschrieben am: 18.09.2019 12:25:11
Hallo Torsten,

sorry für die späte Antwort, aber funktioniert wunderbar!
Nun wollte ich mal noch fragen, gibt es eine Möglichkeit, dass man quasi einen "Oberordner" angibt in welchen dann mind. ein Unterordner sich befindet, ggf. hat dieser Unterordner auch nochmals Unterordner. Nun soll das Makro genau das selbe machen, also sprich
C:\Users\m\Documents\Test (Oberordner) öffnen, dann den ersten Unterordner C:\Users\m\Documents\Test\Test 2 öffnen, dort alle Datein öffnen, Makro laufen lassen und anschließend abspeichern.

Daraufhin soll Unterordner 3, C:\Users\m\Documents\Test\Test 3 geöffnet werden.
Hier gibt es bspw. einen Unterordner 4, C:\Users\m\Documents\Test\Test 3\Test 4, in welchem sich dann die Dateien befinden. Dort soll wieder das Procedere mit Makro abrufen, abspeichern etc. ablaufen.

Sprich nochmals zusammengefasst:

Es gibt einen Oberordner, C:\Users\m\Documents\Test,in welchem sich 3 Unterordner befinden.
Diese 3 Unterordner bestehen jeweils auch oftmals aus weiteren Unterordnern, aber in manchen sind auch die Dateien direkt in dem Unterordner abgelegt.

Das Makro soll also nun alle 3 Unterordner mit sämtlichen weiteren Ordnern darin durchackern, die Dateien öffnen, das Makro "Blattschutz" abrufen, abspeichern und schließen.

Ich hoffe es war einigermaßen verständlich formuliert :)

Vielen Dank!
Gruß,
David

Betrifft: AW: Alle Dateien in einem Unterordner öffnen
von: 1713964.html

Geschrieben am: 19.09.2019 19:23:24
Hallo Torsten,
habe nun mal den Code umgeschrieben, da die finalen Dateien mit Makros abgespeichert sind, also sprich .xlsm.
Datei = Dir(Pfad & "*.xlsx") 'wenn xlsx Dateien
Datei = Dir(Pfad & "*.xlsm") 'wenn xlsx Dateien
Funktioniert allerdings irgendwie nicht.
Wenn ich den Code in einzel Schritten durchgehe, springt der Code von
Do While Datei <> ""
zu End Sub direkt.
Und zu meiner Frage mit den verschiedenen Pfaden der Unterordner:
Eigentlich könnte ich doch alle Pfade in einer Excelübersicht auflisten (A1,B1,C1,...) und der Code ruft sich bei:
Pfad = "C:\Users\torsten.wetzel\Downloads\"
quasi hinten immer den nächsten Wert aus der Liste. Sprich er beginnt in A1, fügt den Pfad ein, lässt alles durchrattern, geht dann auf B1 usw.
Hoffe auch das ist verständlich formuliert.
Gruß,
David

Excel-Beispiele zum Thema "Alle Dateien in einem Unterordner öffnen"

Alle Dateien im Verzeichnis öffnen download Dateien listen download
400 leere Textdateien anlegen download XL-Dateien in UserForm listen download
XL5/7-Dateien nach XL8 konvertieren download Dateien aus Listbox auslesen und öffnen download
Excel-Dateien eines Ordners listen download Alle Dateien ab einem bestimmten Datum listen download
Alle Dateien eines Verzeichnisses drucken download Textdateien verbinden download
Serie von Dateien in das XL5/7-Format konvertieren download Verzeichnisbaum aufrufen und Dateien in ListBox auflisten download
Dateien einer Ordnerliste in einer Tabelle zusammenstellen download Daten aus allen Dateien eines Verzeichnisses zusammenführen download
Hyperlinks zu allen Excel-Dateien eines Verzeichnisses erstellen download Dateien in einem Verzeichnis und Unterverzeichnissen suchen download
XL-Dateien aus Haupt- und Unterverzeichnissen einlesen download Die Eigenschaft "Stichwort" in allen Dateien eines Ordners ändern download
Textdateien vergleichen und Unterschiede dokumentieren download Löschen von Dateien beim Schließen einer Arbeitsmappe download
Grafikdateien suchen download Erste Blätter aus allen Dateien eines Verzeichnisses sammeln download
Von allen Arbeitsblättern der Mappe HTML-Dateien anlegen download Textdateien auslesen und in Werte in Zellen eintragen download
Werte nach Gruppen aufteilen und in gesonderten Dateien speichern download Fragen aus Textdateien in UserForm-Label einlesen download
Text in Textdateien suchen und Fundzeilen in Tabelle ausgeben download Alle Dateien löschen, die älter als 30 Tage sind download
Dateien mit Angabe des Dateidatums mit Hyperlink listen download Dateien listen und gekennzeichnete öffnen download
UserForm-TextBoxes-Texte in Textdateien speichern download Tabellenblattinhalte in getrennten Textdateien speichern download
Dateien listen und Blätter in neue Arbeitsmappe kopieren download Bei Doppelklick Textdateien in Editor öffnen download
Dateiliste mit allen xl-Dateien und Hyperlinks erstellen download Aufruf von Textdateien protokollieren download
Textdateien mit einer Zeile in Tabelle einlesen download Alle Textdateien eines Verzeichnisses importieren download
Dateien öffnen, Verknüpfungen aktualisieren, speichern, schießen download Dateien suchen download
Dateien mit bestimmtem Inhalt suchen download Web-Seiten mit Excel95 öffnen download
Arbeitsmappe mit dem Namen des aktuellen Datums öffnen download Fußzeilen beim Öffnen eintragen download
Arbeitsmappe ohne Rückfrage nach Aktualisierung öffnen download Datei öffnen, deren Name in einer Zelle steht download
Beim Öffnen neue Symbolleiste download Symbolleisten beim Öffnen aus-, beim Schließen einblenden download
Geburtstagsmeldung bei Öffnen der Arbeitsmappe download Beim Öffnen einer Arbeitsmappe WAV-Datei abspielen download
Bei Doppelklick Ordner im Explorer öffnen download Beim Öffnen einer Arbeitsmappe neues Symbol in Formatsymbolleiste download
Beim Öffnen der Arbeitsmappe bedingt Datum eintragen download Tabelle mit der jeweils nächsten Kalenderwoche öffnen download
Arbeitsmappe öffnen, erstes Blatt drucken, Mappe schließen download Alle Arbeitsmappen eines Verzeichnisses öffnen download
Datei auswählen, öffnen und Formelsuchdialog anzeigen download Midi-Datei beim Öffnen einer Arbeitsmappe abspielen download
Vorlage auswählen und Arbeitsmappe öffnen download Aktuelle Geburtstage beim Öffnen der Arbeitsmappe anzeigen download
Beim Öffnen der Arbeitsmappe eine UserForm anzeigen download Beim Öffnen Menüleiste anlegen und auf "ganzen Bildschirm" schalten download
Beim Öffnen zweites Fenster erzeugen und anordnen download Beim Öffnen der Arbeitsmappe Passwort abfragen download
Bei Öffnen Standardschriftgröße prüfen und Zoom festlegen download Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen download
Arbeitsmappe 5 Sekunden nach dem Öffnen speichern und schließen download Prüfung, welche Zellen nach Öffnen verändert wurden download
Terminmeldung beim Öffnen der Arbeitsmappe download Beim Öffnen der Arbeitsmappe Email versenden download
Beim Öffnen PowerPoint starten und danach Mappe aktivieren download Beim Öffnen einer Arbeitsmappe erstes Blatt auswählen download
Bei Doppelklick gelinkte Arbeitsmappe öffnen download CD-Laufwerk öffnen und schließen download
Dateistrukturen in UserForm einlesen und Datei öffnen download Datei entsprechend der Eingabe des Dateinamens öffnen download
Dateinamen in UserForm-ComboBox einlesen und Datei öffnen download Arbeitsmappe öffnen und nach Beenden des Mausklicks schließen download
Das in einem Gültigkeitfeld ausgewählte Word-Dokument öffnen download Access-Datenbank öffnen und deren Makro starten download
Bei jedem Öffnen der Arbeitsmappe Wert um 1 erhöhen download Beim Öffnen Dialog mit Dateiname und Dateidatum download
Beim Öffnen der Arbeitsmappe Menü-ComboBoxes anlegen download Webseite öffnen und eine Schaltfläche mit Makro hinzufügen download
Meldung beim Öffnen und bei Zellauswahl in Spalte A download Warten, bis eine Datei geschlossen wird, dann öffnen download
Excel-Arbeitsmappe aus dem Internet öffnen und verschieben download Download und Öffnen einer Arbeitsmappe download
Beim Öffnen der Arbeitsmappe Bestellnummer eintragen download