Datein mit variabelm Namen öffnen

[Simson118]

Hallo zusammen, 
ich möchte mittels Makro mehrere Dateien mit unterschiedlichem Namen öffnen. Die zu öffnenden Dateinamen sie folgendermaßen aufgebaut: Tray 0000007 2018_04_19_13_04_18.xlsx.
Dabei möchte ich alle Dateien öffnen die im Namen die Zeichenfolge 2018_04_19 besitzen, der Anfang und das Ende sollen dabei nicht mit beachtet werden.
Danke schon mal für eure Hilfe.
Gruß Simson

[silcono]

Hallo,

habe per Googlei, folgendes gefunden und getestet:

Code:

Sub DateienSuchen()

   Dim Dateiname, Pfad, teil
   Pfad = "C:\Users\NAME\Desktop\"
   teil = "2018_04_19"
   Dateiname = Dir(Pfad & "*" & teil & "*.xls")
   Do While Dateiname <> ""
        Workbooks.Open (Pfad & Dateiname)
   Dateiname = Dir()
   Loop
   
End Sub

Grüße
Silcono

[Simson118]

Danke funktioniert einwandfrei