Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Textfilse erzeugen

Forumthread: Textfilse erzeugen

Textfilse erzeugen
dirk
Hallo zusammen,
ich wollte mal fragen wie es möglich ist mehrere *.txt-files zu erzeugen mit unterschiedlichen Inhalten aus unterschiedlichen Zellen.
Spalte A:
Zelle A1: ein
Zelle A2: zwei
Zelle A3: drei
Spalte B:
Zelle B1: Tisch
Zelle B2: Stühle
Zelle B3: Bilder
Die Datein sollten wie folgt heissen:
ein.txt
zwei.txt
drei.txt
Der Inhalt der Dateien sollte wie folgt heissen:
eins.txt: ein Tisch
zwei.txt: zwei Stühle
drei.txt: drei Bilder
Kann mir jemand weiterhelfen. Wäre sehr dankbar!
Gruss Dirk
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Textfilse erzeugen
Ramses
Hallo
weitere Erklärungen findest du in der VBA_Online Hilfe unter "OPEN" und "Print #"

Sub Test()
Open "C:\Eins.txt" For Output As #1
Print #1, "Ein Tisch"
Close #1
End Sub

Gruss Rainer
AW: Textfilse erzeugen
dirk
danke!
Damit ist mir schonmal geholfen. Den Rest strick ich mir selbst zusammen...
;-)
Dirk
Anzeige
Merci :-) Geschlossen o:T.
Ramses
...
AW: Textfiles erzeugen
02.05.2004 20:27:42
Matthias
Hallo Dirk,
das geht so:

Sub textfile()
Dim z%
For z = 1 To 3
Open ThisWorkbook.Path & "\" & Cells(z, 1) & ".txt" For Output As #1
Print #1, Cells(z, 1) & " " & Cells(z, 2)
Close #1
Next z
End Sub

Wenn Du ThisWorkbook.Path & "\" weglässt, wird die Datei in "Eigene Dateien" gespeichert.
Gruß Matthias
Anzeige
AW: Textfilse erzeugen
NE
Abend Dirk,
versuch mal sowas:

Sub so()
Dim ff%, i%
ff = FreeFile
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Open "c:\temp\" & CStr(i) & ".txt" For Output As #ff
Print #ff, Sheets(3).Cells(i, 1) & " " & Sheets(3).Cells(i, 2)
Close #ff
Next
End Sub

HTH Nancy
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige