title: Auto populate table with date With Date
body: <p>I am Trying to scape a web table through vba In excel, But the table isn't populating, i would appreciate if someone helps. Thanks.
  Below is my code:</p>
  
  <pre><code>Dim strdate As String
  Dim eddate As String
  Dim obj As Object
  
  Set objie = New InternetExplorer
  objie.Visible = True
  objie.navigate "https://www.khistocks.com/company-information/company-profile/ABOT.html"
  
  Do While objie.Busy = True Or objie.readyState &lt;&gt; 4: DoEvents: Loop
  
  strdate = Range("B1").Value
  eddate = Range("C1").Value
  Set obj = objie.Document.getElementById("from")
  obj.Value = strdate
  obj.Click
  
  Set obj = objie.Document.getElementById("to")
  obj.Value = eddate
  obj.Click
  
  
  Application.Wait Now + TimeValue("00:00:03")
  
  objie.Quit
  End Sub
  </code></pre>
  
  <p>Below is the website Link</p>
  
  <p>[WebsiteLink] <a href="https://www.khistocks.com/company-information/company-profile/ABOT.html" rel="nofollow noreferrer">https://www.khistocks.com/company-information/company-profile/ABOT.html</a></p>