Novità

10 e lotto ogni 5 minuti

ciao adispo come inserire lo script nel programma
vai sul sito dove si trova lo script,lo devi evidenziare tutto poi premi il
tasto destro e fai copia.
poi devi aprire spaziometria ve vedi su in alto ci sono delle scritte
ti devi posizionare su gestione script ed aprirlo poi vai su
elenco script cliccaci sopra e viene fuori una schermata con su scritto
sub main
end sub
cancellali tutte e due poi premi il tasto destro e fai incolla
lo script viene inserito e da qui poi lo lanciare
quando esci dal programma salvalo con un nome che te lo trovi subito
pronto su spaziometria
 
ciao vique !! per prima cosa volevo farti i complimenti ! al 151 preso con 73-48-58 . gentilmente volevo chiederti una cosa !! l'archivio del programmino genius l'archivio mi si aggiorana fini alle ore 13:00 , come mai ? come posso fare x aggiornarlo con tutte le ore. grazie
 
kabb77 ha scritto:
ciao vique !! per prima cosa volevo farti i complimenti ! al 151 preso con 73-48-58 . gentilmente volevo chiederti una cosa !! l'archivio del programmino genius l'archivio mi si aggiorana fini alle ore 13:00 , come mai ? come posso fare x aggiornarlo con tutte le ore. grazie
Clicca per espandere...
DepositFiles qui trovi il programma postato da rocco48 con l'orario pomeridiano.ciao
 
ciao ragazzi !!! volevo gentilmente una informazione sull'archivio di genius 15:00-19:30 !! ho notato che scorendo l'archivio delle date e mesi ecc....., che a un certo punto mi da la data 09/02/2013 , poi subito dopo 08/09/2012 e si che ho giornato l'archivio da capo naturalmente !! come mai mi viene fuori questa diferenza !! chi mi sà dare questa informazione ? grazie
 
Ultima modifica:
questo e quello che mi viene fuori sull'archivio !!

