Archivio 10 & lotto.

[LOTTO2021]

Buongiorno.
qualcuno può girarmi i l'archivio 10 & lotto, in formato csv o excel.
Grazie anticipatamente.

Lotto2021

 

[Mike58]

Se utilizzi Spaziometria e fai girare lo script allegato il file 10eLottoSerale viene sia registrato nel percorso dispaziometria
sFileCsv = GetDirectoryAppData & "10eLottoSerale.csv" ' percorso di scrittura file excel
che scritto e istanziato direttamente in excel.
se ok parti da inizio voluto
Ini = EstrazioniArchivioDL - 50 ' qui ci sono le ultime 50 estrazioni
con
ini = 3950


ciao

Sub Main
   Dim sFileTxt,sFileCsv,sRiga
   Dim Nu(20)
   sFileCsv = GetDirectoryAppData & "10eLottoSerale.csv" ' percorso di scrittura file excel
   Call EliminaFile(sFileCsv)
   sRiga = "prog;Data;n1;n2;n3;n4;n5;n6;n7;n8;n9;n10;n11;n12;n13;n14;n15;n16;n17;n18;n19;n20" ' scrive le colonne (ci vogliono)
   Ini = EstrazioniArchivioDL - 50
   fin = EstrazioniArchivioDL
   For es = Ini To fin
      For p = 1 To 20
         Nu(p) = EstrattoDL(es,p)
      Next
      sRiga = es & ";"
      sRiga = sRiga & Replace(DataEstrazioneDL(es),".","/") & ";"
      For x = 1 To 20
         sRiga = sRiga & Nu(x) & ";"
      Next
      Call ScriviFile(sFileCsv,sRiga,False)
   Next
   Call CloseFileHandle(sFileCsv)
   Call LanciaFile(sFileCsv) ' scrive e lancia file excel per controllo
   Scrivi "Ho scritto il file excel nel percorso : " & sFileCsv
End Sub

 

[LOTTO2021]

Se utilizzi Spaziometria e fai girare lo script allegato il file 10eLottoSerale viene sia registrato nel percorso dispaziometria
sFileCsv = GetDirectoryAppData & "10eLottoSerale.csv" ' percorso di scrittura file excel
che scritto e istanziato direttamente in excel.
se ok parti da inizio voluto
Ini = EstrazioniArchivioDL - 50 ' qui ci sono le ultime 50 estrazioni
con
ini = 3950


ciao

Sub Main
   Dim sFileTxt,sFileCsv,sRiga
   Dim Nu(20)
   sFileCsv = GetDirectoryAppData & "10eLottoSerale.csv" ' percorso di scrittura file excel
   Call EliminaFile(sFileCsv)
   sRiga = "prog;Data;n1;n2;n3;n4;n5;n6;n7;n8;n9;n10;n11;n12;n13;n14;n15;n16;n17;n18;n19;n20" ' scrive le colonne (ci vogliono)
   Ini = EstrazioniArchivioDL - 50
   fin = EstrazioniArchivioDL
   For es = Ini To fin
      For p = 1 To 20
         Nu(p) = EstrattoDL(es,p)
      Next
      sRiga = es & ";"
      sRiga = sRiga & Replace(DataEstrazioneDL(es),".","/") & ";"
      For x = 1 To 20
         sRiga = sRiga & Nu(x) & ";"
      Next
      Call ScriviFile(sFileCsv,sRiga,False)
   Next
   Call CloseFileHandle(sFileCsv)
   Call LanciaFile(sFileCsv) ' scrive e lancia file excel per controllo
   Scrivi "Ho scritto il file excel nel percorso : " & sFileCsv
End Sub

Grazie Mike58,
ma nn utilizzo spaziometria.

 

[Mike58]

vediamo se il forum regge l'allegato

No non lo regge il formato excel

lo metto in formato txt e poi cerchi di importarlo in excel

 

[Mike58]

Non so usare Media fire per farti scaricare il file excel
prova il link

10eLottoSerale

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

 

[LOTTO2021]

Non so usare Media fire per farti scaricare il file excel
prova il link

10eLottoSerale

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

Grazie Mike58, gentilissimo.
Lotto2021