Per joe o qualche esperto Piccola modifica script

[solare]

Ciao, non ricordo se questo script è stato fatto da Joe
Quello che chiedo se possibile far partire l'archivio dal 15/9/2009
oppure da come è impostato l'archivio in spaziometria.


Option Explicit
Sub Main
Dim ini,fin: Call ScegliRange(ini,fin,1,EstrazioniArchivio)
ReDim aR(0): Call ScegliRuote(aR)
Dim idE
Dim R
Dim sep: sep = " "
Dim bRet: bRet = false
' non ricordo bene il nome di questa funzione
If ini > 0 Then
If fin >= ini And fin <= EstrazioniArchivio Then
If UBound(aR) > 0 Then

bRet = True

End If
End If
End If
If bRet = false Then
Scrivi " errore variabili"
Exit Sub
End If

For idE = ini To fin
For R = 1 To UBound(aR)
If aR(R) <> 11 Then

Scrivi DataEstrazione(idE) & " " & SiglaRuota(aR(R)) & " " & StringaEstratti(idE,aR(R),sep)

'Scrivi DataEstrazione(idE) &sep& SiglaRuota(aR(R))&sep&StringaEs( idE,aR(R),sep)
End If
Next

Next
End Sub
'Non ricordo se stringaestratti formatta automaticamente i numeretti per questo la funzione che segue
Function StringaEs(idE,R,sep)
Dim p,s
s = ""
For p = 1 To 5
s = s & Estratto(idE,R,p) & sep
Next
StringaEs = RimuoviLastChr(s,sep)
End Function

 

[salvo50]

Ciao Solare

Lancia lo script e quando ti appare questa schermata



inserisci il numero 8117 (che corrisponde al 15/09/2009) in alto a destra


pigia ok

e dopo prosegui normalmente con lo script

 

[joe]

Puoi mettere 8117 al posto dell'1 in terza riga.

 

[solare]

Ottimo Grazieeeee