Hi
CSV Heisst für mich, es besteht aus Zeilen, deren Werte durch ein Komma getrennt sind.
Ich habe ein Fragment, womit ich die Zeilen durchlaufe und exakt 5 Kommas finde:
Pos = 1
Länge = Len(Zeile)
For I = 1 To 5
Pos = InStr(Pos + 1, Zeile, „,“, 1)
If I = 1 Then PN = LTrim$(RTrim$(Mid$(Zeile, 1, Pos - 1)))
If PN = „“ Then PN = „0“
If I = 2 Then RW = LTrim$(RTrim$(Mid$(Zeile, PosE + 1, Pos - PosE - 1)))
If RW = „“ Then RW = „0.0000“
If I = 3 Then hw = LTrim$(RTrim$(Mid$(Zeile, PosE + 1, Pos - PosE - 1)))
If hw = „“ Then hw = „0.0000“
If I = 4 Then HO = LTrim$(RTrim$(Mid$(Zeile, PosE + 1, Pos - PosE - 1)))
If HO = „“ Then HO = „0.0000“
If I = 5 Then CO = LTrim$(RTrim$(Mid$(Zeile, PosE + 1, Länge - PosE)))
If CO = „“ Then CO = „0“
PosE = Pos
Next I
Danach befinden sich meine Werte PN, RW, HW, HO, CO.
Die Variablen musst du noch als String dimensionieren.
Damit solltest du das Format schon mal reinkriegen.
Wie eine Datenbank geöffnet wird, habe ich schon heute bei lila geschrieben.
Hoffe es hilft dir.
Mfg Werner