title: Get data from listings on a website to excel VBA
body: <p>I am trying to find a way to get the data from yelp.com</p>
  
  <p>I have a spreadsheet on which there are several keywords and locations. I am looking to extract data from yelp listings based on these keywords and locations already in my spreadsheet.</p>
  
  <p>I have created the following code, but it seems to get absurd data and not the exact information I am looking for. </p>
  
  <p>I want to get business name, address and phone number, but all I am getting is nothing. If anyone here could help me solve this problem.</p>
  
  <pre><code>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&amp;find_loc=New+York%2C+NY&amp;ns=1&amp;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
  </code></pre>