엑셀 HTML 특수기호 변환 :: Conert_HTMLEntities 함수 사용법

HTML 기호 변환 :: Convert_HtmlEntities 명령문 사용법 총정리

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

예제파일 다운로드
명령문 상세 설명
Convert_HtmlEntities 명령문 전체 코드
명령문 실전 사용예제

요약

엑셀 Convert_HtmlEntities 함수는 HTML 코드에 포함된 특수문자 표현문자를 실제 특수문자로 변경해주는 VBA 함수입니다.

명령문 구문

sHTML = Convert_HtmlEntities(sHTML)

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

인수	설명
sHTML [Variant]	특수문자 표현값이 입력된 HTML 문서 전체 코드입니다.

예제파일 다운로드

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

[엑셀VBA함수] CHTMLEntities 함수
예제파일
로그인하기

상세 설명

엑셀 Convert_HtmlEntities 명령문은 특수문자를 나타내는 HTML 코드를 실제 특수문자 기호로 변경해주는 VBA 사용자 함수입니다. 웹 페이지를 크롤링하거나 웹 페이지를 복사, 붙여넣기하여 직접 받아온 문장에 포함된 HTML 특수기호 코드 (예: &, <, >) 등을 실제 특수기호로 변환할 때 사용합니다.

엑셀 VBA로 특정 웹 페이지의 데이터를 받아와야 할 경우, 홈페이지에서 제공해드리는 GetHTTP 명령문을 사용하면 페이지의 HTML 코드를 손쉽게 받아올 수 있습니다. GetHTTP 함수의 전체 명령문 및 사용예제는 아래 관련 포스트를 참고하세요.

엑셀 GetHTTP 함수 사용법 및 예제 - 웹 크롤링 함수

특수기호를 나타내는 대표적인 HTML 표현 코드는 아래 표와 같습니다.

HTML 문자 표현	특수기호	설명
<	<	보다 작은(Less Than)
>	>	보다 큰(Greater Than)
&	&	그리고(Ampersand)
"	"	따옴표(Quotation)
	줄바꿈	줄바꿈(Non Breaking SPace)
...	...	...

실전 사용 예제

HTML 코드에 포함된 특수문자 코드를 실제 특수문자로 변경하기

Dim strHTML As String
strHTML : "MBC뉴스, 오빠두기자입니다. &lt;MBC뉴스&gt;"
strHTML = Convert_HtmlEntities(strHTML)
MsgBox strHTML 
'strHTML : MBC뉴스, 오빠두기자입니다. <MBC뉴스>

getHTTP로 받아온 HTML 코드의 특수문자 코드를 실제 특수문자로 변경하기

Dim htmlResult As HTMLDocument
Dim htmlString As String
 
Set htmlResult = GetHttp("https://www.naver.com")
htmlString = htmlResult.body.innerhtml
htmlString = Convert_HtmlEntities(htmlString)
MsgBox htmlString

HTML 기호 변환, HtmlEntities 명령문 동작원리

HtmlEntities 명령문 전체 코드

Function Convert_HtmlEntities(s) As Variant
 
'###############################################################
'오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com)
'▶ HtmlEntities 함수
'▶ HTML 코드에 포함된 특수기호 표현문자를 실제 특수기호로 변환합니다.
'▶ 인수 설명
'_____________sHTML         : HTML 코드입니다.
'▶ 사용 예제
'Dim sHTML As String
'sHTML = GetHttp("https://www.naver.com").body.innerhtml
'sHTML = Convert_HtmlEntities(sHTML)
'###############################################################
 
s = Replace(s, "&quot;", """")
s = Replace(s, "&amp;", "&")
s = Replace(s, "&apos;", "'")
s = Replace(s, "&lt;", "<")
s = Replace(s, "&gt;", ">")
s = Replace(s, "&nbsp;", vbNewLine)
s = Replace(s, "&iexcl;", "¡")
s = Replace(s, "&acute;", "´")
s = Replace(s, "&pound;", "￡")
s = Replace(s, "&curren;", "¤")
s = Replace(s, "&yen;", "￥")
s = Replace(s, "&brvbar;", "|")
s = Replace(s, "&sect;", "§")
s = Replace(s, "&uml;", "¨")
s = Replace(s, "&ordf;", "ª")
s = Replace(s, "&cent;", "￠")
s = Replace(s, "&not;", "￢")
s = Replace(s, "&reg;", "®")
s = Replace(s, "&deg;", "°")
s = Replace(s, "&plusmn;", "±")
s = Replace(s, "&sup2;", "²")
s = Replace(s, "&sup3;", "³")
s = Replace(s, "&micro;", "μ")
s = Replace(s, "&para;", "¶")
s = Replace(s, "&middot;", "·")
s = Replace(s, "&cedil;", "¸")
s = Replace(s, "&sup1;", "¹")
s = Replace(s, "&ordm;", "º")
s = Replace(s, "&copy;", "ⓒ")
s = Replace(s, "&frac14;", "¼")
s = Replace(s, "&frac12;", "½")
s = Replace(s, "&frac34;", "¾")
s = Replace(s, "&iquest;", "¿")
s = Replace(s, "&times;", "×")
s = Replace(s, "&szlig;", "ß")
s = Replace(s, "&divide;", "÷")
s = Replace(s, "&circ;", "^")
s = Replace(s, "&tilde;", "~")
s = Replace(s, "&mdash;", "-")
s = Replace(s, "&lsquo;", "'")
s = Replace(s, "&dagger;", "†")
s = Replace(s, "&sbquo;", "'")
s = Replace(s, "&ldquo;", """")
s = Replace(s, "&rdquo;", """")
s = Replace(s, "&bdquo;", """")
s = Replace(s, "&laquo;", "≪")
s = Replace(s, "&hellip;", "…")
s = Replace(s, "&permil;", "‰")
s = Replace(s, "&euro;", "€")
s = Replace(s, "&trade;", "™")
s = Replace(s, "&raquo;", "≫")
s = Replace(s, "&rsquo;", "'")
s = Replace(s, "&yuml;", "y")
 
Convert_HtmlEntities = s
 
End Function

5 1 투표

게시글평점