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
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