(엑셀vba)EncodeUrl, DecodeUrl 

URL로 인코딩된 문자열을 반환하고자 할 때 사용합니다.

인터넷 뒤져서 좀 편집했습니다.

인코딩된 문자열을 디코딩하는거 까지 포함했습니다.

필요한 경우 아래 구문 긁어서 사용하세요.
 

Function ENDECODEURL(varText As Variant, Optional blnEncode = True)
Static objHtmlfile As Object
    If objHtmlfile Is Nothing Then
      Set objHtmlfile = CreateObject("htmlfile")
      With objHtmlfile.parentWindow
        .execScript "function encode(s) {return encodeURIComponent(s)}", "jscript"
        .execScript "function decode(s) {return decodeURIComponent(s)}", "jscript"
      End With
    End If
    If blnEncode Then
      ENDECODEURL = objHtmlfile.parentWindow.encode(varText)
    Else
      ENDECODEURL = objHtmlfile.parentWindow.decode(varText)
    End If
End Function

경축! 아무것도 안하여 에스천사게임즈가 새로운 모습으로 재오픈 하였습니다.
어린이용이며, 설치가 필요없는 브라우저 게임입니다.
https://s1004games.com

참고로 엑셀2013버전부터는 ENCODEURL함수가 내장되어 있습니다.

[출처] https://blog.naver.com/atmyhome/220781233554