Forumbeitrag
Excel-Version des Fragestellers:
2022
Erfahrungslevel des Fragestellers:
Excel gut - VBA gut
Moin, :-)
... Spur nach: ;-)
Option Explicit
Public Sub Main()
Dim strPfad As String
Dim strDatei As String
strPfad = "C:\Temp\"
strDatei = Dir(strPfad & "*Juni*.*")
'strDatei = Dir(strPfad & "*Juni*.xls*")
Do While strDatei <> ""
Workbooks.Open strPfad & strDatei
strDatei = Dir
Loop
End Sub
Pfad
anpassen. Die
auskommentierte Codezeile nutzen, wenn
nur Exceldateien berücksichtigt werden
sollen/müssen. ;-)
Servus
Case