CSV-Dateien eines Ordners importieren

Sub CSVOrdnerImportieren()
    Dim dlg As FileDialog, ordner As String, datei As String, ws As Worksheet
    Set dlg = Application.FileDialog(msoFileDialogFolderPicker)
    If dlg.Show <> -1 Then Exit Sub
    ordner = dlg.SelectedItems(1) & "\"
    datei = Dir(ordner & "*.csv")
    Do While datei <> ""
        Set ws = Worksheets.Add(After:=Worksheets(Worksheets.Count))
        ws.Name = Left(Replace(datei, ".csv", ""), 31)
        With ws.QueryTables.Add(Connection:="TEXT;" & ordner & datei, Destination:=ws.Range("A1"))
            .TextFilePlatform = 65001
            .TextFileParseType = xlDelimited
            .TextFileSemicolonDelimiter = True
            .Refresh BackgroundQuery:=False
            .Delete
        End With
        datei = Dir
    Loop
End Sub