txt-Dateinamen variabel
26.04.2006 10:27:17
Seppl
ich hoff mir kann jemand helfen.
Ich möchte eine txt-datei erzeugen, wo der erste Teil (S018.) immer gleich ist,
ich aber den hinteren Teil (?) vieleicht mit hilfe einer inputbox selber definieren kann.
ist dies überhaupt möglich ? Wie muß mein Script aussehen, dass ich auch anschließend die Zellen Q8-Q1000 noch in die neu erzeugte txt-Datei exportieren kann?
Hier mein Script bei dem ich nicht mehr weiter komme.
Sub Textdatei()
Dim fs As Object, a As Object
'Datei "S018.txt" in D:\Eigene Dateien\ erzeugen
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("D:\Eigene Dateien\S018.?.txt", True)
a.Close
Dim Rec As Range, Datnr&, Outp$
Datnr = FreeFile
Open "D:\Eigene Dateien\S018.?txt" For Output As #1
For Each Rec In Range("Q8:Q1000")
Outp = Rec.Text
Print #1, Outp
Outp = Empty
Next Rec
'Datei schließen.
Close #1
End Sub
Besten Dank für Eure Hilfe
Gruß Sepp