Prelevare dato da pagina Web

Question

Buongiorno

ho arrangiato un codice che dato un valore nella cella attiva mi effettua una ricerca nel sito Yahoo finanza. Fin qui tutto bene il problema, che non so risolvere nonostante mille tentativi, è come importare nella cella accanto a quella attiva un dato che appare nella pagina risultato della ricerca.  Per esempio ottenuto come risultato della ricerca la pagina https://it.finance.yahoo.com/lookup;\_ylc=X3oDMTIzb244cDNwBGtleXcDWFMwOTk2NzgyODM0BG1pZANtZWRpYXF1b3Rlc3NlYXJjaARzZWMDZ2V0cXVvdGVzYnRuBHNsawNsb29rdXA-?s=XS0996782834, dovrei importare il valore "X78283.IT" .

di seguito il mio codiceSub yahoo()

 Set ie = CreateObject("InternetExplorer.Application")

    With ie

        .Visible = True

        .Navigate "https://it.finance.yahoo.com/q?s"

        Do Until .readyState = 4: DoEvents: Loop

        .Document.All.Item("s").Value = ActiveCell

        ie.Document.Forms("quote").Submit

        Do Until .readyState = 4: DoEvents: Loop

        Do While .Busy: DoEvents: Loop

        End With

Grazie a tutti

Answer 1

Prova a chiedere sul forum HTML.it indicato.

Answer 2

Grazie per i suggerimenti.

Ho provato in questo modo:

 ie.document.getElementById("yfi_sym_results").getElementsByClassName("yui-dt").getElementsByClassName("yui-dt-odd").innertext

         Worksheets("ala").Range("B1").Value = innertext

ma niente, mi rassegnerrò al copia e incolla.

Grazie comunque per il tempo dedicatomi.

Answer 3

Mi sembra di capire che dentro a quell'oggetto (una riga <tr> ) ci siano due celle <td>. La prima cella è quella che contiene il dato di tuo interesse.

Io chiederei anche qui:

• http://forum.html.it/forum/forumdisplay.php?forumid=31

dove il dom delle pagine HTML è di casa.... ;-)

E qui la spiegazione del dom HTML:

• http://www.w3schools.com/jsref/dom_obj_document.asp

Answer 4

Grazie infinite per la prontissima risposta.

Immaginavo qualche cosa del genere, ma non sapevo da dove partire. Ho provato a completare il mio codice  aggiungendo le seguenti stringhe:

With htm.getElementByclassname("yui-dt-odd")

        ThisWorkbook.Worksheets("b").Range("g1").Value = .innerText

    End With.

ma mi segnale un errore nella prima riga:

errore di run time 424 nessun oggetto.

Buona serata

Answer 5

Devi recuperare il dato dall'oggetto che lo contiene.

Nel tuo caso, vedendo lo HTML, direi da qui (parte evidenziata):

Da quel poco che capisco, dalla class  yui-dt-odd.

Tieni presente che da alcune pagine che presentano i dati in modo particolare, recuperare dati è quasi impossibile.

Ne abbiamo discusso ad esempio qui:

• http://answers.microsoft.com/it-it/office/forum/office_2010-excel/vba-excel-scaricare-dati-da-un-sito-web/203e76a9-1419-4ba4-9fd8-70e54262a42b