Hi, I'm a beginner with Excel/HTML and I am trying to get data
from a web page
into my spreadsheet using VBA. I've been trying to follow a YouTube video on the subject. I've managed to navigate to a search results list page but am unable to access the data. The source code for one instance in the search results list is:
< li>154 Morris Ave, Summit City, NJ
Block: http://red12012.TaxRecords.com/cgi-bin/TAXSEARCH?c...">4207 Lot:
< A HREF="http://red12012.TaxRecords.com/cgi-bin/TAXLOT?acco...">
17
Google Map : Click Here!
Width: 66 X Depth: 102 Land: 56,500.00 Build: 147,700.00 Total $204,200.00
Sold: $1.00 on 03/05/2007 BOOK: 5639
PAGE: 277
< br>
$0.00 - **/**/****
$0.00 - **/**/****
$0.00 - **/**/****
< A HREF="http://www.zipcodedatabase.com/NJ-Upper+Saddle+Riv..." target="_blank">Census Tract Info (opens in new window)
< br>
My VBA code is:
For Each ele In .document.all
Select Case ele.classname
Case "????"
RowCount = RowCount + 1
Case "Address"
sht.Range("A" & RowCount) = ele.innertext
Case "Block"
sht.Range("B" & RowCount) = ele.innertext
Case "Lot"
sht.Range("C" & RowCount) = ele.innertext
Case "Width"
sht.Range("D" & RowCount) = ele.innertext
Case "Depth"
sht.Range("E" & RowCount) = ele.innertext
End Select
Next ele
End With
Set objie = Nothing
End Sub
Thank You in advance
!


< li>154 Morris Ave, Summit City, NJ
Block: http://red12012.TaxRecords.com/cgi-bin/TAXSEARCH?c...">4207 Lot:
< A HREF="http://red12012.TaxRecords.com/cgi-bin/TAXLOT?acco...">
17
Google Map : Click Here!
Width: 66 X Depth: 102 Land: 56,500.00 Build: 147,700.00 Total $204,200.00
Sold: $1.00 on 03/05/2007 BOOK: 5639
PAGE: 277
< br>
$0.00 - **/**/****
$0.00 - **/**/****
$0.00 - **/**/****
< A HREF="http://www.zipcodedatabase.com/NJ-Upper+Saddle+Riv..." target="_blank">Census Tract Info (opens in new window)
< br>
My VBA code is:
For Each ele In .document.all
Select Case ele.classname
Case "????"
RowCount = RowCount + 1
Case "Address"
sht.Range("A" & RowCount) = ele.innertext
Case "Block"
sht.Range("B" & RowCount) = ele.innertext
Case "Lot"
sht.Range("C" & RowCount) = ele.innertext
Case "Width"
sht.Range("D" & RowCount) = ele.innertext
Case "Depth"
sht.Range("E" & RowCount) = ele.innertext
End Select
Next ele
End With
Set objie = Nothing
End Sub
Thank You in advance
