Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
420to424
420to424
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige