A1 bis A100 je Zellwert eine txt anlegen
26.10.2016 15:52:24
Nilo
ich möchte für jeden Zellwert in A1:A100 eine txt anlegen.
Name der txt soll dann der jweilige Zellwert sein.
Also wenn in A1 00054 steht soll die txt 00054.txt heißen
in A2 00085 gleich 00085.txt usw. A1:A100
Die txt sollen erstellt werden in "C:\PPT"
Könnt ihr mir das bitte in VBA schreiben.
Ich habe da sowas gefunden komm aber nicht weiter!
Sub Schreiben()
Dim fso
Dim Datei
Dim L As Long
Set fso = CreateObject("Scripting.Filesystemobject")
For L = 2 To Range("A65536").End(xlUp).Row
Set Datei = fso.opentextfile("C:\PPT" & Cells(L, 1) & ".txt", 8, True)
Datei.Close
Next
End Sub
Gruß
Nilo