Makro kann keine Sonderzeichen in Test umwandeln

Hallo Experten,
ich habe ein Excel-Makro, mit dem ich schon seit langer Zeit arbeite. Dieses Makro soll Eingaben in der Tabelle "BDC Raw Data" zu einer Text-Datei umwandeln. Das geht auch problemlos, sind jedoch Sonderzeichen oder, wie in der angefügten Datei, chinesische Zeichen darin, werden diese in Fragezeichen umgewandelt.
In der Spalte H ist der Text mit den chinesischen Zeichen.
Ich habe eine Datei in das Makro eingebettet, welche die Schritte zum Ausführen des Makros beschreibt.
Die Datei findet ihr unter https://www.herber.de/bbs/user/111473.xlsm
Ich bin zur Zeit in China und daher neun Stunden vor der deutschen Zeit, bitte habt Verständnis, wenn meine Antworten etwas verspätet kommen.
Ich danke Euch für Eure Hilfe, viele Grüße
Paul

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo!
Du solltest als "UTF-8 ohne BOM" speichern.

Option Explicit

Declare Function UTF8Only Lib "kernel32.dll" (ByVal CodePage As Long, _
                                              ByVal dwFlags As Long, _
                                              ByVal lpWideCharStr As Long, _
                                              ByVal cchWideChar As Long, _
                                              ByVal lpMultiByteStr As Long, _
                                              ByVal cbMultiByte As Long, _
                                              ByVal lpDefaultChar As Long, _
                                              ByVal lpUsedDefaultChar As Long) As Long


Sub UTF8Output(Datei As String, t As String, Optional BOM As Boolean = False)
    
    Dim tmp() As Byte, l As Long, FF As Integer
        
    If Len(Datei) = 0 Or Len(t) = 0 Then Exit Sub
    l = UTF8Only(65001, 0, _
        StrPtr(t), Len(t), 0, 0, 0, 0)
    Redim tmp(0 To l - 1)

    UTF8Only 65001, 0, StrPtr(t), Len(t), _
        VarPtr(tmp(0)), l, 0, 0
    FF = FreeFile
    Open Datei For Output As #FF
    Close #FF
    FF = FreeFile
    Open Datei For Binary As #FF
       Put #FF, , tmp
    Close #FF

End Sub

Sub SaveAsUTF8()

  Dim Textfile As String
  
       Textfile = Environ("USERPROFILE") & "\Desktop\UTFTest.txt"
       UTF8Output Textfile, ThisWorkbook.Sheets("BDC Raw Data").Range("H4").Value
End Sub


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Gruß, René

Declare Function UTF8Only Lib "kernel32.dll" Alias "WideCharToMultiByte" _ (ByVal CodePage As Long, _ ByVal dwflags As Long, _ ByVal lpWideCharStr As Long, _ ByVal cchWideChar As Long, _ ByVal lpMultiByteStr As Long, _ ByVal cbMultiByte As Long, _ ByVal lpDefaultChar As Long, _ ByVal lpUsedDefaultChar As Long) As Long

Beliebteste Forumthreads (12 Monate)

Makro kann keine Sonderzeichen in Test umwandeln

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro kann keine Sonderzeichen in Test umwandeln

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread