Hallo,
Vera Unverzagt schrieb:
> Wie muß der Code denn dann komplett aussehen?
Wenn die Ausgangsbedingungen genau so sind wie Du sie beschrieben hast,
dann ändere im Folgenden in der Zeile den Dateinamen auf den Deiner
CSV-Datei:
Datei = "D:\test.csv"
und starte dann das Makro:
Sub Main
Datei = "D:\test.csv"
Dim Dummy()
dokument = StarDesktop.loadComponentFromURL _
("private:factory/scalc" , "_blank", 0, Dummy())
x = Array("Name", "Name2", "Name3", "Strasse", "PLZ", "Ort")
For i = 0 To 5
dokument.Sheets(0).GetCellByPosition(i, 0).String = x(i)
Next i
iNumber = Freefile
Open Datei For Input As iNumber
i = -1
j = 1
While not eof(iNumber)
Line Input #iNumber, sZeile
i = i + 1
If i <= 5 Then
dokument.Sheets(0).GetCellByPosition(i, j).FormulaLocal
_
= sZeile
Else
i = -1
J = j + 1
End If
wend
Close #iNumber
End Sub
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
