Print #oDatNum als UTF-8 nicht ANSI
12.05.2021 15:21:40
Nilo
erst gestern wurde meine Kopfnuss hier behandelt :)
Jetzt die 2te
Ich erstelle einen txt File mit den Unions imp1 und imp2
Die werden im txt File jeweils untereinander reingeschrieben
Der File wird in ANSI formatiert!
Jetzt haben wir ja die Angewohnheit Umlaute zu nutzen
Also meine Frage:
Wie geht das in UTF-8 oder Unicode oder welches auch immer.
Gefunden habe ich das hier:
Dim fnum As Integer
fnum = FreeFile
Open "myfile.txt" For Output As fnum
Print #fnum, StrConv("special characters: äöüß", vbFromUnicode)
Close fnum
Also habe ich versucht StrConv einzubauen aber irgendwie will es nicht.Dann habe ich aber lauter Fragezeichen im File drin stehen !?
Mein bisheriger Snipet:
Dim imp1, imp2 As Range
Dim oDatNum As Integer
'InfoRange
Set imp1 = Union(Range("AG3"), Range("R2:R" & Cells(Rows.Count, "R").End(xlUp).Row))
Set imp2 = Union(Range("AH3"), Range("S2:S" & Cells(Rows.Count, "S").End(xlUp).Row))
pfad = ThisWorkbook.Path
oDatNum = FreeFile
Datei = pfad & "\" & InputBox("Bitte geben Sie den Namen der zu exportierenden Datei ein", _
"Eingabe") & ".txt"
Open Datei For Append As #oDatNum
'InfoFile
For Each R In imp1
Print #oDatNum, R.Value
Next
For Each S In imp2
Print #oDatNum, S.Value
Next
Close oDatNum
Danke für die Hilfe im VorausGruß
Nilo