Condividi:        

Estrarre dati da futbol24

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Estrarre dati da futbol24

Postdi ilfuocoblu » 16/11/24 04:37

Buongiorno a tutti, ho bisogno del vostro aiuto.
Ho cercato di estrarre i dati dalla pagina web https://www.futbol24.com/Live/ adattando anche le varie macro postate per altri siti, ma non riesco. La tabella che mi interessa non viene scaricata che è quella centrale, ovvero nazione, minutaggio, squadre e risultato in corso.
Come potrei riuscire?
Grazie per gli eventuali aiuti!
ilfuocoblu
Utente Junior
 
Post: 25
Iscritto il: 03/02/15 20:36

Sponsor
 

Re: Estrarre dati da futbol24

Postdi Anthony47 » 16/11/24 23:00

Mi pare che puoi usare Chrome oppure Edge avendo installato sul tuo Pc l'ambiente Selenium; vedi viewtopic.php?f=26&t=112225
Poi prova a dare un'occhiata a quanto descritto qui: viewtopic.php?f=26&t=113463#p667607
Ad esempio puoi usare la Sub GetAllTablesArr, descritta e utilizzata qui: viewtopic.php?f=26&t=112311#p660074
A quel punto potrai importare sul foglio selezionato tutte le "Tabelle" che sono presenti in una pagina web.

Il codice complessivo, da inserire su un Modulo standard INIZIALMENTE VUOTO del tuo vba

Codice: Seleziona tutto
Dim WPage As Object

Sub PrintTables()
Dim myUrl As String
'
'Crea Driver:
If WPage Is Nothing Then
    Set WPage = CreateObject("Selenium.EdgeDriver")
End If
WPage.Start "edge"                       'Avvia EDGE
'
Sheets("AllTables").Select               'Il Foglio che vuoi tu
Range("A:M").ClearContents               'Azzera l'area di input
'
myUrl = "https://www.futbol24.com/Live/"
Call GetAllTablesArr(myUrl)         'Posiziona in colonna A
'
'Quit Selenium
WPage.Quit
Set WPage = Nothing
MsgBox ("Informazioni raccolte...")
End Sub


Sub GetAllTablesArr(myUrl As String, Optional rNum0 As Long = 1, Optional cNum0 As Long = 1)
Dim TBColl As Object
Dim I As Long, J As Long, myTim As Single
Dim RNum As Long, CNum As Long
   
Dim TArr

If WPage Is Nothing Then
    Set WPage = CreateObject("Selenium.EdgeDriver")
End If
WPage.Get myUrl
'
myTim = Timer
'
Set TBColl = WPage.FindElementsByTag("table")
RNum = rNum0: CNum = cNum0
'
For I = 1 To TBColl.Count               'Scan delle Tabelle presenti
    TArr = TBColl(I).AsTable.Data
    RNum = RNum + 1
    Cells(RNum, CNum).Value = "## Table " & I
    If (UBound(TArr) * UBound(TArr, 2)) > 0 Then
        Cells(RNum + 1, CNum).Resize(UBound(TArr), UBound(TArr, 2)).Value = TArr
    End If
    RNum = RNum + UBound(TArr) + 1
    DoEvents
Next I
Debug.Print "FINE", RNum, Format(Timer - myTim, "0.00"), myUrl
End Sub
(questo usa Edge)

Prova...
Avatar utente
Anthony47
Moderatore
 
Post: 19446
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Estrarre dati da futbol24

Postdi ilfuocoblu » 28/11/24 16:11

Grazie Anthony, avevo chrome in selenium e l'ho adattato, fa esattamente quello che mi serve, grazie sempre per la vostra disponibilità!


https://pasteboard.co/RmGXC9PRX9oD.jpg
ilfuocoblu
Utente Junior
 
Post: 25
Iscritto il: 03/02/15 20:36


Torna a Applicazioni Office Windows


Topic correlati a "Estrarre dati da futbol24":


Chi c’è in linea

Visitano il forum: Nessuno e 6 ospiti

cron