엑셀

Question

나는 아래 기존의 예제와 매우 비슷한 할 노력하고 있어요 통해 웹 사이트에서 특정 데이터를 가져 오는 : 하나 개의 작은 제외 reference problem

을, 나는 당겨야 리뷰 만 평가 및 # 이 목록을 Excel의 2 개의 개별 셀에 저장합니다.

전체 사이트의 데이터를 가져 오지 않으면 어떻게 이런 짓을 할 수 있습니까? 특정 html 태그를 호출하거나 명령을 사용하여이 작업을 수행해야하지만이 작업이 무엇인지 알 필요가없는 것 같습니다.

제발 도와주세요!

Answer 1

이 코드는 사용자가 요청한 정보의 두 가지를 검색하고 activesheet

Sub test() 
    my_url = "http://www.yelp.com/biz/if-boutique-new-york" 
    Set html_doc = CreateObject("htmlfile") 
    Set xml_obj = CreateObject("MSXML2.XMLHTTP") 

    xml_obj.Open "GET", my_url, False 
    xml_obj.send 
    html_doc.body.innerhtml = xml_obj.responseText 
    Set xml_obj = Nothing 

    Set Results = html_doc.body.getElementsByTagName("i") 
    For Each itm In Results 
     If InStr(1, itm.outerhtml, "star-img", vbTextCompare) > 0 Then 
      numb_stars = itm.getAttribute("title") 
      Exit For 
     Else 
     End If 
    Next 

    Set Results = html_doc.body.getElementsByTagName("span") 
    For Each itm In Results 
     If InStr(1, itm.outerhtml, "reviewCount", vbTextCompare) > 0 Then 
      numb_rev = itm.innertext 
      Exit For 
     Else 
     End If 
    Next 

    ActiveCell = numb_stars 
    ActiveCell.Offset(1, 0) = numb_rev 
End Sub