AW: TXT-Datei mit mehreren Zeilen erstellen
31.07.2018 19:07:19
daniel
HI
beispielsweise mit einer zusätzlichen Schleife.
die äußere läuft in der Schrittweite abhängig davon, wieviele Zeilen in eine Datei sollen und legt die Datei an.
die innere läuft dann über die Anzahl der Zeilen und schreibt diese in die Datei
Sub Textdateien()
Dim F%, n&, m&, rngRange As Range
Dim strPath$, sFullName$, strInhalt$
Const Trennzeichen$ = vbTab 'Trennzeichen evtl. anpassen
strPath = "C:\Desktop\Neuer Ordner\" 'Pfad TXT-Datei
With Tabelle1 'Tabelle evtl. anpassen
'ab A2 bis zur letzten gefüllten in A, evtl. anpassen
Set rngRange = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 15)
End With
With rngRange
For n = 1 To .Rows.Count Step 5
sFullName = strPath & .Cells(n, 1) & ".txt"
F = FreeFile
Open sFullName For Output As #F
For m = 0 To 4
strInhalt = .Cells(n + m, 2) & Trennzeichen & .Cells(n + m, 3) & Trennzeichen & _
.Cells(n + m, 4) & Trennzeichen & .Cells(n + m, 5) & Trennzeichen & _
.Cells(n + m, 6) & Trennzeichen & .Cells(n + m, 7) & Trennzeichen & _
.Cells(n + m, 8) & Trennzeichen & .Cells(n + m, 9) & Trennzeichen & _
.Cells(n + m, 10) & Trennzeichen & .Cells(n + m, 11) & Trennzeichen & _
.Cells(n + m, 12) & Trennzeichen & .Cells(n + m, 13) & Trennzeichen & _
.Cells(n + m, 14) & Trennzeichen & .Cells(n + m, 15)
Print #F, strInhalt
Next
Close #F
Next n
End With
End Sub
Gruß Daniel