Per chi puo aiutarmi

[MILONICO]

Ciao avrei bisogno di un listato che mi possa restituire archivio tx come in allegato Senza Nazionale grazie.

 

[Cinzia27]

Ciao, Milonico,
guarda se va bene.

Sub Main()

For es=3549 To EstrazioneFin

For r=1 To 10
If Estratto(es,r,1)>0 Then
Scrivi Anno(es)&"/"&Format2(Mese(es))&"/"&Format2(giorno(es))&"    ",0,0
Scrivi SiglaRuota(r)&"    ",0,0
For p=1 To 5
Scrivi FormatSpace(Estratto(es,r,p),2,1)&"    ",0,0
Next
Scrivi
End If
Next
Next

Scrivi

End Sub