在VBA中轉換Unicode十六進制字符串

Question

我有一些字符串數據存儲在數據庫中，其中特殊字符表示爲Unicode十六進制。我想轉換數據。

有沒有人知道如何在VBA中做到這一點，而不是通過替換每個特殊字符。

e.g：我期待的轉換：

歌劇\ '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 

斯特凡諾PAPADAKIS