[TABLE="width: 747"]
[TR]
[TD="class: xl69, width: 40, bgcolor: #ff99cc"]12316[/TD]
[TD="class: xl66, width: 39, bgcolor: silver"]170[/TD]
[TD="class: xl67, width: 39, bgcolor: silver"]19.10[/TD]
[TD="class: xl66, width: 31, bgcolor: silver"]9[/TD]
[TD="class: xl68, width: 87, bgcolor: silver"]09-feb-13[/TD]
[TD="class: xl66, width: 19, bgcolor: silver"] [/TD]
[TD="class: xl66, width: 33, bgcolor: silver"]4[/TD]
[TD="class: xl66, width: 34, bgcolor: silver"]5[/TD]
[TD="class: xl66, width: 34, bgcolor: silver"]8[/TD]
[TD="class: xl66, width: 34, bgcolor: silver"]9[/TD]
[TD="class: xl66, width: 28, bgcolor: silver"]20[/TD]
[TD="class: xl66, width: 31, bgcolor: silver"]23[/TD]
[TD="class: xl66, width: 25, bgcolor: silver"]30[/TD]
[TD="class: xl66, width: 30, bgcolor: silver"]34[/TD]
[TD="class: xl66, width: 36, bgcolor: silver"]35[/TD]
[TD="class: xl66, width: 36, bgcolor: silver"]40[/TD]
[TD="class: xl66, width: 32, bgcolor: silver"]41[/TD]
[TD="class: xl66, width: 33, bgcolor: silver"]42[/TD]
[TD="class: xl66, width: 36, bgcolor: silver"]49[/TD]
[TD="class: xl66, width: 25, bgcolor: silver"]51[/TD]
[TD="class: xl66, width: 36, bgcolor: silver"]52[/TD]
[TD="class: xl66, width: 33, bgcolor: silver"]66[/TD]
[TD="class: xl66, width: 33, bgcolor: silver"]69[/TD]
[TD="class: xl66, width: 29, bgcolor: silver"]80[/TD]
[TD="class: xl66, width: 39, bgcolor: silver"]87[/TD]
[TD="class: xl66, width: 32, bgcolor: silver"]89[/TD]
[TD="class: xl66, width: 89, bgcolor: silver"] [/TD]
[/TR]
[TR]
[TD="class: xl69, bgcolor: #ff99cc"]12317[/TD]
[TD="class: xl66, bgcolor: silver"]171[/TD]
[TD="class: xl67, bgcolor: silver"]19.15[/TD]
[TD="class: xl66, bgcolor: silver"]9[/TD]
[TD="class: xl68, bgcolor: silver"]09-feb-13[/TD]
[TD="class: xl66, bgcolor: silver"] [/TD]
[TD="class: xl66, bgcolor: silver"]5[/TD]
[TD="class: xl66, bgcolor: silver"]6[/TD]
[TD="class: xl66, bgcolor: silver"]9[/TD]
[TD="class: xl66, bgcolor: silver"]22[/TD]
[TD="class: xl66, bgcolor: silver"]31[/TD]
[TD="class: xl66, bgcolor: silver"]32[/TD]
[TD="class: xl66, bgcolor: silver"]33[/TD]
[TD="class: xl66, bgcolor: silver"]37[/TD]
[TD="class: xl66, bgcolor: silver"]38[/TD]
[TD="class: xl66, bgcolor: silver"]41[/TD]
[TD="class: xl66, bgcolor: silver"]53[/TD]
[TD="class: xl66, bgcolor: silver"]54[/TD]
[TD="class: xl66, bgcolor: silver"]55[/TD]
[TD="class: xl66, bgcolor: silver"]61[/TD]
[TD="class: xl66, bgcolor: silver"]65[/TD]
[TD="class: xl66, bgcolor: silver"]67[/TD]
[TD="class: xl66, bgcolor: silver"]68[/TD]
[TD="class: xl66, bgcolor: silver"]77[/TD]
[TD="class: xl66, bgcolor: silver"]86[/TD]
[TD="class: xl66, bgcolor: silver"]90[/TD]
[TD="class: xl66, bgcolor: silver"] [/TD]
[/TR]
[TR]
[TD="class: xl69, bgcolor: #ff99cc"]12318[/TD]
[TD="class: xl66, bgcolor: silver"]172[/TD]
[TD="class: xl67, bgcolor: silver"]19.20[/TD]
[TD="class: xl66, bgcolor: silver"]9[/TD]
[TD="class: xl68, bgcolor: silver"]09-feb-13[/TD]
[TD="class: xl66, bgcolor: silver"] [/TD]
[TD="class: xl66, bgcolor: silver"]1[/TD]
[TD="class: xl66, bgcolor: silver"]6[/TD]
[TD="class: xl66, bgcolor: silver"]19[/TD]
[TD="class: xl66, bgcolor: silver"]27[/TD]
[TD="class: xl66, bgcolor: silver"]28[/TD]
[TD="class: xl66, bgcolor: silver"]33[/TD]
[TD="class: xl66, bgcolor: silver"]35[/TD]
[TD="class: xl66, bgcolor: silver"]40[/TD]
[TD="class: xl66, bgcolor: silver"]46[/TD]
[TD="class: xl66, bgcolor: silver"]53[/TD]
[TD="class: xl66, bgcolor: silver"]57[/TD]
[TD="class: xl66, bgcolor: silver"]60[/TD]
[TD="class: xl66, bgcolor: silver"]61[/TD]
[TD="class: xl66, bgcolor: silver"]62[/TD]
[TD="class: xl66, bgcolor: silver"]64[/TD]
[TD="class: xl66, bgcolor: silver"]65[/TD]
[TD="class: xl66, bgcolor: silver"]72[/TD]
[TD="class: xl66, bgcolor: silver"]76[/TD]
[TD="class: xl66, bgcolor: silver"]82[/TD]
[TD="class: xl66, bgcolor: silver"]90[/TD]
[TD="class: xl66, bgcolor: silver"] [/TD]
[/TR]
[TR]
[TD="class: xl69, bgcolor: #ff99cc"]12319[/TD]
[TD="class: xl66, bgcolor: silver"]173[/TD]
[TD="class: xl67, bgcolor: silver"]19.25[/TD]
[TD="class: xl66, bgcolor: silver"]9[/TD]
[TD="class: xl68, bgcolor: silver"]09-feb-13[/TD]
[TD="class: xl66, bgcolor: silver"] [/TD]
[TD="class: xl66, bgcolor: silver"]1[/TD]
[TD="class: xl66, bgcolor: silver"]3[/TD]
[TD="class: xl66, bgcolor: silver"]9[/TD]
[TD="class: xl66, bgcolor: silver"]12[/TD]
[TD="class: xl66, bgcolor: silver"]14[/TD]
[TD="class: xl66, bgcolor: silver"]21[/TD]
[TD="class: xl66, bgcolor: silver"]24[/TD]
[TD="class: xl66, bgcolor: silver"]28[/TD]
[TD="class: xl66, bgcolor: silver"]32[/TD]
[TD="class: xl66, bgcolor: silver"]36[/TD]
[TD="class: xl66, bgcolor: silver"]38[/TD]
[TD="class: xl66, bgcolor: silver"]47[/TD]
[TD="class: xl66, bgcolor: silver"]48[/TD]
[TD="class: xl66, bgcolor: silver"]56[/TD]
[TD="class: xl66, bgcolor: silver"]69[/TD]
[TD="class: xl66, bgcolor: silver"]73[/TD]
[TD="class: xl66, bgcolor: silver"]76[/TD]
[TD="class: xl66, bgcolor: silver"]78[/TD]
[TD="class: xl66, bgcolor: silver"]87[/TD]
[TD="class: xl66, bgcolor: silver"]88[/TD]
[TD="class: xl66, bgcolor: silver"] [/TD]
[/TR]
[TR]
[TD="class: xl69, bgcolor: #ff99cc"]12320[/TD]
[TD="class: xl66, bgcolor: silver"]174[/TD]
[TD="class: xl67, bgcolor: silver"]19.30[/TD]
[TD="class: xl66, bgcolor: silver"]9[/TD]
[TD="class: xl68, bgcolor: silver"]09-feb-13[/TD]
[TD="class: xl66, bgcolor: silver"] [/TD]
[TD="class: xl66, bgcolor: silver"]3[/TD]
[TD="class: xl66, bgcolor: silver"]14[/TD]
[TD="class: xl66, bgcolor: silver"]15[/TD]
[TD="class: xl66, bgcolor: silver"]18[/TD]
[TD="class: xl66, bgcolor: silver"]21[/TD]
[TD="class: xl66, bgcolor: silver"]25[/TD]
[TD="class: xl66, bgcolor: silver"]31[/TD]
[TD="class: xl66, bgcolor: silver"]33[/TD]
[TD="class: xl66, bgcolor: silver"]43[/TD]
[TD="class: xl66, bgcolor: silver"]57[/TD]
[TD="class: xl66, bgcolor: silver"]61[/TD]
[TD="class: xl66, bgcolor: silver"]62[/TD]
[TD="class: xl66, bgcolor: silver"]67[/TD]
[TD="class: xl66, bgcolor: silver"]73[/TD]
[TD="class: xl66, bgcolor: silver"]82[/TD]
[TD="class: xl66, bgcolor: silver"]85[/TD]
[TD="class: xl66, bgcolor: silver"]87[/TD]
[TD="class: xl66, bgcolor: silver"]88[/TD]
[TD="class: xl66, bgcolor: silver"]89[/TD]
[TD="class: xl66, bgcolor: silver"]90[/TD]
[TD="class: xl66, bgcolor: silver"] [/TD]
[/TR]
[TR]
[TD="class: xl69, bgcolor: #ff99cc"]12321[/TD]
[TD="class: xl66, bgcolor: silver"]69[/TD]
[TD="class: xl67, bgcolor: silver"]10.45[/TD]
[TD="class: xl66, bgcolor: silver"]8[/TD]
[TD="class: xl66, bgcolor: silver"]08 set 2012[/TD]
[TD="class: xl66, bgcolor: silver"] [/TD]
[TD="class: xl66, bgcolor: silver"]4[/TD]
[TD="class: xl66, bgcolor: silver"]10[/TD]
[TD="class: xl66, bgcolor: silver"]13[/TD]
[TD="class: xl66, bgcolor: silver"]17[/TD]
[TD="class: xl66, bgcolor: silver"]19[/TD]
[TD="class: xl66, bgcolor: silver"]25[/TD]
[TD="class: xl66, bgcolor: silver"]27[/TD]
[TD="class: xl66, bgcolor: silver"]30[/TD]
[TD="class: xl66, bgcolor: silver"]33[/TD]
[TD="class: xl66, bgcolor: silver"]35[/TD]
[TD="class: xl66, bgcolor: silver"]42[/TD]
[TD="class: xl66, bgcolor: silver"]45[/TD]
[TD="class: xl66, bgcolor: silver"]46[/TD]
[TD="class: xl66, bgcolor: silver"]54[/TD]
[TD="class: xl66, bgcolor: silver"]56[/TD]
[TD="class: xl66, bgcolor: silver"]61[/TD]
[TD="class: xl66, bgcolor: silver"]67[/TD]
[TD="class: xl66, bgcolor: silver"]75[/TD]
[TD="class: xl66, bgcolor: silver"]87[/TD]
[TD="class: xl66, bgcolor: silver"]90[/TD]
[TD="class: xl66, bgcolor: silver"] [/TD]
[/TR]
[TR]
[TD="class: xl69, bgcolor: #ff99cc"]12322[/TD]
[TD="class: xl66, bgcolor: silver"]70[/TD]
[TD="class: xl67, bgcolor: silver"]10.50[/TD]
[TD="class: xl66, bgcolor: silver"]8[/TD]
[TD="class: xl66, bgcolor: silver"]08 set 2012[/TD]
[TD="class: xl66, bgcolor: silver"] [/TD]
[TD="class: xl66, bgcolor: silver"]4[/TD]
[TD="class: xl66, bgcolor: silver"]17[/TD]
[TD="class: xl66, bgcolor: silver"]28[/TD]
[TD="class: xl66, bgcolor: silver"]36[/TD]
[TD="class: xl66, bgcolor: silver"]43[/TD]
[TD="class: xl66, bgcolor: silver"]47[/TD]
[TD="class: xl66, bgcolor: silver"]49[/TD]
[TD="class: xl66, bgcolor: silver"]51[/TD]
[TD="class: xl66, bgcolor: silver"]54[/TD]
[TD="class: xl66, bgcolor: silver"]55[/TD]
[TD="class: xl66, bgcolor: silver"]61[/TD]
[TD="class: xl66, bgcolor: silver"]62[/TD]
[TD="class: xl66, bgcolor: silver"]63[/TD]
[TD="class: xl66, bgcolor: silver"]68[/TD]
[TD="class: xl66, bgcolor: silver"]70[/TD]
[TD="class: xl66, bgcolor: silver"]71[/TD]
[TD="class: xl66, bgcolor: silver"]72[/TD]
[TD="class: xl66, bgcolor: silver"]81[/TD]
[TD="class: xl66, bgcolor: silver"]83[/TD]
[TD="class: xl66, bgcolor: silver"]86[/TD]
[TD="class: xl66, bgcolor: silver"] [/TD]
[/TR]
[TR]
[TD="class: xl69, bgcolor: #ff99cc"]12323[/TD]
[TD="class: xl66, bgcolor: silver"]71[/TD]
[TD="class: xl67, bgcolor: silver"]10.55[/TD]
[TD="class: xl66, bgcolor: silver"]8[/TD]
[TD="class: xl66, bgcolor: silver"]08 set 2012[/TD]
[TD="class: xl66, bgcolor: silver"] [/TD]
[TD="class: xl66, bgcolor: silver"]3[/TD]
[TD="class: xl66, bgcolor: silver"]8[/TD]
[TD="class: xl66, bgcolor: silver"]10[/TD]
[TD="class: xl66, bgcolor: silver"]15[/TD]
[TD="class: xl66, bgcolor: silver"]32[/TD]
[TD="class: xl66, bgcolor: silver"]37[/TD]
[TD="class: xl66, bgcolor: silver"]38[/TD]
[TD="class: xl66, bgcolor: silver"]39[/TD]
[TD="class: xl66, bgcolor: silver"]48[/TD]
[TD="class: xl66, bgcolor: silver"]53[/TD]
[TD="class: xl66, bgcolor: silver"]55[/TD]
[TD="class: xl66, bgcolor: silver"]56[/TD]
[TD="class: xl66, bgcolor: silver"]66[/TD]
[TD="class: xl66, bgcolor: silver"]69[/TD]
[TD="class: xl66, bgcolor: silver"]72[/TD]
[TD="class: xl66, bgcolor: silver"]73[/TD]
[TD="class: xl66, bgcolor: silver"]74[/TD]
[TD="class: xl66, bgcolor: silver"]77[/TD]
[TD="class: xl66, bgcolor: silver"]83[/TD]
[TD="class: xl66, bgcolor: silver"]88[/TD]
[TD="class: xl66, bgcolor: silver"] [/TD]
[/TR]
[TR]
[TD="class: xl69, bgcolor: #ff99cc"]12324[/TD]
[TD="class: xl66, bgcolor: silver"]72[/TD]
[TD="class: xl67, bgcolor: silver"]11.00[/TD]
[TD="class: xl66, bgcolor: silver"]8[/TD]
[TD="class: xl66, bgcolor: silver"]08 set 2012[/TD]
[TD="class: xl66, bgcolor: silver"] [/TD]
[TD="class: xl66, bgcolor: silver"]4[/TD]
[TD="class: xl66, bgcolor: silver"]5[/TD]
[TD="class: xl66, bgcolor: silver"]8[/TD]
[TD="class: xl66, bgcolor: silver"]11[/TD]
[TD="class: xl66, bgcolor: silver"]24[/TD]
[TD="class: xl66, bgcolor: silver"]25[/TD]
[TD="class: xl66, bgcolor: silver"]31[/TD]
[TD="class: xl66, bgcolor: silver"]38[/TD]
[TD="class: xl66, bgcolor: silver"]44[/TD]
[TD="class: xl66, bgcolor: silver"]46[/TD]
[TD="class: xl66, bgcolor: silver"]50[/TD]
[TD="class: xl66, bgcolor: silver"]54[/TD]
[TD="class: xl66, bgcolor: silver"]66[/TD]
[TD="class: xl66, bgcolor: silver"]67[/TD]
[TD="class: xl66, bgcolor: silver"]68[/TD]
[TD="class: xl66, bgcolor: silver"]73[/TD]
[TD="class: xl66, bgcolor: silver"]81[/TD]
[TD="class: xl66, bgcolor: silver"]83[/TD]
[TD="class: xl66, bgcolor: silver"]84[/TD]
[TD="class: xl66, bgcolor: silver"]86[/TD]
[TD="class: xl66, bgcolor: silver"] [/TD]
[/TR]
[TR]
[TD="class: xl69, bgcolor: #ff99cc"]12325[/TD]
[TD="class: xl66, bgcolor: silver"]73[/TD]
[TD="class: xl67, bgcolor: silver"]11.05[/TD]
[TD="class: xl66, bgcolor: silver"]8[/TD]
[TD="class: xl66, bgcolor: silver"]08 set 2012[/TD]
[TD="class: xl66, bgcolor: silver"] [/TD]
[TD="class: xl66, bgcolor: silver"]2[/TD]
[TD="class: xl66, bgcolor: silver"]8[/TD]
[TD="class: xl66, bgcolor: silver"]9[/TD]
[TD="class: xl66, bgcolor: silver"]10[/TD]
[TD="class: xl66, bgcolor: silver"]23[/TD]
[TD="class: xl66, bgcolor: silver"]24[/TD]
[TD="class: xl66, bgcolor: silver"]28[/TD]
[TD="class: xl66, bgcolor: silver"]29[/TD]
[TD="class: xl66, bgcolor: silver"]30[/TD]
[TD="class: xl66, bgcolor: silver"]32[/TD]
[TD="class: xl66, bgcolor: silver"]45[/TD]
[TD="class: xl66, bgcolor: silver"]52[/TD]
[TD="class: xl66, bgcolor: silver"]53[/TD]
[TD="class: xl66, bgcolor: silver"]64[/TD]
[TD="class: xl66, bgcolor: silver"]65[/TD]
[TD="class: xl66, bgcolor: silver"]77[/TD]
[TD="class: xl66, bgcolor: silver"]78[/TD]
[TD="class: xl66, bgcolor: silver"]85[/TD]
[TD="class: xl66, bgcolor: silver"]88[/TD]
[TD="class: xl66, bgcolor: silver"]89[/TD]
[TD="class: xl66, bgcolor: silver"] [/TD]
[/TR]
[/TABLE]
 
