Import af textfil

Kan nogen omskrive denne optagede macro, så jeg selv kan vælge filnavnet fra gang til gang.
Den faste del af stien hedder altid: v:\data\abt2xal\, og filnavnet varierer så fra uge til uge.

Jeg har forsøgt med forskellige mforslag her fra forum, men får en fejl 1004 vedr. array.
De forskellige værdier skal altid improteres så de er formatteret som tekst.

Her er den indspillede macro

ActiveWorkbook.RunAutoMacros xlAutoOpen

With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;V:\Data\ABT2XAL\AccTrans.txt", Destination:=Range("A1"))
        .Name = "AccTrans"

        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = xlWindows
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)
        .Refresh BackgroundQuery:=False
    End With