vba - VBA で Unicode 16 進文字列を変換する

Question

特殊文字が Unicode 16 進数として表されるデータベースに格納されている文字列データがあります。データを変換したい。

各特殊文字を置き換えずにVBAでそれを行う方法を知っている人はいますか?

例: 私が期待している変換は次のとおりです。

Opera\'e7\'e3o -> Operação

ありがとうございました！

Answer 1

このサンプル コードを試してください。

Dim myStr
Dim nStart,nLen, sTmp
myStr = "Opera\'e7\'e3o"
nStart = 0
nLen = Len(myStr)

While nStart < nLen
    nStart = Instr(nStart+1,myStr,"\'")
    If nStart = 0 Then
        nStart = nLen
    Else
        sTmp = Mid(myStr,nStart,4)
        myStr = Replace(myStr,sTmp,Chr(CLng(Replace(sTmp,"\'","&h"))))
    End If
Wend
MsgBox myStr

コスティス・パパダキス