kabb77 ha scritto:
questo e quello che mi viene fuori sull'archivio !!

[TABLE="width: 747"]
[TR]
[TD="class: xl69, width: 40, bgcolor: #ff99cc"]12316
[/TD]
[TD="class: xl66, width: 39, bgcolor: silver"]170
[/TD]
[TD="class: xl67, width: 39, bgcolor: silver"]19.10
[/TD]
[TD="class: xl66, width: 31, bgcolor: silver"]9
[/TD]
[TD="class: xl68, width: 87, bgcolor: silver"]09-feb-13
[/TD]
[TD="class: xl66, width: 19, bgcolor: silver"][/TD]
[TD="class: xl66, width: 33, bgcolor: silver"]4
[/TD]
[TD="class: xl66, width: 34, bgcolor: silver"]5
[/TD]
[TD="class: xl66, width: 34, bgcolor: silver"]8
[/TD]
[TD="class: xl66, width: 34, bgcolor: silver"]9
[/TD]
[TD="class: xl66, width: 28, bgcolor: silver"]20
[/TD]
[TD="class: xl66, width: 31, bgcolor: silver"]23
[/TD]
[TD="class: xl66, width: 25, bgcolor: silver"]30
[/TD]
[TD="class: xl66, width: 30, bgcolor: silver"]34
[/TD]
[TD="class: xl66, width: 36, bgcolor: silver"]35
[/TD]
[TD="class: xl66, width: 36, bgcolor: silver"]40
[/TD]
[TD="class: xl66, width: 32, bgcolor: silver"]41
[/TD]
[TD="class: xl66, width: 33, bgcolor: silver"]42
[/TD]
[TD="class: xl66, width: 36, bgcolor: silver"]49
[/TD]
[TD="class: xl66, width: 25, bgcolor: silver"]51
[/TD]
[TD="class: xl66, width: 36, bgcolor: silver"]52
[/TD]
[TD="class: xl66, width: 33, bgcolor: silver"]66
[/TD]
[TD="class: xl66, width: 33, bgcolor: silver"]69
[/TD]
[TD="class: xl66, width: 29, bgcolor: silver"]80
[/TD]
[TD="class: xl66, width: 39, bgcolor: silver"]87
[/TD]
[TD="class: xl66, width: 32, bgcolor: silver"]89
[/TD]
[TD="class: xl66, width: 89, bgcolor: silver"][/TD]
[/TR]
[TR]
[TD="class: xl69, bgcolor: #ff99cc"]12317
[/TD]
[TD="class: xl66, bgcolor: silver"]171
[/TD]
[TD="class: xl67, bgcolor: silver"]19.15
[/TD]
[TD="class: xl66, bgcolor: silver"]9
[/TD]
[TD="class: xl68, bgcolor: silver"]09-feb-13
[/TD]
[TD="class: xl66, bgcolor: silver"][/TD]
[TD="class: xl66, bgcolor: silver"]5
[/TD]
[TD="class: xl66, bgcolor: silver"]6
[/TD]
[TD="class: xl66, bgcolor: silver"]9
[/TD]
[TD="class: xl66, bgcolor: silver"]22
[/TD]
[TD="class: xl66, bgcolor: silver"]31
[/TD]
[TD="class: xl66, bgcolor: silver"]32
[/TD]
[TD="class: xl66, bgcolor: silver"]33
[/TD]
[TD="class: xl66, bgcolor: silver"]37
[/TD]
[TD="class: xl66, bgcolor: silver"]38
[/TD]
[TD="class: xl66, bgcolor: silver"]41
[/TD]
[TD="class: xl66, bgcolor: silver"]53
[/TD]
[TD="class: xl66, bgcolor: silver"]54
[/TD]
[TD="class: xl66, bgcolor: silver"]55
[/TD]
[TD="class: xl66, bgcolor: silver"]61
[/TD]
[TD="class: xl66, bgcolor: silver"]65
[/TD]
[TD="class: xl66, bgcolor: silver"]67
[/TD]
[TD="class: xl66, bgcolor: silver"]68
[/TD]
[TD="class: xl66, bgcolor: silver"]77
[/TD]
[TD="class: xl66, bgcolor: silver"]86
[/TD]
[TD="class: xl66, bgcolor: silver"]90
[/TD]
[TD="class: xl66, bgcolor: silver"][/TD]
[/TR]
[TR]
[TD="class: xl69, bgcolor: #ff99cc"]12318
[/TD]
[TD="class: xl66, bgcolor: silver"]172
[/TD]
[TD="class: xl67, bgcolor: silver"]19.20
[/TD]
[TD="class: xl66, bgcolor: silver"]9
[/TD]
[TD="class: xl68, bgcolor: silver"]09-feb-13
[/TD]
[TD="class: xl66, bgcolor: silver"][/TD]
[TD="class: xl66, bgcolor: silver"]1
[/TD]
[TD="class: xl66, bgcolor: silver"]6
[/TD]
[TD="class: xl66, bgcolor: silver"]19
[/TD]
[TD="class: xl66, bgcolor: silver"]27
[/TD]
[TD="class: xl66, bgcolor: silver"]28
[/TD]
[TD="class: xl66, bgcolor: silver"]33
[/TD]
[TD="class: xl66, bgcolor: silver"]35
[/TD]
[TD="class: xl66, bgcolor: silver"]40
[/TD]
[TD="class: xl66, bgcolor: silver"]46
[/TD]
[TD="class: xl66, bgcolor: silver"]53
[/TD]
[TD="class: xl66, bgcolor: silver"]57
[/TD]
[TD="class: xl66, bgcolor: silver"]60
[/TD]
[TD="class: xl66, bgcolor: silver"]61
[/TD]
[TD="class: xl66, bgcolor: silver"]62
[/TD]
[TD="class: xl66, bgcolor: silver"]64
[/TD]
[TD="class: xl66, bgcolor: silver"]65
[/TD]
[TD="class: xl66, bgcolor: silver"]72
[/TD]
[TD="class: xl66, bgcolor: silver"]76
[/TD]
[TD="class: xl66, bgcolor: silver"]82
[/TD]
[TD="class: xl66, bgcolor: silver"]90
[/TD]
[TD="class: xl66, bgcolor: silver"][/TD]
[/TR]
[TR]
[TD="class: xl69, bgcolor: #ff99cc"]12319
[/TD]
[TD="class: xl66, bgcolor: silver"]173
[/TD]
[TD="class: xl67, bgcolor: silver"]19.25
[/TD]
[TD="class: xl66, bgcolor: silver"]9
[/TD]
[TD="class: xl68, bgcolor: silver"]09-feb-13
[/TD]
[TD="class: xl66, bgcolor: silver"][/TD]
[TD="class: xl66, bgcolor: silver"]1
[/TD]
[TD="class: xl66, bgcolor: silver"]3
[/TD]
[TD="class: xl66, bgcolor: silver"]9
[/TD]
[TD="class: xl66, bgcolor: silver"]12
[/TD]
[TD="class: xl66, bgcolor: silver"]14
[/TD]
[TD="class: xl66, bgcolor: silver"]21
[/TD]
[TD="class: xl66, bgcolor: silver"]24
[/TD]
[TD="class: xl66, bgcolor: silver"]28
[/TD]
[TD="class: xl66, bgcolor: silver"]32
[/TD]
[TD="class: xl66, bgcolor: silver"]36
[/TD]
[TD="class: xl66, bgcolor: silver"]38
[/TD]
[TD="class: xl66, bgcolor: silver"]47
[/TD]
[TD="class: xl66, bgcolor: silver"]48
[/TD]
[TD="class: xl66, bgcolor: silver"]56
[/TD]
[TD="class: xl66, bgcolor: silver"]69
[/TD]
[TD="class: xl66, bgcolor: silver"]73
[/TD]
[TD="class: xl66, bgcolor: silver"]76
[/TD]
[TD="class: xl66, bgcolor: silver"]78
[/TD]
[TD="class: xl66, bgcolor: silver"]87
[/TD]
[TD="class: xl66, bgcolor: silver"]88
[/TD]
[TD="class: xl66, bgcolor: silver"][/TD]
[/TR]
[TR]
[TD="class: xl69, bgcolor: #ff99cc"]12320
[/TD]
[TD="class: xl66, bgcolor: silver"]174
[/TD]
[TD="class: xl67, bgcolor: silver"]19.30
[/TD]
[TD="class: xl66, bgcolor: silver"]9
[/TD]
[TD="class: xl68, bgcolor: silver"]09-feb-13
[/TD]
[TD="class: xl66, bgcolor: silver"][/TD]
[TD="class: xl66, bgcolor: silver"]3
[/TD]
[TD="class: xl66, bgcolor: silver"]14
[/TD]
[TD="class: xl66, bgcolor: silver"]15
[/TD]
[TD="class: xl66, bgcolor: silver"]18
[/TD]
[TD="class: xl66, bgcolor: silver"]21
[/TD]
[TD="class: xl66, bgcolor: silver"]25
[/TD]
[TD="class: xl66, bgcolor: silver"]31
[/TD]
[TD="class: xl66, bgcolor: silver"]33
[/TD]
[TD="class: xl66, bgcolor: silver"]43
[/TD]
[TD="class: xl66, bgcolor: silver"]57
[/TD]
[TD="class: xl66, bgcolor: silver"]61
[/TD]
[TD="class: xl66, bgcolor: silver"]62
[/TD]
[TD="class: xl66, bgcolor: silver"]67
[/TD]
[TD="class: xl66, bgcolor: silver"]73
[/TD]
[TD="class: xl66, bgcolor: silver"]82
[/TD]
[TD="class: xl66, bgcolor: silver"]85
[/TD]
[TD="class: xl66, bgcolor: silver"]87
[/TD]
[TD="class: xl66, bgcolor: silver"]88
[/TD]
[TD="class: xl66, bgcolor: silver"]89
[/TD]
[TD="class: xl66, bgcolor: silver"]90
[/TD]
[TD="class: xl66, bgcolor: silver"][/TD]
[/TR]
[TR]
[TD="class: xl69, bgcolor: #ff99cc"]12321
[/TD]
[TD="class: xl66, bgcolor: silver"]69
[/TD]
[TD="class: xl67, bgcolor: silver"]10.45
[/TD]
[TD="class: xl66, bgcolor: silver"]8
[/TD]
[TD="class: xl66, bgcolor: silver"]08 set 2012
[/TD]
[TD="class: xl66, bgcolor: silver"][/TD]
[TD="class: xl66, bgcolor: silver"]4
[/TD]
[TD="class: xl66, bgcolor: silver"]10
[/TD]
[TD="class: xl66, bgcolor: silver"]13
[/TD]
[TD="class: xl66, bgcolor: silver"]17
[/TD]
[TD="class: xl66, bgcolor: silver"]19
[/TD]
[TD="class: xl66, bgcolor: silver"]25
[/TD]
[TD="class: xl66, bgcolor: silver"]27
[/TD]
[TD="class: xl66, bgcolor: silver"]30
[/TD]
[TD="class: xl66, bgcolor: silver"]33
[/TD]
[TD="class: xl66, bgcolor: silver"]35
[/TD]
[TD="class: xl66, bgcolor: silver"]42
[/TD]
[TD="class: xl66, bgcolor: silver"]45
[/TD]
[TD="class: xl66, bgcolor: silver"]46
[/TD]
[TD="class: xl66, bgcolor: silver"]54
[/TD]
[TD="class: xl66, bgcolor: silver"]56
[/TD]
[TD="class: xl66, bgcolor: silver"]61
[/TD]
[TD="class: xl66, bgcolor: silver"]67
[/TD]
[TD="class: xl66, bgcolor: silver"]75
[/TD]
[TD="class: xl66, bgcolor: silver"]87
[/TD]
[TD="class: xl66, bgcolor: silver"]90
[/TD]
[TD="class: xl66, bgcolor: silver"][/TD]
[/TR]
[TR]
[TD="class: xl69, bgcolor: #ff99cc"]12322
[/TD]
[TD="class: xl66, bgcolor: silver"]70
[/TD]
[TD="class: xl67, bgcolor: silver"]10.50
[/TD]
[TD="class: xl66, bgcolor: silver"]8
[/TD]
[TD="class: xl66, bgcolor: silver"]08 set 2012
[/TD]
[TD="class: xl66, bgcolor: silver"][/TD]
[TD="class: xl66, bgcolor: silver"]4
[/TD]
[TD="class: xl66, bgcolor: silver"]17
[/TD]
[TD="class: xl66, bgcolor: silver"]28
[/TD]
[TD="class: xl66, bgcolor: silver"]36
[/TD]
[TD="class: xl66, bgcolor: silver"]43
[/TD]
[TD="class: xl66, bgcolor: silver"]47
[/TD]
[TD="class: xl66, bgcolor: silver"]49
[/TD]
[TD="class: xl66, bgcolor: silver"]51
[/TD]
[TD="class: xl66, bgcolor: silver"]54
[/TD]
[TD="class: xl66, bgcolor: silver"]55
[/TD]
[TD="class: xl66, bgcolor: silver"]61
[/TD]
[TD="class: xl66, bgcolor: silver"]62
[/TD]
[TD="class: xl66, bgcolor: silver"]63
[/TD]
[TD="class: xl66, bgcolor: silver"]68
[/TD]
[TD="class: xl66, bgcolor: silver"]70
[/TD]
[TD="class: xl66, bgcolor: silver"]71
[/TD]
[TD="class: xl66, bgcolor: silver"]72
[/TD]
[TD="class: xl66, bgcolor: silver"]81
[/TD]
[TD="class: xl66, bgcolor: silver"]83
[/TD]
[TD="class: xl66, bgcolor: silver"]86
[/TD]
[TD="class: xl66, bgcolor: silver"][/TD]
[/TR]
[TR]
[TD="class: xl69, bgcolor: #ff99cc"]12323
[/TD]
[TD="class: xl66, bgcolor: silver"]71
[/TD]
[TD="class: xl67, bgcolor: silver"]10.55
[/TD]
[TD="class: xl66, bgcolor: silver"]8
[/TD]
[TD="class: xl66, bgcolor: silver"]08 set 2012
[/TD]
[TD="class: xl66, bgcolor: silver"][/TD]
[TD="class: xl66, bgcolor: silver"]3
[/TD]
[TD="class: xl66, bgcolor: silver"]8
[/TD]
[TD="class: xl66, bgcolor: silver"]10
[/TD]
[TD="class: xl66, bgcolor: silver"]15
[/TD]
[TD="class: xl66, bgcolor: silver"]32
[/TD]
[TD="class: xl66, bgcolor: silver"]37
[/TD]
[TD="class: xl66, bgcolor: silver"]38
[/TD]
[TD="class: xl66, bgcolor: silver"]39
[/TD]
[TD="class: xl66, bgcolor: silver"]48
[/TD]
[TD="class: xl66, bgcolor: silver"]53
[/TD]
[TD="class: xl66, bgcolor: silver"]55
[/TD]
[TD="class: xl66, bgcolor: silver"]56
[/TD]
[TD="class: xl66, bgcolor: silver"]66
[/TD]
[TD="class: xl66, bgcolor: silver"]69
[/TD]
[TD="class: xl66, bgcolor: silver"]72
[/TD]
[TD="class: xl66, bgcolor: silver"]73
[/TD]
[TD="class: xl66, bgcolor: silver"]74
[/TD]
[TD="class: xl66, bgcolor: silver"]77
[/TD]
[TD="class: xl66, bgcolor: silver"]83
[/TD]
[TD="class: xl66, bgcolor: silver"]88
[/TD]
[TD="class: xl66, bgcolor: silver"][/TD]
[/TR]
[TR]
[TD="class: xl69, bgcolor: #ff99cc"]12324
[/TD]
[TD="class: xl66, bgcolor: silver"]72
[/TD]
[TD="class: xl67, bgcolor: silver"]11.00
[/TD]
[TD="class: xl66, bgcolor: silver"]8
[/TD]
[TD="class: xl66, bgcolor: silver"]08 set 2012
[/TD]
[TD="class: xl66, bgcolor: silver"][/TD]
[TD="class: xl66, bgcolor: silver"]4
[/TD]
[TD="class: xl66, bgcolor: silver"]5
[/TD]
[TD="class: xl66, bgcolor: silver"]8
[/TD]
[TD="class: xl66, bgcolor: silver"]11
[/TD]
[TD="class: xl66, bgcolor: silver"]24
[/TD]
[TD="class: xl66, bgcolor: silver"]25
[/TD]
[TD="class: xl66, bgcolor: silver"]31
[/TD]
[TD="class: xl66, bgcolor: silver"]38
[/TD]
[TD="class: xl66, bgcolor: silver"]44
[/TD]
[TD="class: xl66, bgcolor: silver"]46
[/TD]
[TD="class: xl66, bgcolor: silver"]50
[/TD]
[TD="class: xl66, bgcolor: silver"]54
[/TD]
[TD="class: xl66, bgcolor: silver"]66
[/TD]
[TD="class: xl66, bgcolor: silver"]67
[/TD]
[TD="class: xl66, bgcolor: silver"]68
[/TD]
[TD="class: xl66, bgcolor: silver"]73
[/TD]
[TD="class: xl66, bgcolor: silver"]81
[/TD]
[TD="class: xl66, bgcolor: silver"]83
[/TD]
[TD="class: xl66, bgcolor: silver"]84
[/TD]
[TD="class: xl66, bgcolor: silver"]86
[/TD]
[TD="class: xl66, bgcolor: silver"][/TD]
[/TR]
[TR]
[TD="class: xl69, bgcolor: #ff99cc"]12325
[/TD]
[TD="class: xl66, bgcolor: silver"]73
[/TD]
[TD="class: xl67, bgcolor: silver"]11.05
[/TD]
[TD="class: xl66, bgcolor: silver"]8
[/TD]
[TD="class: xl66, bgcolor: silver"]08 set 2012
[/TD]
[TD="class: xl66, bgcolor: silver"][/TD]
[TD="class: xl66, bgcolor: silver"]2
[/TD]
[TD="class: xl66, bgcolor: silver"]8
[/TD]
[TD="class: xl66, bgcolor: silver"]9
[/TD]
[TD="class: xl66, bgcolor: silver"]10
[/TD]
[TD="class: xl66, bgcolor: silver"]23
[/TD]
[TD="class: xl66, bgcolor: silver"]24
[/TD]
[TD="class: xl66, bgcolor: silver"]28
[/TD]
[TD="class: xl66, bgcolor: silver"]29
[/TD]
[TD="class: xl66, bgcolor: silver"]30
[/TD]
[TD="class: xl66, bgcolor: silver"]32
[/TD]
[TD="class: xl66, bgcolor: silver"]45
[/TD]
[TD="class: xl66, bgcolor: silver"]52
[/TD]
[TD="class: xl66, bgcolor: silver"]53
[/TD]
[TD="class: xl66, bgcolor: silver"]64
[/TD]
[TD="class: xl66, bgcolor: silver"]65
[/TD]
[TD="class: xl66, bgcolor: silver"]77
[/TD]
[TD="class: xl66, bgcolor: silver"]78
[/TD]
[TD="class: xl66, bgcolor: silver"]85
[/TD]
[TD="class: xl66, bgcolor: silver"]88
[/TD]
[TD="class: xl66, bgcolor: silver"]89
[/TD]
[TD="class: xl66, bgcolor: silver"][/TD]
[/TR]
[/TABLE]
Clicca per espandere...
suppongo dipenda da come è predefinito exel...ha messo le nuove in alto e le precedenti sono rimaste in coda... l'ha fatto anche con me.Hai esportato le estrazioni in exel in spaziometria ,prima di fare l'aggiornemento?
 
