Hente data med VBA

Nedenstående fungere, såfremt du har ";" som afgrænser i din tekstfil. Har du en anden afgrænser er det ".TextFile...Delimiter" egenskaberne du skal kigge på.

Sub Indsaet()
   
Range("A13:G500").ClearContents

Dim Sti, Fil As String
Sti = Range("J5").Text
Fil = Range("J6").Text

    With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Sti & Fil & ".csv", Destination:=Range("$A$13"))
        .Name = "importtext"
        .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 = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

Tak for hurtigt svar. Det virker som det skal. Smider du et svar.

Svar