.txt Datei hat nach dem Open Event falsche Umlaute
27.11.2018 15:24:12
Karin
es geht um einen Makro, den ich von einem Kollegen geerbt habe. Aus SAP werden .txt Dateien generiert und auf ein Laufwerk bereit gestellt. Nun kommt mein Makro, holt sich diese .txt Dateien ab und hübscht sie ein bisschen auf. Funktionierte auch alles super, bis wir ein SAP-Update hatten...
Nun werden aus Umlauten komische Zeichen generiert.
Beispiel:
ö= ö
ü= ü
ä= ä
Ã= Ü
Ich glaube im folgenden Code muss ich etwas anpassen?
.........................
Dim intFNr As Integer
Dim strZeile As String
intFNr = FreeFile()
strFileName = Trim(strFileName)
Open strFileName For Input As #intFNr
lngZeile = lngRow
Rows(lngZeile).Select
Selection.RowHeight = 20
lngZeile = lngZeile + 1
Do While Not EOF(intFNr)
Line Input #intFNr, strZeile
strZeile = Trim(strZeile)
Do While Right(strZeile, 1) = Chr(10)
strZeile = Left(strZeile, Len(strZeile) - 1)
Loop
....................
Ich hoffe, ihr habt eine Idee? Es gibt doch bestimmt eine elegantere Lösung als Replace? ;)
Danke und Grüße
Karin aus Hamburg