[vba] MSXML2.XMLHTTP.6.0 을 이용한 https://kr.investing.com/ 사이트의 443 포트 크롤링 > vb6.0/vba

본문 바로가기

vb6.0/vba

[vba] [vba] MSXML2.XMLHTTP.6.0 을 이용한 https://kr.investing.com/ 사이트의 443 포트 크…

회원사진
하나를하더라도최선을
2019-09-28 16:26 9,235 0

본문



https://kr.investing.com/equities/south-korea/ 사이트의 443 포트 접속 파싱하기

67d33fee2342d832f7ab2ee38950564d_1569655477_8201.png
 



Sub program1472_com()
    Dim T As String, URL As String
    With CreateObject("MSXML2.XMLHTTP.6.0")
        .Open "GET", URL
        .SetRequestHeader "Host""kr.investing.com"
        .SetRequestHeader "User-Agent""Mozilla/5.0 (Windows NT 10.0; WOW64; rv:56.0) Gecko/20100101 Firefox/56.0"
        .SetRequestHeader "Accept""text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
        .SetRequestHeader "Accept-Language""ko-KR,ko;q=0.8,en-US;q=0.5,en;q=0.3"
        .SetRequestHeader "Connection""keep-alive"
        .SetRequestHeader "Upgrade-Insecure-Requests""1"
        .Send
        T = .ResponseText
    End With
    T = Split(Split(T, "<table")(1), "</table")(0)
    T = "<table" & T & "</table>"
    SetClipboard T
    ActiveSheet.Paste Destination:=[A1]
End Sub
 
'// 클립보드에 텍스트 쓰기
Public Function SetClipboard(ByRef sText As StringAs Boolean ' ### 리턴값: 성공 여부
    On Error GoTo nErr
    Dim Clipboard As Object
'    Microsoft Forms 2.0 Object Library
    Set Clipboard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    Clipboard.SetText sText
    Clipboard.PutInClipboard
    SetClipboard = True
nErr:
End Function



댓글목록0

등록된 댓글이 없습니다.
게시판 전체검색