[심화방] VBA_심화_100제 #6 [ 알림창 클릭 ]

크롤링을 하다보면 웹을 제어해야 하는 경우가 많다. 로그인상황이나 알림창 클릭 또는 입력을 하거나 선택을 해야 하는 여러 행동을 하기 위해서는 결국 자바스크립트의 힘을 빌려와야 한다.

 

개똥도 약에 쓸려면 없다고 팝업창 뜨는 사이트들이 많이 없어서 임의로 웹상에 알림창을 자바스크립트를 통해서 띄우고

3초후 알림창을 닫는 구문을 만들어보았다. 실무에서 많이 활용하길 바란다.

 

콘솔창에 alert로 작성하면 이렇게 웹상에 알림창을 띄울 수 있다.

이걸 VBA로 가져오면

Sel.ExecuteScript "alert('Welcome Naver_World')"

이걸 클릭하는 코드는

 Sel.SwitchToAlert.Accept

이렇다

Switch 문은 다른 윈도우나 프레임 팝업창 탭 등 서로의 전환을 할때 많이 사용하는데 정리해서 계속 풀어나가려 한다.

 

오늘도 한층 더 멋지게 성장한 당신과 함께 해서 기쁘다.

Sub Alert_test()
    
    Dim Strurl$
    Dim Node As Object
    Dim W&, H&
    
        
        Strurl = "http://www.naver.com"                     '= 네이버
        Sel.Timeouts.ImplicitWait = 1000                    '= 암묵적으로 1초 정도 딜레이
        
        Sel.AddArgument "--start-maximized"                 '= 최대화
        Sel.Start "chrome"                                  '= 크롬으로 진행
        Sel.Get Strurl                                      '= 접속시작
       
       
        Sel.ExecuteScript "alert('Welcome Naver_World')"    '= 네이버 창에 알림창 팝업을 띄워라
        
        Sel.Wait 3000                                       '= 3초후에
        Sel.SwitchToAlert.Accept                            '= 확인 클릭
       
End Sub

알림창 클릭.xlsm

0.02MB