메뉴
이 페이지에서
실무 위키›VBA 코드›Convert_HtmlEntities

Convert_HtmlEntities

Function

HTML 코드에 포함된 특수문자 표현문자를 실제 특수문자로 변환하는 VBA 사용자 지정 함수입니다.

예제파일 다운로드
Convert_HtmlEntities 코드 미리보기
구문 = Convert_HtmlEntities ( sHTML )
인수구분 형식 설명
sHTML 필수 Variant
특수문자 표현값이 입력된 HTML 문서 전체 코드입니다.
GetHttp 명령문으로 받아온 웹 페이지의 HTML 코드를 그대로 넣을 수 있습니다.

마스터 코드

복사한 코드는 VBA 편집기(Alt + F11) 새 모듈에 붙여넣어 사용하세요
Module1 · Convert_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, """, """")
s = Replace(s, "&", "&")
s = Replace(s, "'", "'")
s = Replace(s, "<", "<")
s = Replace(s, ">", ">")
s = Replace(s, " ", vbNewLine)
s = Replace(s, "¡", "¡")
s = Replace(s, "´", "´")
s = Replace(s, "£", "￡")
s = Replace(s, "¤", "¤")
s = Replace(s, "¥", "￥")
s = Replace(s, "¦", "|")
s = Replace(s, "§", "§")
s = Replace(s, "¨", "¨")
s = Replace(s, "ª", "ª")
s = Replace(s, "¢", "￠")
s = Replace(s, "¬", "￢")
s = Replace(s, "®", "®")
s = Replace(s, "°", "°")
s = Replace(s, "±", "±")
s = Replace(s, "²", "²")
s = Replace(s, "³", "³")
s = Replace(s, "µ", "μ")
s = Replace(s, "¶", "¶")
s = Replace(s, "·", "·")
s = Replace(s, "¸", "¸")
s = Replace(s, "¹", "¹")
s = Replace(s, "º", "º")
s = Replace(s, "©", "ⓒ")
s = Replace(s, "¼", "¼")
s = Replace(s, "½", "½")
s = Replace(s, "¾", "¾")
s = Replace(s, "¿", "¿")
s = Replace(s, "×", "×")
s = Replace(s, "ß", "ß")
s = Replace(s, "÷", "÷")
s = Replace(s, "ˆ", "^")
s = Replace(s, "˜", "~")
s = Replace(s, "—", "-")
s = Replace(s, "‘", "'")
s = Replace(s, "†", "†")
s = Replace(s, "‚", "'")
s = Replace(s, "“", """")
s = Replace(s, "”", """")
s = Replace(s, "„", """")
s = Replace(s, "«", "≪")
s = Replace(s, "…", "…")
s = Replace(s, "‰", "‰")
s = Replace(s, "€", "€")
s = Replace(s, "™", "™")
s = Replace(s, "»", "≫")
s = Replace(s, "’", "'")
s = Replace(s, "ÿ", "y")
Convert_HtmlEntities = s
End Function

활용 예제

HTML 코드의 특수문자 코드를 실제 기호로 변경
Dim strHTML As String
strHTML : "MBC뉴스, 오빠두기자입니다. <MBC뉴스>"
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

안내사항

두 번째 예제에 사용한 GetHttp 명령문은 별도 게시글에서 제공하는 보조 명령문으로, 위 전체 코드에는 포함되어 있지 않습니다.
댓글 1
5 (1개 평가)
강민준🤗
강민준🤗 2024.08.11 12:05
좋은 자료 감사합니다.🙇‍♂️
스크랩 완료