grafico escluso
Questo è il codice che usavo per altre pagine, ma che per questa non carica nulla:
- Codice: Seleziona tutto
Sub GetTabSubGOLD()
'Va Chiamata passandogli l'URL da leggere
myURL = "https://www.bloomberg.com/quote/GC1:COM"
Set IE = CreateObject("InternetExplorer.Application")
With IE
.navigate myURL
.Visible = True
Do While .Busy: DoEvents: Loop 'Attesa not busy
Do While .readyState <> 4: DoEvents: Loop 'Attesa documento
End With
myStart = Timer 'attesa addizionale
Do
DoEvents
If Timer > myStart + 2 Or Timer < myStart Then Exit Do
Loop
'Leggi le tabelle SUL FOGLIO ATTIVO
Sheets("GOLD").Activate
Worksheets("GOLD").Visible = True
Sheets("GOLD").Select
Set myColl = IE.document.getElementsByTagName("TABLE")
For Each myItm In myColl
i = i + 1
For Each trtr In myItm.Rows
For Each tdtd In trtr.Cells
Cells(i + 1, J + 1) = tdtd.innertext
J = J + 1
Next tdtd
i = i + 1: J = 0
DoEvents
Next trtr
i = i + 1
Next
IE.Quit
Set IE = Nothing
'Worksheets("GOLD").Visible = False
End Sub
Ho pensato di cambiare Table con script, ma non ha funzionato. Qualche consiglio per risolvere?
(Con la query si caricano tutti i dati che mi servirebbero, ma per uno script del sito compaiono diversi errori che rendono la query web inutilizzabile)