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