Hallo,

ich bekomme täglich eine Dateien zugeschickt, diese ich in eine zentrale Excel-Datei bringen muss. Ich habe mir hierfür folgendes VBA-Script geschrieben:

Sub Makro1()
    Dim LetzteZeile As Double
    Dim LetzteSpalte As Double
    Dim PfadDatei As String
    
    strDatei = "TEXT;" & Environ("USERPROFILE") + "\Desktop\Import_Meier.csv"
    
    ActiveSheet.Cells.Clear
    LetzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    LetzteSpalte = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column

    ActiveSheet.Cells(LetzteZeile, 1).Activate

    With ActiveSheet.QueryTables.Add(Connection:= _
        strDatei, Destination:=Range(Cells(LetzteZeile, LetzteSpalte), Cells(LetzteZeile, LetzteSpalte)))
        .TextFilePlatform = 65001
        .TextFileCommaDelimiter = True
        .Refresh BackgroundQuery:=False
    End With
    
    LetzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    LetzteSpalte = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
    
    ActiveSheet.Cells(LetzteZeile, 1).Activate
    
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Users\MeinProfil\Desktop\Import_von_Huber.csv", Destination:=Range(Cells(LetzteZeile + 1, 1), Cells(LetzteZeile + 1, 1)))
        .TextFilePlatform = 65001
        .TextFileCommaDelimiter = True
        .Refresh BackgroundQuery:=False
    End With
    
End Sub

Das Script läuft super wenn ich genau weiß, wie viele Dateien ich bekomme und welchen Namen diese haben. Nur leider ist die Anzahl und der Dateiname täglich unterschiedlich.

Hat jemand einen Tipp für mich, wie ich mein Script anpassen muss, dass immer alle CSV-Dateien aus einem definierten Verzeichnis importiert werden? Oder hätte evtl. jemand eine Beispielscript?

Danke