ich lasse ich Excel textdateien erstellen und abspeichern mit nachfolgendem Code.
For j = 1 To z1 Step 1
For i = 5 To z Step 1
F = FreeFile
c = Worksheets("Spielerschnittliste").Cells(i, j)
Strurl = Pfad & "\" & i & j & ".txt"
Open Strurl For Output As #F
Print #F, c
Close #F
Next i
Next j
Nun möchte ich aber, dass noch eine Datei Text datei erstellt wird, in der die Daten so aufgelistet sind.
Upload
put ij.txt
put ij.txt
put ij.txt
put ij.txt
Sprich jeder Datei Name soll hier auftauchen.Mein Problem dabei ist, dass ich nicht weis wie ich es schaffe in der Textdatei einen variablen Namen schreiben zulassen und zusätzlich noch die Zeile zu ändern.
Hat hier jemand eine Idee?