Scusate il ritardo, provate con questo script corretto
Codice: 
Option Explicit
Dim xlApp ' oggetto excel
Dim xlBook ' insieme di cartelle di lavoro
Dim xlSheet ' foglio di lavoro
Const xlCalculationManual = - 4135 '(&HFFFFEFD9)
Const xlCalculationAutomatic = - 4105 '(&HFFFFEFF7)
Const xlMaximized = - 4137 '(&HFFFFEFD7)
Const xlMinimized = - 4140 '(&HFFFFEFD4)
Sub Main
    Dim nEstrInizio,nEstrFine
    Dim DataIni,DataFin
    Dim FasciaOrariaIni,FasciaOrariaFin
    Dim sFile
    Dim sChrSep
    sChrSep = "|"
    If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire l'export ?",vbQuestion + vbYesNo) = vbYes Then
        Call AggiornaArchivioDL
    End If
    Call ImpostaArchivio10ELotto(2)
    If MsgBox("Vuoi aggiornare direttamente il foglio excel ?" & vbCrLf & "Premendo NO verrà creato il file di testo" & _
        vbCrLf & "Se premi SI il foglio SPIAMO I NUMERI deve essere aperto",vbQuestion + vbYesNo) = vbYes Then
        If IstanziaExcel Then
            xlApp.WindowState = xlMinimized
            Call AbilitaCalcoloXls(False)
            Call AggiornaExcel(sChrSep)
            Call AbilitaCalcoloXls(True)
            xlApp.WindowState = xlMaximized
        End If
    Else
        sFile = GetDirectoryAppData & "Estrazioni10Lotto5M.txt"
        If EliminaFile(sFile) Then
            If ChiediDataInizioFine(DataIni,DataFin) Then
                If ChiediFasciaInizioFine(FasciaOrariaIni,FasciaOrariaFin) Then
                    nEstrInizio = DataEstrToIdEstrDL(Day(DataIni),Month(DataIni),Year(DataIni),1)
                    nEstrFine = DataEstrToIdEstrDL(Day(DataFin),Month(DataFin),Year(DataFin),1)
                    If IsRangeValido(nEstrInizio,nEstrFine) Then
                        Call EsportaEstr(nEstrInizio,nEstrFine,FasciaOrariaIni,FasciaOrariaFin,sFile,sChrSep,False,0,0,0)
                    End If
                End If
            End If
        End If
    End If
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
End Sub
Sub AggiornaExcel(sChrSep)
    Dim sOrario,nEstrInizio,nEstrFine,FasciaOrariaIni,FasciaOrariaFin
    Dim DataIni,DataFin
    Dim bChiedi
    Dim sLastData,nLastId,nProgr,idRigaXls
    sOrario = GetRangeOrarioDaFoglioXls(FasciaOrariaIni,FasciaOrariaFin)
    If sOrario <> "" Then
        Call GetLastDataIdProgr(sLastData,nLastId,nProgr,idRigaXls)
        If MsgBox("E' stato rilevato il range orario " & sOrario & vbCrLf & _
            "L'ultima data in archivio risulta : " & sLastData & _
            vbCrLf & "L'ultima giocata oraria è : " & GetOrario(nLastId) & _
            vbCrLf & "Accodare le estrazioni nuove nel range orario previsto ?" & _
            vbCrLf & "Premendo NO , il foglio archivio verra aggiornato" & _
            " daccapo e sara possibile scegliere il range ",vbQuestion + vbYesNo) = vbYes Then
            bChiedi = False
        Else
            bChiedi = True
        End If
    Else
        bChiedi = True
    End If
    If bChiedi Then
        If ChiediDataInizioFine(DataIni,DataFin) Then
            If ChiediFasciaInizioFine(FasciaOrariaIni,FasciaOrariaFin) Then
                nEstrInizio = DataEstrToIdEstrDL(Day(DataIni),Month(DataIni),Year(DataIni),1)
                nEstrFine = DataEstrToIdEstrDL(Day(DataFin),Month(DataFin),Year(DataFin),1)
                If IsRangeValido(nEstrInizio,nEstrFine) Then
                    xlSheet.Cells.Select
                    xlSheet.Cells.Range("A7:Z30000").ClearContents

                    Call EsportaEstr(nEstrInizio,nEstrFine,FasciaOrariaIni,FasciaOrariaFin,"",sChrSep,True,6,0,0)
                End If
            End If
        End If
    Else
        DataIni = FormattaStringa(sLastData,"dd/mm/yyyy")
        DataFin = FormattaStringa(Now,"dd/mm/yyyy")
        nEstrInizio = DataEstrToIdEstrDL(Day(DataIni),Month(DataIni),Year(DataIni),1)
        nEstrFine = DataEstrToIdEstrDL(Day(DataFin),Month(DataFin),Year(DataFin),1)
        xlSheet.Cells.Select
        Call EsportaEstr(nEstrInizio,nEstrFine,FasciaOrariaIni,FasciaOrariaFin,"",sChrSep,True,idRigaXls,nProgr,nLastId)
    End If
