DECODEURL 함수 사용법 및 전체 명령문 :: URL주소를 한글로 변환

Function DECODEURL(varText As Variant, Optional blnEncode = True)
 
'############################################################
'한글/영문 텍스트를 URL 주소로 변경합니다.
'https://www.oppadu.com/vba-decodeurl-함수/
'############################################################
 
Static objHtmlfile As Object
 
If objHtmlfile Is Nothing Then
    Set objHtmlfile = CreateObject("htmlfile")
    With objHtmlfile.parentWindow
    .execScript "function decode(s) {return decodeURIComponent(s)}", "jscript"
    End With
End If
 
If blnEncode Then
    DECODEURL = objHtmlfile.parentWindow.decode(varText)
End If
 
End Function

Static objHtmlfile As Object
 
If objHtmlfile Is Nothing Then
    Set objHtmlfile = CreateObject("htmlfile")
End If

    With objHtmlfile.parentWindow
    .execScript "function decode(s) {return decodeURIComponent(s)}", "jscript"
    End With

If blnEncode Then
    DECODEURL = objHtmlfile.parentWindow.decode(varText)
End If