Zelleninhalte per Makro als .txt Datein speichern

Das Tabellenkalkulationsprogramm

Moderator: Moderatoren

IIChrisII
Beiträge: 1
Registriert: Mi, 12.11.2014 07:20

Zelleninhalte per Makro als .txt Datein speichern

Beitrag von 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
********
Beiträge: 12368
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Zelleninhalte per Makro als .txt Datein speichern

Beitrag von 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
Antworten