Office: (Office 2010) Import von csv Dateien in Excel

Import von vielen *.csv Dateien in Excel via VBA/Makro

Hallo zusammen,
nachdem ich leider mit der reinen Suche nicht mehr weiter kommen, muss ich jetzt auch mal eine Frage stellen.
Ausgangssituation:
ich hab viele (1-25) csv Dateien die zu einem Datensatz gehören. Hierbei geht es um Daten aus Zugversuchen, mit je 3 spalten (Weg, Kraft, Dehnung). Diese möchte ich nun alle nebeneinander in Excel importieren, am besten mit dem Dateinamen als Überschrift. Ich hab leider (fast) keine Ahnung von VBA, aber Folgendes habe ich schon mit Hilfe des WWW zusammengebastelt um die Daten untereinander importieren zu können:

Code:

Sub CSV_Import_vieler_Dateien()
'(C) Ramses
'Liest alle CSV-Dateien in einem Verzeichnis ein
Dim Datei As String, freeRow As Long
Dim Qe As Integer
Dim PFAD As String
'PFAD = "H:\2016\reklamationen\Autoneum Reiseunterlagen Juni 2016\KD-Kurven\csv\22.02.2016-161941\2000 2397614\" 'ACHTUNG: Bachslash am Schluss
PFAD = InputBox("Pfad zu den CSV Dateien eingeben mit einem \ am Ende ")
Datei = Dir(PFAD & "*.csv")
Qe = MsgBox("Zum Import muss die aktuelle Tabelle leer sein," & vbCrLf & _
    "bzw. alle Daten der aktuellen Tabelle: "" " & ActiveSheet.Name & " "" werden gelöscht", _
    vbYesNo + vbCritical, "CSV-Import starten ?")
If Qe = vbNo Then
    MsgBox "CSV-Import abgebrochen"
    Exit Sub
Else
    Cells.Clear
End If
Do While Datei <> ""
    freeRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & PFAD & Datei, Destination:=Range("A" & freeRow))
        .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 = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(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

Die csv sehen folgendermaßen aus:

Code:

Version 2
Weg [mm];Kraft [N];Dehnung [%];
 202.053;
   2.720;  40.313;   0.330;
   2.987;  48.281;   0.462;
   3.654;  66.875;   0.793;
   4.321;  85.000;   1.123;
   5.121;  96.719;   1.518;
   5.787; 105.781;   1.848;
.....

Des weiteren wäre es toll, wenn mir jemand erklärt, was ich tuen muss damit Excel standartmäßig den Punkt als Dezimalstelle erkennt,...

Vielen Dank schon mal an alle Helfenden!