Daten in Speichern ohne carriage return
19.09.2007 16:06:00
Ralf
mit folgendem Code kann ich Daten sammeln und in einer Txt-Datei abspeichen. Funktioniert auch soweit, nur am ende des Strings in der Txt-Datei wird noch ein "carriage return" erzeugt. Wie kann man das erzeugen des letzten "carriage return" unterbinden?
Vielleicht kann jemand helfen?
Gruß Ralf
Sub Speichern()
Dim liZeile As Integer, lstrInhalt As String
For liZeile = 1 To 20
lstrInhalt = lstrInhalt & "" & Range("A" & liZeile).Value
Next
Open "deinPfad\deinDateiname.txt" For Output As #1
Print #1, lstrInhalt
Close
lstrInhalt = ""
End Sub
Anzeige