[vba] 네이버 쇼핑 연관검색어 크롤링

 

네이버 쇼핑에 검색어를 입력하면 나오는 아래의 쇼핑연관 검색어를 추출합니다. 

 

네이버 쇼핑 연관검색어 크롤링 코드

• 주소 가져오기
• 접기 클릭
• 연관 검색어 FindElementsByCss로 가져와 변수에 담기
• for 문으로 엑셀에 츨력하기

Sub 네이버쇼핑가져오기()
     Dim driver As New Selenium.ChromeDriver
     
     driver.Get "https://search.shopping.naver.com/search/all?query=%EC%9B%90%ED%94%BC%EC%8A%A4&cat_id=&frm=NVSHATC"
     driver.FindElementByCss("#container > div.relatedTags_relation_tag__Ct0q2 > div > button").Click
    
    Set 검색어 = driver.FindElementsByCss("#container > div > div > ul > li")
    
    For i = 1 To 30
        Range("A" & i).Value = 검색어(i).Attribute("textContent")
    Next
    
End Sub

 

결과