Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1888to1892
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
Inhaltsverzeichnis

VBAAlle Exceldatein nacheinan Abarbeiten

VBAAlle Exceldatein nacheinan Abarbeiten
10.07.2022 08:01:24
Peter
Hallo an Alle VBA Profis
Als VBA leihe habe ich Folgendes Problem:
Alle Excel-Datein eines Ordners nacheinander Abarbeiten VBA
In Einem Ordner sind ca. 150 Excel-Dateien mit Makro (alle Dateien sind gleich Aufgebaut) diese sollten mittels VBA nacheinander abgearbeitet werden.
Öffnen, Aktualisieren (Datenabruf Power-Quere) nach beenden der Abfrage gespeichert und geschlossen werden.
Nach der letzten abgearbeiteten Datei sollte eine Meldung erfolgen.
Ich arbeite mit Excel 2019
Für eure bemühen im Voraus besten Dank

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBAAlle Exceldatein nacheinan Abarbeiten
10.07.2022 10:51:05
Daniel
Hi
Im Prinzip so

Dim Datei AS String
Dim WB AS Workbook
Dim Pfad AS String
Pfad = "C:\...\...\" '--- Ordnerverzeichnis in dem die Dateien liegen
Datei = Dir(Pfad & "*.xlsm") '--- Endung ggf anpassen
Do Until Datei = ""
Set WB = Workbooks.Open(Pfad & Datei)
'--- hier dann der Code zum Bearbeiten der Mappe
WB.save
WB.Close
Datei = Dir()
Loop
Gruß Daniel
AW: die benannte Formel: _Umgeb ...
10.07.2022 11:29:04
Peter
Hi Daniel
Vorerst Danke für deine schnelle Antwort
Werde es heute Abend Testen
noch einen schönen Sonntag
Freundliche Grüße
Peter
AW: die benannte Formel: _Umgeb ...
10.07.2022 14:45:38
Peter
Hi Daniel,
Hab den VBA Code ins Modul eingegeben und in eine Sub End Anweisung eingebunden
Leider funktioniert es nicht.
Ich komme mit dem Code nicht klar.
1 Nach Workbooks.Open(Pfad & Datei) sollte die Datei geöffnet werde
Beim Öffnen der Datei habe ich eine Power Query Abfrage die sich automatisch aktualisiert
Ohne eine Code zur Bearbeitung
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige