Import mehrerer Dateien aus einem Ordner in ein bestehendes Blatt via PowerQuery

[snb]

Code:

Sub M_snb()
   With Application.FileDialog(3)
     If .Show Then ActiveSheet.QueryTables.Add("TEXT;" & .SelectedItems(1), Range("A1")).Refresh False
    End With
End Sub