Purtroppo la stessa non restituisce niente se non un errore nella stringa
- Codice: Seleziona tutto
Set myColl = IE.document.getElementById("thetable")
Qualcuno gentilmente può darmi una mano? Grazie mille.
- Codice: Seleziona tutto
Sub Prosoccer2()
Sheets("prove prosoccer").Select
Range("a1:z2000").Select
Selection.ClearContents
myUrl = "http://www.forebet.com/it/pronostici-calcistici-per-oggi" '<<<<
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
Set myColl = IE.document.getElementById("thetable")
Set my2Coll = myColl.getElementsByTagName("span")
For Each myspan In my2Coll
DoEvents
If myspan.className = "comp" Then I = I + 1: j = 0
If Left(myspan.className, 5) <> "" Then
Cells(I, j + 1).Value = myspan.innerText
j = j + 1
End If
Next myspan
'Stop 'Vedi testo
'
'Chiusura IE
IE.Quit
Set IE = Nothing
End Sub