[vb6.0vba] 로또 6/45 번호 회차별 당첨번호 크롤링
하나를하더라도최선을
2023-02-16 06:24
2,403
0
-
- 첨부파일 : getLotto645.xlsm (80.6K) - 다운로드
본문
Sub 로또645_회차별_추첨결과()
Dim URL As String, IE As Object, T As String
Application.ScreenUpdating = 0
Set IE = CreateObject("WinHttp.WinHttpRequest.5.1")
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
댓글목록0