Riportare su Excel dati sito web

[giovannib87]

Ciao ragazzi e piacere di iniziare a far parte di questa community.
Nella mia testa ho un progetto ma non l'ho mai portato avanti perchè con le macro Excel sono negato.
Magari col vostro prezioso aiuto ci riesco.
Vi spiego:

Il sito in questione è : http://www.soccer-rating.com
Prendiamo ad esempio la seguente scheda http://www.soccer-rating.com/Chorley-FC/2232/
Per ogni gara, dovrei riuscire ad importare la riga "Form Last 3 Games" e (possibilmente) la riga "Available Odds Rating (AO)"
E poi, una volta importati, selezionare le gare in base ad dei parametri. Ma questo viene dopo; al momento farei salti di gioia se avessi i dati in Excel.

Grazie a tutti

[Anthony47]

Intanto "Benvenuto nel forum"

Quanto al quesito, dovresti spiegare (partendo dal secondo link che hai inserito) dove sono le partite di cui parli e come si accede alle informazioni che vorresti estrarre

Ciao

[giovannib87]

Grazie del benvenuto

Allora: le partite potrebbero essere prese da qui http://www.soccer-rating.com/football-country-ranking/
Per ogni paese, andare a spulciare le varie leghe ed accedere alla scheda della partita.

Una via più semplice, credo, sarebbe da qui http://www.soccer-rating.com/strange_od ... rpoints=10
La lista delle partite (anche se non sono tutte) è già pronta... Basterebbe solo accedere alla scheda di ogni partita.

Ciao e grazie

[giovannib87]

Allego anche una sorta di schemino su come sarebbe utile avere i dati su excel https://ibb.co/xXrNZB6

La seconda tabella sarebbe top per poi fare la selezione delle partite.

[Anthony47]

Allora...


Mi immagino che "le partite" siano in questo elenco (es CA Bragantino vs Atletico-MG); bene, dove sono invece le "schede partite"? Una volta arrivato alle "schede partite" immagino che sara' a prova di stupido trovare le righe "Form Last 3 Games" e "Available Odds Rating (AO)"

Ciao

[giovannib87]

Perdonarmi. Forse mi sono spiegato male io.

Aprendo il link http://www.soccer-rating.com/strange_od ... rpoints=10 si ha la "lista delle partite". La lista può variare ogni ora. Tale lista non è completa ma andrebbe cmq bene.
Cliccando sulla singola squadra (es. Club Celaya) si ha la "scheda della partita" relativa a "Club Celaya -Tepatitlan de Morelos" e così via.
E poi si, nella "scheda partita" si trovano le righe che mi interessano particolarmente ovvero "Form Last 3 Games" e "Available Odds Rating (AO)"

[Anthony47]

Questi sono giochi di tempo e di pazienza; merce rara, dalle mie parti...
In piu' funzionano "a tempo"; cioe' puo' smettere di funzionare correttamente in qualsiasi momento il proprietario del sito decidesse di apportare qualche modifica alla struttura delle sue pagine.

Cio' detto, con un po' di tempo e di pazienza ho prodotto questo codice, da inserire in un nuovo modulo standard del tuo vba:

Codice: Seleziona tutto

#If VBA7 Then       '!!! ON  TOP  OF  THE  VBA  MODULE   !!!!
    Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
#Else
    Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

Sub GetSR()
'Dim IE As MSHTML, AColl As IHTMLElementCollection
Dim IE As Object, AColl As Object, I As Long, tdColl As Object
Dim myUrl As String

Dim Resp As Long, HRArr(), aInd As Long, J As Long
'
Sheets("DaWeb").Select                                  '<<< Il foglio dove saranno importate le informazioni
'
Range("A2").Resize(1000, 8).ClearContents
myUrl = "http://www.soccer-rating.com/strange_odds.php?show=1&rpoints=10"
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
Resp = GimmePage(myUrl, IE)
If Resp <> 0 Then Stop
Set AColl = Nothing
On Error Resume Next
Set AColl = IE.document.getElementsByClassName("bigtable")(0).getElementsByTagName("TR")
Debug.Print "AA: " & AColl.Length
On Error GoTo 0
'
ReDim HRArr(1 To AColl.Length)
For I = 0 To AColl.Length - 1
    Set tdColl = AColl(I).getElementsByTagName("td")
    For J = 0 To tdColl.Length - 1
   
        If InStr(1, tdColl(J).outerHTML, "a href=", vbTextCompare) > 0 Then
            aInd = aInd + 1
            HRArr(aInd) = tdColl(J).getElementsByTagName("a")(0).href
            Debug.Print aInd, HRArr(aInd)
            Exit For
        End If
    Next J
