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
    sabato 18 gennaio 2025
    Bari
    24
    76
    02
    72
    12
    Cagliari
    21
    08
    77
    04
    17
    Firenze
    74
    84
    07
    12
    72
    Genova
    13
    07
    33
    47
    18
    Milano
    01
    34
    09
    55
    48
    Napoli
    46
    23
    25
    03
    06
    Palermo
    44
    07
    01
    46
    84
    Roma
    88
    78
    64
    74
    04
    Torino
    07
    87
    67
    38
    53
    Venezia
    31
    25
    04
    18
    02
    Nazionale
    49
    82
    59
    65
    67
    Estrazione Simbolotto
    Bari
    03
    13
    31
    23
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto