小编fac*_*497的帖子

我试图找到一种从yelp.com获取数据的方法

我有一个电子表格,其中有几个关键字和位置.我希望根据我的电子表格中已有的关键字和位置从yelp列表中提取数据.

我创建了以下代码,但它似乎得到了荒谬的数据,而不是我正在寻找的确切信息.

我想获得公司名称,地址和电话号码,但我得到的只是一无所获.如果有人在这里可以帮我解决这个问题.

Sub find()

Dim ie As Object
    Set ie = CreateObject("InternetExplorer.Application")
    With ie
        ie.Visible = False
        ie.Navigate "http://www.yelp.com/search?find_desc=boutique&find_loc=New+York%2C+NY&ns=1&ls=3387133dfc25cc99#start=10"
        ' Don't show window
    ie.Visible = False

    'Wait until IE is done loading page
    Do While ie.Busy
        Application.StatusBar = "Downloading information, lease wait..."
        DoEvents
    Loop

    ' Make a string from IE content
    Set mDoc = ie.Document
    peopleData = mDoc.body.innerText
    ActiveSheet.Cells(1, 1).Value = peopleData
End With

peopleData = "" 'Nothing
Set mDoc = Nothing
End Sub