VBA Anwendungs- oder objekdefinierter Fehler '1004'

Sub IMPORT5_NAR()

 Dim sPath As String

 Dim sFile As String

 sPath = "Z:\L-Preise-2024\ALIAS 70127\"

 'Namen anpassen

 sFile = Dir(sPath & "*-2024*.txt")

      With ActiveSheet.QueryTables.Add(Connection:= _

    "TEXT;" & sPath & sFile, Destination:=Range("J2"))

        .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 = 3

        .TextFileParseType = xlDelimited

        .TextFileTextQualifier = xlTextQualifierDoubleQuote

        .TextFileConsecutiveDelimiter = False

        .TextFileTabDelimiter = True

        .TextFileSemicolonDelimiter = True

        .TextFileCommaDelimiter = False

        .TextFileSpaceDelimiter = False

        .TextFileColumnDataTypes = Array(1, 9, 1)

        .TextFileTrailingMinusNumbers = True

        .Refresh BackgroundQuery:=False

    End With

End Sub