Hallo ich benötige mal wieder Eure Hilfe.
Ausgangslage ist, dass in einem festgelegten Verzeichnis eine *.xlsx Datei abgelegt wird (es gibt in dem Ordner immer nur eine ".xlsx" Datei). Das Problem für mich ist, dass diese Datei immer einen anderen Namen haben kann (was echt blöd ist). Die Datei hat aber immer den Präfix ".xlsx".

Soweit habe ich mir den Code schon zusammengebaut. Dieser funktioniert aber nur, wenn die Datei immer den gleichen Namen hat.

Sub Datei_Importieren()
Worksheets("QS_Projektdaten").UsedRange.ClearContents
Workbooks.Open Filename:="C:\Users\matzenbacherk\Desktop\Datenquellen Test\0cf975f3-f9b6-4ada-99ce-1476ba078bb6.xlsx", ReadOnly:=True
ActiveWorkbook.Sheets("Sheet1").UsedRange.Copy
ThisWorkbook.Sheets("QS_Projektdaten").Cells(1, 1).PasteSpecial xlPasteValues
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Range("A1").Select
End Sub

Ich benötige in dem Code eine Erweiterung, damit vor dem Präfix der Dateiname völlig egal ist.

Danke für die Unterstützung.