【转载】Excel vba调用js将UTF

'法一：调用JS
Function UTF8toChineseCharacters(szInput)
    Set js = CreateObject("MSScriptControl.ScriptControl")
    js.Language = "JavaScript"
    js.AddCode "function decode(str){return unescape(str.replace(/\u/g,'%u'));}"
    UTF8toChineseCharacters = js.Eval("decode('" & szInput & "')")
End Function

'法二：使用ChrW函数
Function myChrW(szInput)
    On Error Resume Next
    Dim str As String
    Dim code() As String
    code = Split(Replace(Trim(szInput), "\u", "\&H"), "\")
    'If Not UBound(code) < 1 Then
    For Each i In code
        If i <> "" Then str = str & ChrW(i)
    Next
    'End If
    myChrW = str
End Function