반응형
S Y N O P S I S #VBA로 웹페이지 소스코드 리턴
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

반응형
'VBA Macro > VBA Excel' 카테고리의 다른 글
[엑셀] DOM 방식의 웹페이지 정보 가져오기 (사이트 추천) (0) | 2017.12.22 |
---|---|
[엑셀] 같은 내용인 경우에 셀 병합하는 매크로 (0) | 2017.12.19 |
[엑셀] 빈행을 동일하게 채우기 매크로 (0) | 2017.11.16 |
[엑셀] 빈 행, 빈셀 삭제하기 매크로 (0) | 2017.11.14 |
[엑셀] XML 파싱하기 #3 - (번외편) 공공데이터(API) 활용 (0) | 2017.11.11 |