Diciamo che i gestori del sito preferiscono che i loro dati rimangano visualizzabili ma non gestibili facilmente al di fuori del loro ambiente...
Se si guarda il sorgente e' evidente che nelle caselle sotto OUTCOME PREDICTION(%) ci sono scritte stringhe come quelle che importi (es " MB", " FU", " LF" e cosi' via); invece a video si visualizza una immagine impostata nel foglio di stile css, corrispondente all' url
http://www.prosoccer.gr/imgs/num9_13.pngL' immagine viene fatta "scorrere" in verticale in modo che nella casella del <td> emerga il numero voluto; es per il n° 5 si usa background-position: 0px -65px; per il n° 6 invece background-position: 0px -78px; il n° 7 invece background-position: 0px -91px; e cosi' analogamente per comporre gli altri numeri.
Diciamo che si puo' decodificare il numero lavorando sul codice html, ma se l' hanno fatta cosi' e' perche' non vogliono farsi "intercettare", e probabilmente cambieranno foglio stile e sorgente periodicamente, con la certezza che il codice di oggi non andra' bene domani.
Quindi a scopo puramente ludico sottopongo questo codice che estrae le colonne 1, x, 2 relative all' outcome prediction(%).
- Codice: Seleziona tutto
Sub pipp()
Dim IE As Object, myVal As String
'
myurl = "http://www.prosoccer.gr/en/2014/02/soccer-predictions-2014-02-26.html"
'
If IE Is Nothing Then Set IE = CreateObject("InternetExplorer.Application")
'Set IE = CreateObject("InternetExplorer.Application")
Sheets("Foglio4").Select
Sheets("Foglio4").Range("A:Z").ClearContents
On Error GoTo QuitIE
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
Do
DoEvents
If Timer > myStart + 1 Or Timer < myStart Then Exit Do
Loop
'
Set myColl = IE.document.getElementbyid("anyid") 'IE.Document.GetElementsByTagName("table")
'
jj = 2
For Each trtr In myColl.Rows
kk = 1
For Each tdtd In trtr.Cells
If Left(tdtd.classname, 3) = "pli" Then
Set my2Coll = tdtd.getelementsbytagname("span")
For Each mySp In my2Coll
myVal = myVal & Right(mySp.classname, 1)
Next mySp
Cells(jj, kk) = myVal
myVal = ""
Else
Cells(jj, kk).Value = tdtd.innertext
zzzz = tdtd.innertext
End If
kk = kk + 1
Next tdtd
jj = jj + 1
Next trtr
QuitIE:
IE.Quit
Set IE = Nothing
End Sub
Lavora sul Foglio4 del vostro file (createlo prima di lanciare la macro), foglio che sara' azzerato senza nessun preavviso.
Le colonne K, L e O devono essere preventivamente formattate "Testo".
La colonna TIPS lavora su un' immagine piu' articolata (
http://www.prosoccer.gr/imgs/tips.png), potrebbe anche essa essere ricostruita o graficamente oppure creando una tabella di equivalenze tra le classnames e il significato; oppure guardiamo solo i primi 2 digit della sigla che compare in colonna.
Ciao