Zeilenweise in Textdatei einlesen.
06.09.2004 13:53:53
Fritz
Mit dem folgenden code versuche ich, zeilenweise in eine Textdatei einzulesen. Einige Zellen in den zeilen beeinhalten aber längere Text, in denen Absätze, Tabs usw. vorkommen. Diese werden beim beim Einlesen in die Textdatei als Befehl verstanden, in die nächste Zeile zu gehen.
Meine Frage: Wie kann ich dies verhindern?
Sub TextdateiErstellen()
Dim fso As Object, txt As Object
Dim z As Integer, s As Integer
Dim temp As String
Set fso = CreateObject("Scripting.filesystemobject")
Set txt = fso.createtextfile("S:\lggtfa\FASt-Entwicklung\FAData.txt")
For z = 1 To ActiveSheet.UsedRange.Rows.Count
For s = 1 To ActiveSheet.UsedRange.Columns.Count
temp = temp & Cells(z, s) & ";"
Next s
txt.writeline temp
temp = ""
Next z
Set fso = Nothing
Set txt = Nothing
MsgBox "Die Textdatei FAData" & _
" wurde erfolgreich erstellt."
End Sub
Für Eure Hilfe wäre ich wieder sehr dankbar.
Grüße, Fritz
Anzeige