Makro til indlæsning af tekstfil

Prøv
  Workbooks.Open Filename:="D:\Dokumenter\adr.csv", Delimiter:=4

Value Delimiter
1 Tabs
2 Commas
3 Spaces
4 Semicolons
5 Nothing
6 Custom character (see the Delimiter argument)

Klik evt på ordet workbooks i din sourcekode og tast F1.

Klik på linket til en "workbooks collection" og se hvilke metoder objektet har (bla. Open().)

Her kan du finde fyldestgørende forklaringer på alle parametre..

>jpvj
I følge hjælp i Excel burde det at virke; men desværre - det gør det ikke.

Workbooks.OpenText Filename:= _
        "D:\Dokumenter\adr.csv", Origin _
        :=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1))

Workbooks.OpenText Filename:= _
        "D:\Dokumenter\adr.csv", Origin _
        :=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)

der var for mange kolonner

der mangler lige en ) til sidst

Omdøb filen til .txt

Workbooks.OpenText Filename:="d:\....\adr.txt", DataType:=xlDelimited, semicolon:=True

>kabbak
>supertekst
Tak for svarerne.
Begge virker når man omdøber filen til .txt!
Giv mig et svar så I kan få point.
Hilsen johs_j

Selv tak - godt det lykkedes
MVH
Supertekst

giv dem alle til johs_j, det var ham der fandt på at omdøbe filen

Supertekst, mener jeg ;-))