Ci sono alcuni siti da cui non si può scaricare attraverso la query web di excel. E' il mio caso: quando vado su questo indirizzo
http://stats.betradar.com/s4/?clientid=5&language=it#2_1,3_17,22_1,5_41264,9_fi xtures,231_full,23_1
mi esce il messaggio, nella cella dove avrei dovuto importare i dati:
JavaScript might have been turned off. Please check your browser settings in order to access and use this site.
Ho capito che bisogna agire tramite il codice Html.Ho provato con questa macro sottostante e mi carica i dati normalmente. Ciò che però non riesco a vedere sono i link per tutte le partite presenti. Vorrei pertanto chiedervi:
Se vi indicassi l'indirizzo sottostante, mi sapreste dire come devo modificare la macro 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_fi xtures,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
Rispondi quotando
