Zelleninhalte per Makro als .txt Datein speichern

[IIChrisII]

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

[Stephan]

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

Code: Alles auswählen

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

Gruß
Stephan