Buon Giorno a tutte/i.
Per usare convenientemente lo script che segue consiglio di predisporre
alcune cose che poi potranno essere cambiate.
Ma è utile descriverle proprio per capire come e perché cambiarle.
Consiglio di creare nel proprio
computer una cartella vuota sul
Desktop dal titolo
PrevRaz.
In questa cartella inserire il file eseguibile
PreRaz.exe che si è scaricato dal Web.
Si dovrebbe pertanto avere il programma in un percorso uguale a questo:
"
C:\Users\computer\Desktop\PrevRaz\PrevRaz.exe"
Se è così ... si può lanciare il mio script che dovrebbe eseguirsi senza errori.
Il percorso di ogni file è diverso da computer a computer.
dunque si deve adattare lo script al proprio PC.
Pertanto a chi non dovesse funzionare, perché ha una struttura dei file ... diversa ...
Deve modificare, i percorsi dei 2 file nello script :
"C:\Users\computer\Desktop\PrevRaz\PrevRaz.exe"
"C:\Users\computer\Desktop\PrevRaz\Archiviolotto.csv"
CIOE' i percorsi tra le virgolette
DEVONO ESSERE ESATTAMENTE
quelli che sono
I PERCORSI VERI E PROPRI DEI 2 FILE del PC che si sta usando.
Codice:
Option Explicit
Sub Main
'Agg_X_PrevRaz
'Script By Joe 10/12/2020
Dim sFile,Riga
Dim Ini,Fin,Es,R,P
Ini = 3950 : Fin = EstrazioniArchivio
sFile = "C:\Users\computer\Desktop\PrevRaz\Archiviolotto.csv"
Call EliminaFile(sFile)
For Es = Ini To Fin
Call AvanzamentoElab(Ini,Fin,Es)
Riga = DataEstrazione(Es,,,"/")
For R = 1 To 12 : If R = 11 Then R = 12
For P = 1 To 5
Riga = Riga & ";" & Format2(Estratto(Es,R,P))
Next
Next
Call ScriviFile(sFile ,Riga)
Next
Call CloseFileHandle(sFile)
Call LanciaFile("C:\Users\computer\Desktop\PrevRaz\PrevRaz.exe")
End Sub