[엑셀] XML 파싱하기 #1 - 웹페이지 소스코드 따오기(기본코드)

S Y N O P S I S #VBA로 웹페이지 소스코드 리턴

URL로 설정된 웹페이지 주소의 소스코드를 따오는 매크로.

다시 말하면, 웹페이지에서 소스보기를 했을 때 나타나는 내용 모두를 myText 변수로 반환하는 매크로.

VBA Code

Sub web_source()
Dim Http As Object
Dim myText As String, myURL as String

myURL = "http://www.naver.com"

Set Http = CreateObject("MSXML2.XMLHTTP")
'Set Http = CreateObject("WinHTTP.WinHTTPrequest.5.1")  '개인적으로 선호

Http.Open "GET", myURL, False
Http.send
myText = Http.ResponseBody
'myText = Http.ResponseText              '개인적으로 선호
'myText = strConv(Http. ResponseBody, vbUnicode)           유니코드로 변환
End Sub

 Copyright (2018) Ruahneuma. All Rights Reserved.