[심화방] VBA_심화_100제 #8 [ 동행복권 당첨내역 엑셀 다운로드 ]

우측 하단에 엑셀다운로드를 누르면 1회차부터 최근까지 엑셀 파일이 다운로드 되는 셀레니움 자동화를 해보려한다.

처음에 링크를 들어가면 최근회차의 당첨내역만 나오기 때문에

1회차부터 최근까지로 드롭박스를 변경해줘야한다.

 

'= 자바스크립트 드랍다운 선택
Sel.ExecuteScript "document.querySelector(""#drwNoStart"")[document.querySelector(""#drwNoStart"").selectedIndex].value = 1;"

'= 셀레니움 드랍다운 선택
Sel.FindElementByCss("#drwNoStart").AsSelect.SelectByValue 1

둘 중 편한걸로 선택

Sub 동행복권()
    
    Dim Strurl$
        
        Strurl = "https://dhlottery.co.kr/gameResult.do?method=byWin"       '= 동행복권사이트
        Sel.Timeouts.ImplicitWait = 1000                                    '= 암묵적으로 1초 정도 딜레이
        
        Sel.AddArgument "--start-maximized"                                 '= 최대화
        Sel.Start "chrome"                                                  '= 크롬으로 진행
        Sel.Get Strurl                                                      '= 접속시작
       
        Sel.Wait 1000
   
        '= 자바스크립트 드랍다운 선택
        Sel.ExecuteScript "document.querySelector(""#drwNoStart"")[document.querySelector(""#drwNoStart"").selectedIndex].value = 1;"
        
        '= 셀레니움 드랍다운 선택
        Sel.FindElementByCss("#drwNoStart").AsSelect.SelectByValue 1
      
        Sel.ExecuteScript "document.querySelector(""#exelBtn"").click();"  '= 엑셀 다운로드버튼 클릭
        Sel.Wait 1000
       
       
End Sub

 

전에 드랍다운 선택을 못해서 2-3일 밤을 샜던 기억이 있다...ㅠ.,ㅜ

 

오늘도 맛있는 코드 냠냠

동행복권 당첨번호 엑셀다운.xlsm

0.02MB