Bestimmte Dateien öffnen und Makro ausführen

Sub DatenUpdaten() Dim aBook As Workbook Dim aSheet As Worksheet Dim zNr As Long solange nicht alle Dateien abgearbeitet wurden DATEI OEFFNEN Set aBook = ThisWorkbook Set aSheet = aBook.ActiveSheet NAMEN neuen WERT ZUORDNEN Datei speichern und schliessen End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub alle_Dateien_Verzeichnis() ' Dim Pfad$, Ext$, Datei$ Pfad = "C:\Temp\" 'Pfad des Verzeichnisses ggf. anpassen Ext = "*Erfassungstool*.xls" 'Dateiextension ggf. anpassen If Pfad = "" Then Exit Sub Else Datei = Dir(Pfad & Ext) Do While Len(Datei) > 0 Workbooks.Open Filename:=Pfad & Datei 'mach was damit Workbooks(Datei).Close SaveChanges:=False Datei = Dir() ' nächste Datei Loop End If End Sub

Hallo Uwe
Vielen Dank für den Input.
Die Auswertung der Codezeile "Datei = Dir(Pfad & Ext)" ergibt nichts "", so dass das Makro jeweils beendigt wird.
Im entsprechenden Ordner sind unter anderem die Dateien Erfassungstool_1.xls, Kopie von Erfassungstool_1.xls und Kopie (2) von Erfassungstool_1.xls enthalten.
Da bin ich ziemlich am Ende meines Lateins - kann mir da jemand weiterhelfen?
Danke
Peter
Option Explicit


Sub alle_Dateien_Verzeichnis() '
Dim Pfad$, Ext$, Datei$
Pfad = Application.ThisWorkbook.Path
Debug.Print Pfad
'Pfad = "C:\Temp\" 'Pfad des Verzeichnisses ggf. anpassen
Ext = "*Erfassungstool*.xls"       'Dateiextension ggf. anpassen
Debug.Print Ext
If Pfad = "" Then
Exit Sub
Else
Datei = Dir(Pfad & Ext)
Debug.Print Datei
Do While Len(Datei) > 0
Workbooks.Open Filename:=Pfad & Datei
'mach was damit
Sheets("Tabelle1").Activate
Range("A1").Value = "Danke"
Workbooks(Datei).Close SaveChanges:=True
Datei = Dir() ' nächste Datei
Loop
End If
End Sub

Sub alle_Dateien_Verzeichnis() ' Dim Pfad$, Ext$, Datei$ Pfad = Application.ThisWorkbook.Path Debug.Print Pfad Pfad = "C:\Temp\" 'Pfad des Verzeichnisses ggf. anpassen Ext = "*Erfassungstool*.xls" 'Dateiextension ggf. anpassen Debug.Print Ext If Pfad = "" Then Exit Sub Else Datei = Dir(Pfad & Ext) Debug.Print Datei Do While Len(Datei) > 0 Workbooks.Open Filename:=Pfad & Datei ' Diese Datei ist dann die aktive 'mach was damit Sheets("Tabelle1").Range("A1").Value = "Danke" Workbooks(Datei).Close SaveChanges:=True Datei = Dir() ' nächste Datei Loop End If End Sub

Beliebteste Forumthreads (12 Monate)

Bestimmte Dateien öffnen und Makro ausführen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bestimmte Dateien öffnen und Makro ausführen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread