title: Extracting data from website to excel error
body: <p>I am having a difficulty setting up data extraction from website to Excel.
  I want to extract exact price of a product to excel.
  So far I have this code:</p>
  
  <pre><code>Sub GetData()
  
      Dim objIE As InternetExplorer  'Microsoft Internet Controls library added
      Dim itemEle As Object
      Dim data As String
      Dim y As Integer
  
      Set objIE = New InternetExplorer
      objIE.Visible = True
  
      objIE.navigate "https://www.nay.sk/samsung-ue55nu7172"
      Do While objIE.Busy = True Or objIE.readyState &lt;&gt; 4: DoEvents: Loop
  
      y = 1
  
      For Each itemEle In objIE.document.getElementsByClassName("price")
      data = itemEle.getElementsByClassName("price")(0).innerText
          y = y + 1
      Next
      data = Range("A1").Value
  End Sub
  </code></pre>
  
  <p>What would you suggest?</p>