Next I
For I = 1 To aInd
    Resp = GimmePage(HRArr(I), IE)
    Set AColl = IE.document.getElementsByClassName("bigtable")(3)
    Set tdColl = AColl.getElementsByTagName("td")
    mySplit = Split(AColl.innerHTML, "<td>", , vbTextCompare)
    Cells(I + 1, "A").Value = tdColl(0).innerText
    Cells(I + 1, "B").Value = tdColl(1).innerText
    Cells(I + 1, "C").Value = tdColl(2).innerText
    For J = 3 To tdColl.Length - 1 ' UBound(mySplit)
        If InStr(1, tdColl(J).outerHTML, "Last 3 Games", vbTextCompare) > 0 Then
            Cells(I + 1, "D").Value = tdColl(J + 1).innerText
            Cells(I + 1, "E").Value = tdColl(J + 2).innerText
            Debug.Print I & "-A-" & J, tdColl(J + 1).innerHTML
        ElseIf InStr(1, tdColl(J).outerHTML, "Available Odds", vbTextCompare) > 0 Then
            Cells(I + 1, "F").Value = tdColl(J + 1).innerText
            Cells(I + 1, "G").Value = tdColl(J + 2).innerText
            Debug.Print I & "-B-" & J, tdColl(J + 1).innerHTML
        End If
    Next J
DoEvents
Next I
MsgBox ("Importate " & I - 1 & " righe")
IE.Quit
Set IE = Nothing
End Sub



Function GimmePage(ByVal LUrl As String, LIE As Object) As Long
Dim mTim As Single
    With LIE
        .navigate LUrl
        mytim = Timer
        Sleep 100
        Do
            Sleep 30
            If .busy = False And .readyState = 4 Then Exit Do
            If Timer > (mytim + 10) Then
                If .readyState <> 4 Then GimmePage = 10
                If .busy Then WaitPage = GimmePage + 1
                Exit Do
            End If
        DoEvents
        Loop
    End With
End Function


L'istruzione marcata <<< serve a indicare quale foglio va utilizzato per i risultati; le colonne A:H verranno azzerate senza preavviso prima di importare le nuove informazioni.

Il layout dei risultati sara' del tipo:


Layout diversi possono essere ottenuti partendo da questa tabella

Fai sapere...

[giovannib87]

Tu sei un autentico GENIO!
Non ho ancora provato il codice perchè devo capire come usare il vba su Excel ma ti volevo ringraziare infinitamente da subito.
Ti farò sapere...
GRAZIE GRAZIE GRAZIE!

[Anthony47]

Per inserire il codice nel tuo "progetto vba" vedi viewtopic.php?f=26&t=103893&p=647675#p647675

La macro da eseguire e' la Sub GetSR; impieghera' parecchi minuti prima del completamento che sara' segnalato da un messaggio.
Per eseguire una macro: viewtopic.php?f=26&t=103893&p=647678#p647678

[giovannib87]

La soluzione sarà banale ma io non ci riesco...
Una volta avviata la macro mi dà "errore runtime 9 indice non incluso nell'intervallo"

Ho fatto il debug e l'errore è sulla riga "Sheets("DaWeb").Select '<<< Il foglio dove saranno importate le informazioni"
Ho inserito "Foglio1" ma nulla...
Grazie

[Anthony47]

Devi inserire il nome di un foglio presente nel tuo file; va bene "Foglio1", se Foglio1 e' presente.

Il file dove ho fatto le prove puo' essere scaricato qui: https://www.dropbox.com/s/rwntklqlh32zk ... .xlsm?dl=0

Ciao

[giovannib87]

Si, mettevo "Foglio1" al posto di "DaWeb" ma ... mi genera l'errore " runtime 9 indice non incluso nell'intervallo"

Ho provato il tuo file e mi restituisce : "Errore runtime 429 - Il componente ActiveX non è in grado di creare l'oggetto"
Uso Office 2016 Standard

Aggiornamento: Tutto ok. Avevo IE disabilitato.
Lo sto provando e ti farò sapere!
Grazie

[giovannib87]

Allora, il file è pressochè geniale. Mi semplifica molto il lavoro e ti ringrazio davvero tanto.

