Excel creare collegamento risultati dal sito diretta

Question

Salve, avrei bisogno di aiuto, vorrei sapere se è possibile, creare un collegamento su internet che mi dia la possibilità di aggiornare sul mio foglio i risultati delle partite di calcio;

In sostanza ho un archivio con le partite in programma di un tale giorno e avrei bisogno di aggiornare di volta in volta i risultati finali delle suddette partite;

Non ho idea di come si possa fare e se è realizzabile ma, le partite si dovrebbero aggiornare in automatico, o creando un bottone collegata ad una macro…

I nomi delle squadre sono già in formato, prese dal sito “diretta” quindi se si potrebbe preferirei prendere i risultati da lì;

Se c’è anche un altro modo e avete suggerimenti, sono lieto di leggerli

Grazie in anticipo

Answer 1

Ciao Fabrizio,

Salve, avrei bisogno di aiuto, vorrei sapere se è possibile, creare un collegamento su internet che mi dia la possibilità di aggiornare sul mio foglio i risultati delle partite di calcio;

In sostanza ho un archivio con le partite in programma di un tale giorno e avrei bisogno di aggiornare di volta in volta i risultati finali delle suddette partite;

Non ho idea di come si possa fare e se è realizzabile ma, le partite si dovrebbero aggiornare in automatico, o creando un bottone collegata ad una macro…

I nomi delle squadre sono già in formato, prese dal sito “diretta” quindi se si potrebbe preferirei prendere i risultati da lì;

Se c’è anche un altro modo e avete suggerimenti, sono lieto di leggerli

Un suggerimento:

1. Apri un nuova cartella di lavoro
2. Vai alla pagina web **** https://www.football-data.co.uk/data.php
3. Fai clic su un Paese di interesse, ad esempio Italy
4. Copia l'indirizzo di collegamento di un anno e un campionato di interesse
5. Dati
6. Da Web
7. Incolla il link
8. OK
9. Carica

Ripeti i passaggi da 2 a 9 per ogni paese o lega di interesse aggiuntivo.

In questo modo viene creata una nuova scheda per ogni campionato di calcio di interesse ed elenca tutti i risultati fino ad oggi.

A titolo di esempio ho creato una cartella di lavoro con i risultati per i campionati di serie A di Italia, Germania, Scozia, Spagna, Francia e Inghilterra.

L'intera cartella di lavoro può essere aggiornata rapidamente semplicemente in questo modo:

