Forumbeitrag
Excel-Version des Fragestellers:
2022
Erfahrungslevel des Fragestellers:
Excel gut - VBA gut
Hallo
in ein Modul
Sub alle_Dateien_Verzeichnis()
On Error GoTo Fehler
Dim Pfad$, Ext$, Datei$, SuchW$
Ext = ".xls*"
Pfad = "C:\Temp\" '**** mit \
SuchW = "*Juni*"
Datei = Dir(Pfad & SuchW & Ext)
Do While Len(Datei) > 0
Workbooks.Open Filename:=Pfad & Datei
'**
'Mach was damit
'**
'Workbooks(Datei).Close False
Datei = Dir() ' nächste Datei
Loop
Err.Clear
Fehler:
If Err.Number <> 0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub
LG UweD