Macro per importare dati dalla Lottomatica.

[Anthony47]

Se vuoi mettere a disposizione di altri il tuo file inseriscilo in questa discussione e io lo migrero' all'interno della discussione "I Vostri Lavori".
Per le istruzioni su come allegare un file:
http://www.pc-facile.com/forum/viewtopi ... 87#p605487

[nelson1331]

Ciao Anthony47.
Cerco di completare verifiche, controlli e cose simili, affinche' una volta messo in rete, non vi siano ulteriori necessita' di correzioni.
Entro il 21 di questo mese dovrei riuscrire ad inviarti quanto promesso.
Buona giornata.
Nelson

[nelson1331]

Ciao Anthony47.
Ero pronto per inviare il file legato all' aggiornamento del lotto ma, qualcosa e' certamente cambiato fra i servizi di files sharing.
Ho guardato Wetransfer e mi dice che la modalita' per ottenere il link, da scaricare l' allegato che ti inviero', rimane valida fino al max. per 30 giorni (altrimenti, superiori a tale periodo, tutte le modalita' sono a pagamento).
Stessa cosa per Dropbox che limita eventuali download dai link che riceverei, ai 7 giorni.
Non sono andato a controllare per Uploading e Mediafire ma, credo che anche questi operino su un modello commerciale simile. A questo punto, cosa devo fare ?
Conoscete servizi che permettano l' inserimento dei files ed i relativi link per effettuare i download ma, a tempo indefinito o per sempre (ed ovviamente gratuiti) ?
Grazie per eventuale risposta.
Nelson

[Anthony47]

Se condividi il file lo pubblicherò su una mia area Dropbox con almeno 6 mesi di validità e cercherò di inserire nel messaggio il codice e le altre predisposizioni che sono alla base del funzionamento

[nelson1331]

Ciao Anthony47,
con Dropbox, sono riuscito a fare questo :
https://www.dropbox.com/t/tcdq08BlIwovZm80
https://www.dropbox.com/transfer/AAAAAJ ... gaiwBzTGKs
Guarda se e' corretto e sufficiente.
Utilizzo il sistema operativo Windows10
Il pacchetto di Office e' quello della Microsoft Office 2021
Avvertenza : creare all' indirizzo C, il file di nome Prova.
Nelson

[Anthony47]

Nelson condivide con tutti gli appassionati un file che consente di tenere aggiornato lo storico delle estrazioni del lotto.
Il file e’ disponibile a questo link: https://www.dropbox.com/scl/fi/s5l29wpf ... jsufl&dl=0
(il link di Nelson sembra che abbia una “scadenza” breve)
Il file estrae lo storico delle estrazioni all’indirizzo https://brightstarlottery.it/STORICO_ES ... torico.zip (e’ possibile che in futuro si debba attingere ad altre fonti)

Tutto il codice e’ contenuto in Modulo1, ed e’ basato sulla Sub LottoloItalia2026 che richiama altre sub e funzioni specializzate. Un msgbox conferma il completamento delle operazioni.

Il file e’ organizzato su 2 fogli:
a) ARCHIVIO
Come si puo’ intuire e’ il foglio che contiene lo storico delle estrazioni
Il file che potete scaricare contiene solo una estrazione; Archivio sarà popolato la prima volta che eseguite la Sub LottoloItalia2026 e poi aggiornato per le estrazioni mancanti tutte le volte che eseguite la stessa Sub LottoloItalia2026

b) ArchivioLS
E’ un foglio transitorio in cui viene elaborato lo zip importato per estrarre le righe da “accodare” a quanto gia’ presente nel foglio Archivio (il foglio Archivio deve essere gia’ inizializzato con almeno 1 estrazione presente)

Il file contiene alcune funzioni che possono essere utilizzate anche in altri contesti. Esempio:
Function GetWebFile
Scarica un file da una pagina internet (una immagine, un file pdf, un documento; qui viene usato per scaricare un file .zip)e lo salva nella posizione dichiarata. Si basa sulla primitiva windows URLDownloadToFile
A questo proposito e’ necessario tenere presente che la directory in cui il file zip con le estrazioni va salvato deve gia’ esistere e deve essere dichiarata nella seguente istruzione che trovate in testa al codice:

Codice: Seleziona tutto

ZipPath = "C:\prova\"


Sarebbe abbastanza facile fare in modo di salvare in una directory di sistema, tipo Temp o Documents, ma il caldo di questi giorni ma ha fatto passare la voglia di modificare quanto fatto in tempo remoto

Sub FileDeZip
Unzippa un file. Si basa su un comando Shell di windows

Buone estrazioni a tutti gli appassionati