• Dati
• Aggiorna tutti

      [![Immagine](https://learn-attachment.microsoft.com/api/attachments/887f75fd-1cfe-4dc2-9f8f-44c83352c60f?platform=QnA"https://1drv.ms/x/s!AmTW9HzZG8cqkTbJ9zG55p1OPQeB?e=yJg8hr" title="https://1drv.ms/x/s!AmTW9HzZG8cqkTbJ9zG55p1OPQeB?e=yJg8hr" rel="ugc nofollow">Risultati_calcio.xlsx
  
  ===
  Regards,
  Norman
  
  

Answer 2

Perdonami ma ho visto che col copia e incolla è venuto fuori qualcosa di terrificante;

Come posso allegare il file Excel?

Answer 3

Ciao, vorrei approfittare della tua disponibilità, il suggerimento da te proposto va benissimo ma, il sito dove importo i dati non aggiorna le tabelle molto velocemente e cercando su internet ho trovato qualcosa che potrebbe fare al caso mio;

Si tratta di un modulo VBA, ho trovato questa discussione aperta, che ha un problema il modulo ma, nonostante credo lo abbiano risolto, non avendo conoscenze al riguardo, non riesco a trovare la soluzione, se puoi aiutarmi, sto cercando di allegare il file ma sto trovando problemi, e quindi trascrivo il codice così come sta nel modulo;

In sostanza, vorrei creare un foglio, dove spero, cambiando il campionato di riferimento del codice, posso trascrivere i risultati, non appena le partite terminano;

ovviamente penso che dovrei creare tanti moduli quanti sono i campionati di mio interesse, cmq posto il codice e ti ringrazio in anticipo: '--------------------------------------------------------------------------------------- ' Module : Modulo1 ' Author : scossa ' Date : 20/01/2020 ' Purpose : ' Attenzione: mettere i riferimenti a Selenium Type Library da ' C:\Users..xxx..\AppData\Local\SeleniumBasic\Selenium32.tlb ' per usare la Early Binding '--------------------------------------------------------------------------------------- Option Explicit Public Sub prova() Call diretta("https://www.diretta.it/calcio/argentina/primera-nacional/risultati/") End Sub Public Sub diretta(ByVal sUrl As String) Dim rng As Range, j As Long, sStatus As String '--------------- late binding ---------------- Dim bot As Object, soccerDivs As Object Dim divElement As Object, divSoccer As Object '--------------------------------------------- '------------------- early binding ------------------- 'Dim bot As WebDriver, soccerDivs As WebElements 'Dim divElement As WebElement, divSoccer As WebElement '----------------------------------------------------- Set rng = Range("A2") Foglio1.UsedRange.Offset(1, 0).ClearContents rng.Value = "... attendere ..." On Error GoTo safety_exit_ '--------------- late binding ----------------- Set bot = CreateObject("Selenium.ChromeDriver") '---------------------------------------------- '---------------- early binding ---------------- 'Set bot = New WebDriver '----------------------------------------------- bot.Start "chrome", sUrl bot.Get "/" Set divSoccer = bot.FindElementById("live-table", timeout:=4000).FindElementByClass("soccer") Set soccerDivs = divSoccer.FindElementsByTag("div") With Application VBA.AppActivate .Name .ScreenUpdating = False .Cursor = xlWait End With For Each divElement In soccerDivs DoEvents 'Debug.Print divElement.Attribute("class") & "; " & divElement.Text If InStr(divElement.Attribute("class"), "event__titleBox") > 0 Then rng.Offset(j, 0).Value = Replace(divElement.Text, vbLf, ": ") j = j + 1 ElseIf InStr(divElement.Attribute("class"), "event__round") > 0 Then rng.Offset(j, 1).Value = divElement.Text sStatus = rng.Offset(j, 1).Value & ": " ElseIf InStr(divElement.Attribute("class"), "event__time") > 0 Then If divElement.Text <> "" Then rng.Offset(j, 2).Value = divElement.Text End If ElseIf InStr(divElement.Attribute("class"), "event__participant--home") > 0 Then If divElement.Text <> "" Then rng.Offset(j, 3).Value = divElement.Text End If ElseIf InStr(divElement.Attribute("class"), "event__scores") > 0 Then If divElement.Text <> "" Then rng.Offset(j, 4).NumberFormat = "@" rng.Offset(j, 4).Value = Replace(divElement.Text, vbLf, "") End If ElseIf InStr(divElement.Attribute("class"), "event__participant--away") > 0 Then If divElement.Text <> "" Then rng.Offset(j, 5).Value = divElement.Text 'Replace(divElement.Text, vbLf, "; ") Application.StatusBar = sStatus & rng.Offset(j, 3).Value & " - " & rng.Offset(j, 5).Value & ": " & rng.Offset(j, 4).Value End If ElseIf InStr(divElement.Attribute("class"), "event__part") > 0 Then If divElement.Text <> "" Then rng.Offset(j, 6).Value = divElement.Text 'Replace(divElement.Text, vbLf, "; ") End If j = j + 1 Else End If Next With bot .Wait 1000 .Close .Quit End With safety_exit_: With Application .StatusBar = False .ScreenUpdating = True .Cursor = xlDefault End With If Err.Number <> 0 Then MsgBox "si è verificato un errore!", vbCritical, "ATTENZIONE" Else MsgBox "estrazione terminata", vbInformation, "FINITO" End If End Sub

Answer 4

Ciao Fabrizio,

Grazie gentilissimo proprio quello che cercavo, ti ringrazio

Mi fa piacere che tu abbia risolto il problema e ti ringrazio per il cortese riscontro.

Alla prossima.

===

Regards,

Norman

Answer 5

Grazie gentilissimo proprio quello che cercavo, ti ringrazio