title: Data Extraction from Webpage to Excel using VBA
body: <p>I was trying to pull a table from Webpage, so far i was successful pull a table from Webpage, unfortunately i have some links in each row of table, when i pulled the table from Webpage, i am getting output without link, just text, is there any way we can pull table from webpage using VBA including hyperlinks.</p>
  
  <p>Here is my code:</p>
  
  <pre><code>Sub TableExample()
  Dim IE As Object
  Dim doc As Object
  Dim strURL As String
  
  strURL = "HERE I USED MY URL"
  ' replace with URL of your choice
  
  Set IE = CreateObject("InternetExplorer.Application")
  With IE
  '.Visible = True
  
  .Navigate strURL
  Do Until .readyState = 4: DoEvents: Loop
  Do While .Busy: DoEvents: Loop
  Set doc = IE.Document
  GetAllTables doc
  
  .Quit
  End With
  End Sub
  
  Sub GetAllTables(doc As Object)
  
  ' get all the tables from a webpage document, doc, and put them in a new worksheet
  
  Dim ws As Worksheet
  Dim rng As Range
  Dim tbl As Object
  Dim rw As Object
  Dim cl As Object
  Dim tabno As Long
  Dim nextrow As Long
  Dim I As Long
  
  Set ws = Worksheets.Add
  
  For Each tbl In doc.getElementsByTagName("TABLE")
  tabno = tabno + 1
  nextrow = nextrow + 1
  Set rng = ws.Range("B" &amp; nextrow)
  rng.Offset(, -1) = "Table " &amp; tabno
  For Each rw In tbl.Rows
  For Each cl In rw.Cells
  rng.Value = cl.outerText
  Set rng = rng.Offset(, 1)
  I = I + 1
  Next cl
  nextrow = nextrow + 1
  Set rng = rng.Offset(1, -I)
  I = 0
  Next rw
  Next tbl
  
  ws.Cells.ClearFormats
  
  End Sub
  </code></pre>