vb6.0vba 로또 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 = 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 (80.6K)
0회 다운로드 | DATE : 2023-02-16 06:24:15
- 이전글[vb6.0/vba] htmlfile(MSHTML.HTMLDocument) 를 이용한 스크립트를 통한 encode / decode 23.03.11
- 다음글[vba] 가위, 바위, 보 게임 22.10.16
댓글목록
등록된 댓글이 없습니다.