PDA

View Full Version : Pull innertext from 2nd and 3rd tables within each class name



b.hill
08-26-2014, 06:25 AM
Hello all,

I am trying to pull the innertext of the 2nd and 3rd <td> tags within the class names that equal "trigbox" in the HTML code below. I have attempted a solution, but it's not giving me the desired results and I have to think there might be a more efficient approach. Thank you in advance.


<span classname="trigbox">
<td>10</td>
<td>20</td>
<td>30</td>
<td>40</td>
<td>50</td>
</span>
<span classname="trigbox">
<td>60</td>
<td>70</td>
<td>80</td>
<td>90</td>
<td>100</td>
</span>


Sub test()

For each HTMLDoc.getelementsbyclassname("trigbox") in HTMLDoc
ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1).Value = HTMLDoc.getelementsbyclassname("trigbox").getelementsbytagname("td")(1).innertext
ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1).Value = HTMLDoc.getelementsbyclassname("trigbox").getelementsbytagname("td")(2).innertext
Next

End sub

snb
08-26-2014, 09:17 AM
Sub M_snb()
With CreateObject("htmlfile")
.body.innerHTML = "<table ><tr> <td>10</td> <td>20</td> <td>30</td> <td>40</td> <td>50</td></tr><tr><td>60</td> <td>70</td><td>80</td> <td>90</td> <td>100</td></tr></table>"
MsgBox .getElementsByTagName("table").Item(0).innerText
End With
End Sub