Platzhalter für VBA Code

Hi zusammen,

viele von euch VBA Cracks werden jetzt bestimmt lachen aber ich schaffe es einfach nicht einen Platzhalter für einen Dateinamen im Code anzugeben(Code läuft in Access 2010).


Es soll auf eine Datei mit dem Namen (zb.)"Abfrage 21.07.2015.xlsx" zeigen und dann in eine Access Tabelle importiert werden, die Datei wird aber nicht gefunden.

Der Pfad an sich stimmt soweit da es ohne Platzhalter funktioniert(Dateinamen direkt im Code angegeben).

Ich habe schon folgende Varianten probiert:

strCurrentSheet = PATH & "\" & "Abfrage " & “*“ & ".xlsx"
strCurrentSheet = PATH & "\" & "Abfrage " & “* .xlsx"
strCurrentSheet = PATH & "\" & "Abfrage " & “[*] .xlsx"
strCurrentSheet = PATH & "\" & “* .xlsx"
strCurrentSheet = PATH & "\Abfrage*" & ".xlsx"


alle ohne Erfolg...

Danke für eure Hilfe!

d = "21.07.2015"  
strCurrentSheet = PATH & "\Abfrage " & d & ".xlsx"  

Set fso = CreateObject("Scripting.FileSystemObject")  
for each file in fso.GetFolder(PATH).Files
    if LCase(fso.GetExtensionName(file.Name)) = "xlsx" then  
     ' .....mach hier was mit der Datei ...  
     msgbox file.Path
     Exit For
   End if
Next

 For Each file In fso.GetFolder(PATH).Files
    If LCase(fso.GetExtensionName(file.Name)) = "xlsx" Then  
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, TABLENAME, strCurrentSheet, True
    End If
    Next