End Sub
Sub EsportaEstr(nEstrInizio,nEstrFine,FasciaOrariaIni,FasciaOrariaFin,sFile,sChrSep,bAggiornaXls,nPrimaRigaXls,nProgrXls,nLastFasciaOrario)
    Dim k,f,idEstr
    Dim sRecord
    Dim nProgr
    Dim sDataCorr
    Dim idRigaXls
    idRigaXls = nPrimaRigaXls
    nProgr = nProgrXls
    For k = nEstrInizio To nEstrFine Step 228
        Call Messaggio("Estrazione : " & k)
        For f = FasciaOrariaIni To FasciaOrariaFin
            If f > nLastFasciaOrario Then
                idEstr =(k - 1) + f
                ReDim aNum(0)
                If GetEstrazioneCompletaDL(idEstr,aNum) Then
                    nProgr = nProgr + 1
                    sDataCorr = Replace(DataEstrazioneDL(idEstr),".","/")
                    sRecord = FormatSpace(nProgr,9,True) & sChrSep
                    sRecord = sRecord & FormatSpace(f,3,True) & sChrSep
                    sRecord = sRecord & GetOrario(f) & sChrSep
                    sRecord = sRecord & Format2(Day(sDataCorr)) & sChrSep
                    sRecord = sRecord & FormattaStringa(sDataCorr,"dd mmm yyyy") & sChrSep
                    sRecord = sRecord & sChrSep
                    sRecord = sRecord & StringaNumeri(aNum,sChrSep,True)
                    If bAggiornaXls Then
                        idRigaXls = idRigaXls + 1
                        Call AddRigaXls(idRigaXls,sRecord,nProgr,sChrSep)
                    Else
                        Call ScriviFile(sFile,sRecord,False,True)
                    End If
                Else
                    Exit For
                End If
            End If
            If ScriptInterrotto Then Exit For
        Next
        nLastFasciaOrario = 0
        If ScriptInterrotto Then Exit For
        Call AvanzamentoElab(nEstrInizio,nEstrFine,k)
    Next
    If bAggiornaXls = False Then
        Call CloseFileHandle(sFile)
        Call LanciaFile(sFile)
    Else
        xlSheet.cells(1,1).select
        xlSheet.select
    End If
