Importere data

følgende kode kan importere data fra en tekst fil, til excel.
Den importerer det til celle A1 til B25.
Husk at ændre stien til filen

With ActiveSheet.QueryTables.Add(Connection:= _
        \"TEXT;tekst1.txt\", Destination:=Range( _
        \"A1:B25\"))
     
        .Refresh BackgroundQuery:=False
    End With

kedde

Hvordan indsættes koden ?

Jeg har ændret koden til:
With ActiveSheet.QueryTables.Add(Connection:= _
        \"TEXT;c:\\tekstfil.txt\", Destination:=Range( _
        \"A1:A1000\"))
     
        .Refresh BackgroundQuery:=False
    End With