Zellen mit String befüllen (Script)
11.11.2003 16:29:43
Simon
Ich lese aus einer Semicolon getrennten Textdatei die Zeilen aus
und möchte diese in die Zellen einfügen (mit vbs Script). Ohne Array, da die Textfiles gross sind, und das viel zu viel Ressourcen frisst.
Was mir fehlt ist die richtige Syntax für das befüllen der Zellen ....
Siehe Zeile !!!!!
Code Auszug:
Do Until DateiInhalt.atEndOfStream
Zeile = DateiInhalt.ReadLine
Do Until Zeile = ""
If InStr(1,Zeile,";") Then
Semicolon = InStr(1,Zeile,";") ' Position Semilicon
Else
Semicolon = InStr(1,Zeile,vbTab) ' Position TabStop
End If
If Semicolon <> 0 then
Inhalt = Left(Zeile,Semicolon-1) ' Inhalt bis zum Semicolon
Zeile = Mid(Zeile,Semicolon+1) ' abschneiden
Else ' falls kein Semicolon mehr vorkommt, Zeile fertig
Inhalt = Zeile
Zeile = ""
End if
' WScript.Echo Inhalt
'!!!!! objXL.Cells(Zeile,Spalte).Value = Inhalt '!!!!!!!!!
Spalte = Spalte + 1
Loop
maxZeilen = maxZeilen + 1
maxSpalten = Spalte
Zeile = Zeile + 1
Spalte = 1
Loop
maxZeilen = maxZeilen - 1
maxSpalten = maxSpalten - 1
Danke für Hilfe
mfg Simon