Buongiorno.
Fino a qualche giorno fa utilizzavo questo codice per navigare in un sito web, copiare e incollare un'intera tabella su Excel.
Adesso l'esigenza è cambiata: ho necessita di estrarre un singolo dato in riferimento a un criterio di ricerca.
Mi spiego: supponiamo di disporre del seguente criterio di ricerca (esempio: "AB123") che è certamente presente nella colonna 3, avrei bisogno di identificare la riga ed estrarre il dato che si trova quattro colonne più a destra.
Ad esempio: se "AB123" si trova nella riga 10 della colonna 3, il valore da estrarre è quello che si trova in riga 10 e colonna 7 (3+4).
Riuscite a darmi quanto meno un'indicazione?
Grazie.
Dim tbls, tbl, trs, tr, tds, td, r, c
Set tbls = IE.document.getElementsByTagName("table")
For r = 0 To tbls.Length - 1
Debug.Print r, tbls(r).Rows.Length
Next r
Set tbl = IE.document.getElementsByTagName("table")(8)
Set trs = tbl.getElementsByTagName("tr")
For r = 0 To trs.Length - 1
Set tds = trs(r).getElementsByTagName("td")
If tds.Length = 0 Then Set tds = trs(r).getElementsByTagName("th")
For c = 0 To tds.Length - 1
Worksheets("Foglio1").Range("A1").Offset(r, c).Value = tds(c).innerText
Next c
Next r