Textdatei schreiben
01.11.2006 11:23:07
Holger
Lese mit folgendem Code eine Textdatei in Excel ein.
Sub TextImport()
Dim sBuffer As String, aBuffer() As String
Dim iFile As Integer, iCounter As Integer
Dim sFile As String
sFile = Range("B1")
iFile = FreeFile
Open sFile For Binary As iFile
sBuffer = Input(LOF(iFile), iFile)
Close iFile
aBuffer = Split(sBuffer, "'")
' For iCounter = LBound(aBuffer) To UBound(aBuffer)
' Cells(iCounter + 1, 1).Value = aBuffer(iCounter)
' Next iCounter
Range("A1:A" & CStr(UBound(aBuffer) - LBound(aBuffer) + 1)).Value = WorksheetFunction.Transpose(aBuffer)
End Sub
Die Daten sind in der Textdatei hintereinander fortgeschrieben und werden durch
das Trennzeichen "'" getrennt.
Wie bekomme ich die Daten aus Excel wieder in eine txt-Datei zurück, sodass
diese genau so aufgebaut ist wie die eingelesene Datei.
Stelle hier meine txt-datei zum Test zur Verfügung
https://www.herber.de/bbs/user/37825.txt
Vielen Dank für die Hilfe !!
Gruß
Holger