Pagina precedente | 1 | Pagina successiva
Stampa | Notifica email    
Autore

scaricare dati web

Ultimo Aggiornamento: 20/12/2017 12:51
Post: 14
Registrato il: 27/07/2017
Città: BARLETTA
Età: 62
Utente Junior
2016
OFFLINE
20/12/2017 12:51

Se vi indicassi l'indirizzo sottostante, mi sapreste dire come devo modificare la macro sottostante affinchè mi compaiano i link delle varie partite presenti nella pagina scaricata? Vi ringrazio immensamente

Sub Macro1()

Application.Calculation = xlCalculationManual

myURL = "http://stats.betradar.com/s4/?clientid=5&language=it#2_1,3_17,22_1,5_41264,9_fixtures,231_full,23_1"

Set ie = CreateObject("InternetExplorer.Application")

With ie
.navigate myURL
.Visible = True
Do While .Busy: DoEvents: Loop
Do While .readyState <> 4: DoEvents: Loop
End With
'
myStart = Timer
Do
DoEvents
If Timer > myStart + 2 Or Timer < myStart Then Exit Do
Loop

I = 1
Worksheets("Foglio1").Activate
Range("A:G").Clear
Set mycoll = ie.document.getElementsByTagName("TABLE")
For Each myItm In mycoll
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
Next trtr
I = I + 1
Next myItm

ie.Quit
Set ie = Nothing
Calculate

End Sub
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
INDICE Confronta con dati invertiti (3 messaggi, agg.: 05/01/2021 07:52)
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 22:05. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com