ENCODEURL 함수 예제 :: 한글을 URL로 변경하는 함수

엑셀 URL 주소 인코딩 변환 :: EncodeURL 명령문 예제

엑셀 EncodeURL 명령문 목차 바로가기

예제파일 다운로드
명령문 상세 설명
EncodeURL 명령문 전체 코드
명령문 실전 사용예제
동작원리 단계별 알아보기

요약

ENCODEURL 함수는 한글 또는 영문 문자열을 URL 주소로 변경하는 함수입니다.

명령문 구문

= EncodeURL ( 문자열, [출력여부] )

사용된 인수 및 변수 알아보기

인수	설명
문자열 [Range]	URL주소로 변경할 한글,영문,특수기호가 포함된 문자열입니다. 문자열이 입력된 셀을 선택할 수도 있습니다.
출력여부 [Boolean]	FALSE 일 경우 결과값을 출력하지 않습니다. 기본값은 TRUE 입니다.

예제파일 다운로드

오빠두엑셀의 강의 예제파일은 여러분을 위해 자유롭게 제공하고 있습니다.

[엑셀VBA함수] EncodeURL :: 한글/영문 URL 주소 인코딩 변환
예제파일
다운로드

상세 설명

엑셀 EncodeURL 함수는 한글/영문, 특수기호가 포함된 문자열을 웹 URL 표준 주소로 변경하는 함수입니다.

엑셀 2016 이후 부터는 기본 내장함수로 제공되며, 2013 이전 버전을 사용중일 경우 아래 명령문을 추가하여 사용합니다. ENCODEURL 함수는 한글 또는 영문 문자열을 URL 주소로 변경해주는 함수이며, URL 주소를 올바른 한글 또는 영문 문자열로 다시 변환하려면 DECODEURL 함수를 사용합니다.

VBA ENCODEURL 함수 사용예제 — 엑셀 EncodeURL 함수는 한글/영문 문자열을 표준 URL 주소로 변환하는 함수입니다.

실전 사용 예제

한글이 포함된 주소를 표준 URL주소로 변환하기

Sub Test()
Dim s As String
s = "http://www.google.com/search=사과"
s = ENCODEURL(s)
MsgBox s
'결과값으로 http%3A%2F%2Fwww.google.com%2Fsearch%3D%EC%82%AC%EA%B3%BC 가 반환됩니다.
End Sub

엑셀 URL 주소 인코딩 변환, EncodeURL 명령문 동작원리

EncodeURL 명령문 전체 코드

Function ENCODEURL(varText As Variant, Optional blnEncode = True)
 
'###############################################################
'오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com)
'▶ EncodeURL 함수
'▶ 한글/영문, 특수기호가 포함된 문자열을 웹 URL 표준 주소로 변환합니다.
'▶ 인수 설명
'_____________varTest        : 표준 URL 주소로 변환할 문자열입니다.
'_____________blnEncode      : TRUE 일 경우 결과값을 출력합니다.
'▶ 사용 예제
's = "http://www.google.com/search=사과"
's = ENCODEURL(s)
'MsgBox s
'###############################################################
 
Static objHtmlfile As Object
 
If objHtmlfile Is Nothing Then
    Set objHtmlfile = CreateObject("htmlfile")
    With objHtmlfile.parentWindow
    .execScript "function encode(s) {return encodeURIComponent(s)}", "jscript"
    End With
End If
 
If blnEncode Then
    ENCODEURL = objHtmlfile.parentWindow.encode(varText)
End If
 
End Function

명령문 동작원리 단계별 알아보기

objHtmlFile 이라는 HtmlFile 개체를 변수로 생성합니다.

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

생성한 HTML 개체에 encodeURIComponent 함수를 사용해 encode 라는 또다른 함수를 생성합니다.
encodeURIComponent 함수에 대한 Javascript 함수 설명은 Mozilla 공식 홈페이지 관련 링크를 참고하세요.
With objHtmlfile.parentWindow .execScript "function encode(s) {return encodeURIComponent(s)}", "jscript" End With
출력여부가 True면, 함수의 결과값으로 URL 인코딩 된 문자열을 반환합니다.
If blnEncode Then ENCODEURL = objHtmlfile.parentWindow.encode(varText) End If

5 3 투표

게시글평점