TXT Zeile für Zeile mit versch. Charset einlesen
26.05.2014 14:41:29
Christian
Ich habe verschiedene Files (.txt,.csv,.datanorm,etc.)
Diese Files möchte ich Zeile für Zeile in ein Sheet einlesen und die jeweiligen Zeilen sortieren.
Das klappt auch ohne Probleme!
Dafür nutze ich folgendes Makro (Makro ist auf das Einlesen gekürzt):
Sub TXT_pro_ZEILE()
Dim strText As String
Dim i As Long
Open "C:\Arbeitsordner\Test.txt" For Input As #1
i = 1
Do While Not EOF(1)
Line Input #1, strText
' strText wird sortiert
Cells(i, 1).Value = strText
i = i + 1
Loop
Close #1
End Sub
Jetzt habe ich in manchen Fällen Sonderzeichen (ä,ü,ö,ß,.....). Diese werden mit der obigen Prozedur leider nicht korrekt übernommen.
Um die Files korrekt einzulesen, kann ich folgendes nehmen:
Sub TXT_UTF8_Zelle()
Dim adoStream As ADODB.Stream
Dim strText As String
Set adoStream = New ADODB.Stream
adoStream.Charset = "UTF-8"
adoStream.Open
adoStream.LoadFromFile "C:\Arbeitsordner\Test.txt"
strText = adoStream.ReadText
Cells(1, 1) = strText
adoStream.Close
Set adoStream = Nothing
End Sub
Damit bekomme ich die ganze File jedoch nur in eine Zelle (hier "A1").
Ich bekomme es nicht hin, den ADODB.Stream Zeile für Zeile einlesen zu lassen.
Ich benötige aber jedoch das Einlesen von Zeile für Zeile,
da jede Zeile auf ihren Anfang überprüft und sortiert wird(auf verschiedene Sheets).
Ich hoffe ihr könnt mir einen Tipp geben.
Viele Grüße
Christian