Se possibile e non è troppo complicato da fare, sarebbe top fare una modifica.
Nelle colonne "Fl3G1" e "Fleg2" riportare solamente questi valore (7 - 3 nell'esempio) e lasciare perdere il resto:



In moda tale che, nella colonna accanto, tramite la funzione SE mi vado a selezionare in automatico quelle gare in cui le due squadre hanno una differenza di 5 o più punti (P) nelle ultime 3 giornate giocate.
Ad esempio : Fl3g1 riporta il valore 1 e Fle3g2 riporta il valore 7, differenza +6 allora la partita è ok.
GRAZIE!

[giovannib87]

Amo smanettare e ci sono riuscito grazie a STRINGA.ESTRAI



Ora, se la differenza in valore assoluto tra questi due valori (Colonna I e Colonna J) è pari o superiore a 5 mi farò restituire l'ok in automatico (sperando di trovare la giusta formula)

[gimart]

Io ho provato a selezionare tutte le righe della pagina e ho scelto "copia", poi ho aperto Excel e ho selezionato "incolla". Mi sembra che l'operazione sia riuscita bene

[Anthony47]

Io mi fermo alle cose difficili poi con le formule o con altre macro anche autoregistrate si possono fare ulteriori elaborazioni, come le vostre esperienze dimostrano.

Volendo aggiungere qualche piccolo automatismo, nella revisione del file (disponibile allo stesso link gia' pubblicato) ho inserito la copia verso il basso di eventuali formule presenti da I2 verso destra, per tutto la lunghezza dell'elenco importato. A destra dell'ultima formula lasciare una colonna vuota.

Ciao

[giovannib87]

Allego qui il mio file ulteriormente modificato : https://www.dropbox.com/scl/fi/bg0mxbkk ... rj7sfrdctf

Ovviamente il pezzo forte del file è stato fatto dal mitico Anthony47!!!

Adesso mi chiedo: ad ogni nuovo aggiornamento dei dati, è possibile tenere in memoria il rosso relativo, ad esempio, alla partita tra Olimpia Tegucigalpa CD Marathon?
Mi spiego: ad ogni aggiornamento la riga (esempio) 31 cambia in quanto escono nuove partite e nuove righe. Però, la partita tra Olimpia Tegucigalpa CD Marathon è stata già messa in rosso. Una condizione della fuori uscita del rosso relativo a quella gara potrebbe essere il NO della cella L31 associato al testo presente in B31 e C31. Ecco, è possibile tenere traccia di questo?
Se è troppo complicato, no problem. Lo risegno rosso a mano
Già è fantastico così

[Anthony47]

Quanto proposto si occupa dell'estrazione dei dati dal sito web; la loro gestione va fatta separatamente su altro foglio.

Ad esempio puoi cercare nei dati scaricati le partite non ancora presenti nel tuo elenco ed aggiungerle, ma non ho nessun interesse ne' nel settore pronostici ne' nel settore calcio, quindi sono argomenti che maneggio con poco profitto.

Ho apportato una ulteriore modifica al codice della Sub GetSR, indirizzando in modo esplicito le celle del foglio di lavoro; infatti, vista la durata dell'importazione dati, c'era il rischio che una eventuale selezione di un diverso foglio di lavoro portasse la macro a scrivere su posizioni sbagliate.

Ciao

[giovannib87]

Quanto proposto si occupa dell'estrazione dei dati dal sito web; la loro gestione va fatta separatamente su altro foglio.

Ad esempio puoi cercare nei dati scaricati le partite non ancora presenti nel tuo elenco ed aggiungerle, ma non ho nessun interesse ne' nel settore pronostici ne' nel settore calcio, quindi sono argomenti che maneggio con poco profitto.

Esatto. Vorrei poter raggiungere proprio questo, ovvero: le partite nuove si aggiungono al foglio (anche un foglio copia di DaWeb) in modo da non toccare le modifiche che si fanno sul foglio copia.
Anche se, ci sarebbe un problema forse: le partite di ieri non servono più e quindi andrebbe cmq eliminate.

Cmq ho risolto parzialmente con una soluzione relativamente veloce. Attraverso la formattazione condizionata delle righe in base al valore di una cella. Per il lavoro che devo fare io, è comodo ed anche abbastanza rapido

Ho apportato una ulteriore modifica al codice della Sub GetSR, indirizzando in modo esplicito le celle del foglio di lavoro; infatti, vista la durata dell'importazione dati, c'era il rischio che una eventuale selezione di un diverso foglio di lavoro portasse la macro a scrivere su posizioni sbagliate.

Ciao

Mi consigli di sostituirlo? Non noto problemi ed è anche abbastanza veloce.

[Anthony47]

Si, consiglio di sostituire il codice della Sub GetSR
Attenzione perche' la versione ora on line controlla se ci sono formule presenti da I2 verso destra e se le trova allora le copia verso il basso, mentre le colonne A:H vengono azzerate all'inizio della macro (fin dalla prima versione).