---

Hallo,

ich hab schon seid längerer Zeit das Problem, das ich eine Excel liste in csv umwandle, dadurch ist sie von CATIA unter UNIX lesbar und durch ; - Zeichen getrennt (also die Spalten).
Ich hab nun in einigen Beiträgen rumgesucht, aber nirgends wirlich hilfe gefunden, ich hab Folgende Schleife aufgestellt:

###

Do Until MyStream.AtEndOfStream
StrLine = MyStream.ReadLine
MsgBox "Gelesene Zeile = " & StrLine
Set Modul = Split(StrLine, ";")
Set Kogr = Split(StrLine, ";")
Set PPG = Split(StrLine, ";")
Set Sachnummer = Split(StrLine, ";")
Set Benennung = Split(StrLine, ";")
Set EVT = Split(StrLine, ";")
Set BZA = Split(StrLine, ";")
Set SST = Split(StrLine, ";")
Set Datum = Split(StrLine, ";")
Set GTArt = Split(StrLine, ";")
MsgBox Modul & Chr(10) & Kogr & Chr(10) & PPG & Chr(10) & Sachnummer
Loop

###

Bei dem 1. Befehl, also Set Modul = Split(StrLine, ";") bringt er die Fehlermeldung: "Object Required" ich weiß nicht genau was er will, könnt ihr mir weiterhelfen?
Also die Variablen: Modul, Kogr, usw. sind die einzelnen Spalten und sollen ausgelesen werden.
Wäre dankbar für eure Hilfe, wenn ihr noch Fragen habt, dann nur zu...

Gruß
Species8472

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

ohne es ausprobiert zu haben, würde ich einfach folgendes vorschlagen:
Lass bei den Splitanweisungen die "Set" weg.

Viele Grüße

Günther

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für die schnelle Antwort...

[Diese Nachricht wurde von Species8472 am 08. September 2003 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vorallem wirst Du mit der Split Anweisung so nicht das erreichen was Du willst. Wenn schon dann musst Du ein Konstrukt in der Art:

Dim VArray
VArray = Split(Temp, ",", 3)

Var1 = VArray(0)
Var2 = VArray(1)
if  ubound(VArray)= 2 Then
Var3 = VArray(2)
Else
Var3 = "Nicht def."
End If

verwenden.

Axel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das mit der Splitanweisung ist meiner Meinung nach nicht ganz falsch.
Man darf nur nicht immer das Argument "StrLine" verwenden....

Fette Grüße
    Stoffel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

also bei mir funktionierts folgendermassen:

info = Split (StrLine,";")    ' info ist ein array. In jedem Feld stehen dann die einzelnen Spalten

Modul = info(0)
Kogr = info(1)
usw.

Tobias

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP