Try to get some data from a web site - html

Question

I would like to get a different prices from financial site and store them in an Excel file.
I don't have good knowledge and I would like to know if the code I did to get data from a web site is the best or it could be done better.
The web site HTML code is this one. I would like to get the last td at the end just after 'Prezzo di chiusura' that has inside 103,74.
I have these questions:
I used the get elementsbytagname("td")(39) , I have just counted the the td number in the page, is there a better way to address that td ?
I noticed that sometime I have previous price and not the one I see in the web page, with my code do I access a different area data that the one I see in the web page and until it is not updated I will see only the previous data?
The HTML code is:
<div class="instruments_company_summary">
<table class="table-noborders">
<tr>
<td class="table_label"> </td>
<td>
<div class="floatdx" style="padding-bottom:10px">
<div class="floatsx">
<div class="standard-button">
Grafico </div>
</div>
<div class="floatsx">
<div class="standard-button">
Scheda </div>
</div>
<div class="floatsx">
<div class="standard-button">
Scarica book </div>
</div>
</div>
</td>
</tr>
<tr>
<td class="table_label">Isin</td>
<td>
<div class="floatsx" style="padding-top:4px;">IT0004785355</div>
</td>
</tr>
<tr>
<td class="table_label">Descrizione</td>
<td>Bpvi 7% 29dc16</td>
</tr>
<tr>
<td class="table_label">Prezzi aggiornati al</td>
<td>09-11-2015 21:28:48</td>
</tr>
</table>
<table>
<tr>
<th colspan="2">Book di negoziazione</th>
</tr>
<tr>
<td class="table_label">Var</td>
<td>0,05%</td>
</tr>
<tr>
<td class="table_label" style="border:0">Book a 5 livelli</td>
<td style="border:0; padding: 10px 0 5px">
<table>
<thead>
<tr>
<th>Q.tà Acquisto</th>
<th>Prezzo Acquisto</th>
<th>Prezzo Vendita</th>
<th>Q.tà Vendita</th>
</tr>
</thead>
<tbody>
<tr>
<td>-</td>
<td>-</td>
<td>-</td>
<td>-</td>
</tr>
<tr>
<td>-</td>
<td>-</td>
<td>-</td>
<td>-</td>
</tr>
<tr>
<td>-</td>
<td>-</td>
<td>-</td>
<td>-</td>
</tr>
<tr>
<td>-</td>
<td>-</td>
<td>-</td>
<td>-</td>
</tr>
<tr>
<td>-</td>
<td>-</td>
<td>-</td>
<td>-</td>
</tr>
</tbody>
</table>
</td>
</tr>
</table>
<table>
<tr>
<th colspan="2">Dati ultimo contratto</th>
</tr>
<tr>
<td class="table_label">Prezzo</td>
<td>103,93</td>
</tr>
<tr>
<td class="table_label">Quantità</td>
<td>5.000</td>
</tr>
<tr>
<td class="table_label">Data e ora</td>
<td>09-11-2015 16:59:33</td>
</tr>
</table>
<table>
<tr>
<th colspan="2">Dati giornalieri</th>
</tr>
<tr>
<td class="table_label">Prezzo di chiusura</td>
<td>103,74</td>
</tr>
The Excel VBA code is this one:
Dim W As Worksheet: Set W = ActiveSheet
Dim Objie As Object
Dim xObj
Set Objie = CreateObject("InternetExplorer.Application")
Objie.Visible = False
Objie.Navigate "http://www.eurotlx.com/it/strumenti/dettaglio/IT0004785355"
While (Objie.Busy Or Objie.ReadyState <> 4)
DoEvents
Wend
Set xObj = Objie.Document.getElementsByTagName("td")(39)
W.Range("I3" ) = xObj.innerText
Set xObj = Nothing
Objie.Quit
Set Objie = Nothing

Answer 1

This would be better (insulates you from changing numbers of rows in previous tables)
Dim tbl, xObj
Set tbl = Objie.Document.getElementsByTagName("table")(3) '4th table on page
Set xObj = tbl.getElementsByTagName("td")(2) 'second td in that table

Answer 2

You can also search for your desired data ("PREZZO DI CHIUSURA") and get the value given to it using the nextElementSibling Property. This way, you can be always be sure that the value obtained is independent of the table structure that eurotlx.com delivers.
Sub Scrape()
Dim ie As Object
'Get rid of cached sites
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 255"
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = False
ie.navigate "http://www.eurotlx.com/it/strumenti/dettaglio/IT0004785355"
While (ie.Busy Or ie.ReadyState <> 4)
DoEvents
Wend
Set tds = ie.document.getElementsByClassName("table_label")
For Each TDelement In ie.document.getElementsByClassName("table_label")
If InStr(TDelement.innerText, "Prezzo di chiusura") Then
Range("I3") = TDelement.nextElementSibling.innerText
Exit For
End If
Next
End Sub
Of course, the weakeness of this method is, that if the site administrator changes the innerText of "prezzo di chiusura", Excel will not be able to find its value.

Answer 3

CSS selector:
You can use a CSS selector of: table:last-child .table_label ~ td
The element with td tag following last table tag with className .table_label.
CSS query:
VBA:
You apply the CSS selector with the querySelector method of document.
Debug.Print Objie.Document.querySelector("table:last-child .table_label ~ td").innerText