[Excel VBA] URI デコード

Private Function DecodeURI(ByVal sUri As String)

    ’URIデコード

    Dim oHtmlfile As Object

    Set oHtmlfile = CreateObject("htmlfile")

    oHtmlfile.parentWindow.execScript “function encode(s) {return decodeURIComponent (s)}", “JScript”

    DecodeURI = oHtmlfile.parentWindow.encode(sUri)

    Set oHtmlfile = Nothing

End Function