Dateien nach Namen sortiert Importieren

Sub Copy_Filedata_ERG()
Dim Datei As String
Dim freeRow As Long
Dim Clear_Abfrage As Integer
Dim Pfad As String
Pfad = Worksheets("Startbildschirm").Cells(1, 2).Value
Datei = Dir(Pfad & "*.ERG")
Sheets.Add After:=Worksheets("Startbildschirm")
Sheets(2).Name = ("Rohdaten")
Do While Datei  ""
If Cells(Rows.Count, 2).End(xlUp).Row = 1 Then
freeRow = 1
Else
freeRow = Cells(Rows.Count, 2).End(xlUp).Row + 4
End If
Cells(freeRow, 1) = Datei
Application.CutCopyMode = False
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Pfad & Datei, Destination:=Cells(freeRow  _
_
_
+ 1, 1))
'.CommandType = 0
.Name = Datei
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,   _
_
_
1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Datei = Dir()
Loop
End Sub