End Sub
Function IsRangeValido(Inizio,Fine)
    Dim b
    b = False
    If Inizio > 0 And Fine > 0 Then
        If Fine >= Inizio Then
            b = True
        End If
    End If
    If Not b Then
        MsgBox "Range non valido , probabilemente mancano le estrazioni nella base dati " & _
        vbCrLf & "EstrazioneIni : " & Inizio & vbCrLf & "EstrazioneFine  : " & Fine
    End If
    IsRangeValido = b
End Function
Function ChiediDataInizioFine(DataI,DataF)
    If Not IsDate(DataF) Then DataF = FormattaStringa(Now,"dd/mm/yyyy")
    If Not IsDate(DataI) Then DataI = FormattaStringa(DateAdd("d",-(30),DataF),"dd/mm/yyyy")
    DataI = InputBox("Inserire data inizio ricerca in formato GG/MM/AAAA","Data inizio",DataI)
    DataF = InputBox("Inserire data fine ricerca in formato GG/MM/AAAA","Data fine",DataF)
    If IsDate(DataI) And IsDate(DataF) Then
        If DateDiff("d",DataI,DataF) >= 0 Then
            ChiediDataInizioFine = True
        Else
            MsgBox "La data FINE deve essere maggiore od uguale alla data INIZIO"
        End If
    Else
        MsgBox "Date inserite non valide"
    End If
