Archivi Rotanti

[cutoff]

Qualcuno potrebbe cortesemente passarmi l'archivio aggiornato? Non mi funziona l'aggiornamento automatico delle estrazioni. A voi funziona? Grazie

 

[mirapep]

Non funziona

 

[cutoff]

Non funziona

Grazie mirapep. Quindi aggiorni a mano le estrazioni inserendole nel file che mi hai inviato. Giusto? grazie

 

[mirapep]

Aggiorno con spaziometria tramite uno script gentilmente realizzato da Joe. Poi, incollo le estrazioni nel file di Archivi Rotanti

 

[cutoff]

Aggiorno con spaziometria tramite uno script gentilmente realizzato da Joe. Poi, incollo le estrazioni nel file di Archivi Rotanti

Saresti così gentile da mettermi lo script oppure mi dai il link...Grazie di tutto

 

[mirapep]

Option Explicit
Sub Main
Dim Es,R,P
For Es = 9700 To EstrazioneFin ' Qui inserisci la prima estrazione da aggiornare
Scrivi DataEstrazione(Es,,,"/"),0,0
Scrivi ";" & FormattaStringa(IndiceAnnuale(Es),"000"),0,0
For R = 1 To 12
If R <> 11 Then
For P = 1 To 5
Scrivi ";" & Format2(Estratto(Es,R,P)),0,0
Next
End If
Next
Scrivi
Next
End Sub