Verwijderde inhoud Toegevoegde inhoud
kGeen bewerkingssamenvatting
Geen bewerkingssamenvatting
Regel 136:
'
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\Lex" & Environ("UserName") & "\Desktop\import.txt", Destination:=Range("$A$1"))
.Name = "import"
.FieldNames = True