End Function
Function GetOrario(id)
    Dim h,m
    h = id \12
    m = id Mod 12
    If h = 0 Then
        h = 5
    Else
        h = 5 + h
    End If
    If m = 12 Then
        GetOrario = Format2(h) & ":00"
    Else
        If h = 24 Then
            GetOrario = "23:59"
        Else
            GetOrario = Format2(h) & ":" & Format2(m * 5)
        End If
    End If
End Function
Function ChiediFasciaInizioFine(FasciaI,FasciaF)
    FasciaI = ChiediFasciaOraria("Fascia oraria inizio",1)
    FasciaF = ChiediFasciaOraria("Fascia oraria fine",228)
    If FasciaI > 0 And FasciaF > 0 Then
        If FasciaF >= FasciaI Then
            ChiediFasciaInizioFine = True
        Else
            MsgBox "La fascia oraria Fien deve essere maggiore della fascia oraria INIZIO"
        End If
    Else
        MsgBox "Fascie orarie non valide"
    End If
End Function
Function ChiediFasciaOraria(sCaption,nSel)
    Dim aLista(228)
    Dim h,m
    Dim i
    For h = 5 To 23
        For m = 5 To 60 Step 5
            i = i + 1
            If m = 60 Then
                aLista(i) = Format2(h + 1) & ":00"
            Else
                aLista(i) = Format2(h) & ":" & Format2(m)
            End If
        Next
    Next
    aLista(i) = "23:59"
    ChiediFasciaOraria = ScegliOpzioneMenu(aLista,nSel,sCaption)
