Vba 웹 크롤링 네이버 영화순위, vba Selenium

1. Edge 브라우저로 네이버 웹 페이지를 연다

 

2. 검색어에 [ 영화순위 ]를 입력한다.

 

3. 첫번째 웹페이지 영화순위를 엑셀로 가져온다.

 

 

< 소스코드 > 

 

Sub egb_open()

 

    Dim Egb As New Selenium.WebDriver

    Dim ele As WebElement

    Dim count As Integer

 

    Egb.Start "edge"

    Egb.Wait (1000)

    Egb.Get "https://www.naver.com"

 

    ' 영화순위 검색

    Egb.FindElementById("query").SendKeys "영화순위"

 

    ' 검색버튼 클릭

    Egb.FindElementByClass("ico_search_submit").Click

 

    count = 1

반응형

    ' 각 영화제목을 ele에 넣는다.

    For Each ele In Egb.FindElementByClass("_panel").FindElementsByClass("name")

        ' A열에 불러온 값을 넣는다.

        Range("A" & count) = ele.Text

        count = count + 1

     Next ele

 

    ' 브라우저를 닫는다.

    Egb.Close

    Set Egb = Nothing

 

End Sub