Hallo liebe Leute,
Ich habe wieder einmal ein Problem, das wahrscheinlich einfach zu lösen ist, ich aber nicht weiß wie.
Ich möchte einen Pfad zu einem Ordner auswählen und alle dort befindlichen Dateien mit der Endung .xlsx öffnen.

Dafür habe ich mir mit hilfe von Google dieses Makro zusammengestrickt.
Mein Problem ist, das die Variable "QFiles" leer bleibt. auch wenn ich ein "\"  dazwischensetze, funktioniert es nicht.

Der Dateipfad füllt sich mit "D:\Access Datenbank\1. Versuch\Makrotest 1\Helferdatei" .
Soweit ist alles klar. Die Erweiterung füllt sich mit "*.xlsx"
Selbst wenn ich die Variable mit  QFiles = "D:\Access Datenbank\1. Versuch\Makrotest 1\Helferdatei\*.xlsx" definiere, ist zwar die Variable gefüllt aber in deer weiteren Bearbeitung kommt ein Fehler, das er die Datei nicht findet.

Ich dachte "*" wäre ein Platzhalter?

Es wäre schö, wenn ihr mir dabei helfen könntet. Danke

  Dim QPath As String      'Pfad der Quelldateien
   Dim QFiles As String
   Dim Erweiterung As String  '  "*.xlsx"

   
 'Feste Variablen
    Erweiterung = "*.xlsx"       'Dateiextension ggf. anpassen

  'Quellpfad auswählen und alle Quelldateien öffnen
   MsgBox ("Bitte den Ordner mit den Quelldateien auswählen.")
   
  '  Ordnerpfad öffnen
    Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)    ' Erstellt das FileDialog-Objekt
        If fDialog.Show = -1 Then    ' Zeigt den Dialog an und prüft, ob der Benutzer auf OK geklickt hat
        QPath = fDialog.SelectedItems(1)        ' Holt den ausgewählten Pfad

        MsgBox "Der ausgewählte Ordner ist: " & QPath        ' Gibt den Pfad in einer Meldungsbox aus
    End If
    
    'Alle Quelldateien öffnen
    If QPath = "" Then
    Exit Sub
    Else

    QFiles = Dir(QPath & Erweiterung)

    Do While Len(QFiles) > 0
    Workbooks.Open Filename:=QPath & QFiles

    QFiles = Dir() ' nächste Datei
    Loop
    End If