End Function
Function GetFoglioArchivio
    On Error Resume Next
    Set xlBook = xlApp.Workbooks(1)
    Set xlSheet = xlBook.sheets("archivio")
    If Err.number <> 0 Then
        MsgBox "Il foglio excel SPIAMO I GIORNI deve essere aperto e contenere il foglio di nome <archivio>"
    Else
        GetFoglioArchivio = True
    End If
End Function
Function GetExcel
    On Error Resume Next
    Set xlApp = GetObject(,"Excel.Application")
    If Err.number <> 0 Then
        MsgBox "Il foglio excel SPIAMO I GIORNI deve essere aperto"
    Else
        GetExcel = True
    End If
End Function
Function IstanziaExcel
    If GetExcel Then
        If GetFoglioArchivio Then
            IstanziaExcel = True
        End If
    End If
End Function
Sub AddRigaXls(idRiga,sRecord,nProgr,sChrSep)
    'Dim idRiga
    Dim k
    ReDim aV(0)
    Call Messaggio("Aggiungo estrazione : " & nProgr)
    Call SplitByChar(sRecord,sChrSep,aV)
    'idRiga = nProgr +(7 - 1)
    For k = 0 To UBound(aV)
        xlSheet.cells(idRiga,k + 1) = aV(k)
    Next
End Sub
Sub AbilitaCalcoloXls(b)
    Dim xlSh
    For Each xlSh In xlBook.worksheets
        xlSh.enablecalculation = b
    Next
    If b Then
        xlApp.calculation = xlCalculationAutomatic
    Else
        xlApp.calculation = xlCalculationManual
    End If
End Sub
Function GetRangeOrarioDaFoglioXls(nStart,nEnd)
    Dim k
    Call Messaggio("Lettura archivio precedente")
    nStart = 0
    nEnd = 0
    k = 7
    nStart = Int(xlSheet.cells(k,2))
    Do
        nEnd = Int(xlSheet.cells(k,2))
        k = k + 1
    Loop While nEnd < Int(xlSheet.cells(k,2))
    If nStart > 0 And nEnd > 0 Then
        GetRangeOrarioDaFoglioXls = GetOrario(nStart) & "-" & GetOrario(nEnd)
    Else
        GetRangeOrarioDaFoglioXls = ""
    End If
End Function
Function GetLastDataIdProgr(sLastData,nLastId,nProgr,idRigaXls)
    Dim k,i
    Call Messaggio("Lettura archivio precedente")
    sLastData = ""
    nLastId = 0
    nProgr = 0
    idRigaXls = 0
    Do
        k = k + 100
    Loop While xlSheet.cells(k,1) <> ""
    For i = k To 1 Step - 1
        If xlSheet.cells(i,1) <> "" Then
            sLastData = xlSheet.cells(i,5)
            nLastId = Int(xlSheet.cells(i,2))
            nProgr = Int(xlSheet.cells(i,1))
            idRigaXls = i
            Exit For
        End If
    Next
End Function

a me funziona
Ciao
 
Ultima modifica:
ciao rol65 !! grazie x il script !! ho fatto , e ho rifatto il tutto, ma mi da sempre estrazioni diverse come sopra ecitato, anche con il tuto consiglio di mettere il exce in spaziometria, risultato negativo. l'unica cosa che si protrebbe fare, sempre se vuoi !! e di mandarmi il excel già aggiornato, cosi posso iniziare ad aggiornarlo dalla fine data che tù hai aggiornato. naturalmente se vuoi !! oppure se cè unal'tra alternativa, fammelo sapere. grazie un salutone ciao.
 
Ciao kabb a me funziona bene,
per fare una prova veloce, prova a creare l'archivio a partire da gennaio 2013 a febbraio 2013 dalle 8,00 alle 12,00 vedrai che tutte l'estrazioni rimanenti saranno cancellate automaticamente.
Ciao
 
Verificato adesso e confermo il tutto funziona cancellando l'eventuali estrazioni precedenti.
lo script prima di inserire l'estrazioni cancella tutte quelle inserite e poi inizia a copiare quelle nuove
 
l'ultimo GENIUS di Avatar si aggiorna con lo stesso script
puoi cambiare anche l'orario ma il funzionamento dello script è identico.
PROVA dal 01-01-2013 al 01-03-2013 dalle 16 alle 17 e vedrai che inserisce solo quelle cancellando le altre in archivio. (solo x prova)
verificato adesso e confermo il tutto funziona cancellando l'eventuali estrazioni precedenti.
lo script prima di inserire l'estrazioni cancella tutte quelle inserite e poi inizia a copiare quelle nuove
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 18 luglio 2025
    Bari
    48
    38
    01
    78
    24
    Cagliari
    87
    33
    22
    13
    19
    Firenze
    14
    27
    71
    11
    50
    Genova
    40
    14
    77
    76
    17
    Milano
    26
    17
    90
    64
    69
    Napoli
    40
    89
    06
    23
    84
    Palermo
    62
    51
    36
    86
    26
    Roma
    76
    33
    75
    83
    47
    Torino
    83
    19
    82
    79
    89
    Venezia
    20
    31
    13
    12
    87
    Nazionale
    74
    29
    28
    32
    78
    Estrazione Simbolotto
    Nazionale
    39
    18
    27
    28
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto