Sharid
Well-known Member
- Joined
- Apr 22, 2007
- Messages
- 1,064
- Office Version
- 2016
- Platform
- Windows
I am trying to pull the following data from this html text, but can not seem to work it out. I have the bulk of my code and was trying to change some parts that deal with the extraction but can not work this out. Please could someone take a look
Code that should pull off the data
Another variation of the code
As always thanks in advance
Code that should pull off the data
VBA Code:
For Each li In HTMLdoc.getElementsByTagName("li")
If li.getAttribute("class") = "a-link-normal" Then
Set link = li.getElementsByTagName("a")(0)
.Cells(i, 1).Value = link.getAttribute("href")
i = i + 1
End If
Next li
Another variation of the code
VBA Code:
For Each div In HTMLdoc.getElementsByClassName("a-row a-spacing-none s-see-all-c3-refinement s-see-all-refinement-list")
If div.getAttribute("class") = "s-see-all-indexbar-column" Then
Set link = div.getElementsByTagName("a")(0)
.Cells(i, 1).Value = link.getAttribute("href")
i = i + 1
End If
Next div
As always thanks in advance