[vb6.0/vba] 로또 6/45 번호 회차별 당첨번호 크롤링

Sub 로또645_회차별_추첨결과()

    Dim URL As String, IE As Object, T As String

    Application.ScreenUpdating = 0

    Set IE = CreateObject("WinHttp.WinHttpRequest.5.1")

    URL = "https://dhlottery.co.kr/gameResult.do?"

    URL = URL & "method=allWinExel&nowPage="

    URL = URL & "&drwNoStart=1&drwNoEnd=65535"

    With IE

        .Open "GET", URL

        .setRequestHeader "Host", "dhlottery.co.kr"

        .send: .waitForResponse: DoEvents

        T = .responseText

    End With

    With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")

        .SetText T: .PutInClipboard

    End With

    Cells.Clear: ActiveSheet.Paste Destination:=[A1]

    Columns("D:M").Delete Shift:=xlToLeft

    Cells.EntireColumn.AutoFit

End Sub

 

getLotto645.xlsm

0.08MB