CISA FotoGallery

Statistiche

Tot. visite contenuti : 927993
Home Articoli tecnici VBA Esportare in n txt n record alla volta

Esportare in n txt n record alla volta

L'esigenza è quella di esportare tot record alla volta di una tabella in n file diversi

Sub subEsporta()
Dim i As Integer
Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("Tabella1")
Open Application.CurrentProject.Path & "\Esporta.txt" For Output As #1

With rs
Do
i = i + 1

Print #1, rs!codice
If i Mod 3 = 0 Then
Close #1
Open Application.CurrentProject.Path & "\Esporta" & i / 3 & ".txt" For Output As #1
End If
.MoveNext
Loop Until .EOF
Close #1
End With

End Sub