| | 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 |
|
|