Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
420to424
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige