OpenOffice.info

Sub ExampleWrite
Dim iCount As Integer
Dim sValue As String
Dim z_ver As String

z_ver = "D:\Dateien\"
blatt = Thiscomponent.Sheets().getByName("Tabelle1")
For i = 0 To 4500
	d_name = blatt.getCellByPosition(1,i).String 'Spalte B
	inhalt = blatt.getCellByPosition(0,i).String 'Spalte A
	iCount = Freefile
	open z_ver & d_name for OutPut as iCount
	Print #iCount, inhalt
	close #iCount
Next i

end Sub

in der OO-Programmhilfe gibt es das Beispielmakro "Sub ExampleWrite" das Du z.B. wie folgt abändern kannst:

[code]Sub ExampleWrite
Dim iCount As Integer
Dim sValue As String
Dim z_ver As String

z_ver = "D:\Dateien\"
blatt = Thiscomponent.Sheets().getByName("Tabelle1")
For i = 0 To 4500
d_name = blatt.getCellByPosition(1,i).String 'Spalte B
inhalt = blatt.getCellByPosition(0,i).String 'Spalte A
iCount = Freefile
open z_ver & d_name for OutPut as iCount
Print #iCount, inhalt
close #iCount
Next i

end Sub
[/code]
Gruß
Stephan

Ich arbeite nur selten mit Calc und brauche jetzt hilfe, ich möchte per Makro die Zellinhalte als .txt speichern dabei sollen der Wert aus Spalte A (verketteter Inhalt) jeweils den Inhalt der Datei bilden und der Wert in Spalte B soll automatisch den Dateinamen festlegen. Es soll aus jeder Zeile aus diesen beiden Werten automatisch eine Textdatei erzeugt werden (ca. 4500)? Vielleicht kann mir ja jemand bei der Lösung helfen ...

Mit besten Grüßen
Chris