EXPORTAR P/VARIOS ARQUIVOS

USUARIO.EXCLUIDOS 28/11/2006 12:12:51
#186745
SENHORES,

TENHO UMA TABELA DE CLIENTES COM MAIS DE 1000 REGISTROS

HOJE CONSIGO EXPORTAR EM TXT, MAS GOSTARIA DE EXPORTAR EM VàRIOS ARQUIVOS.

POR EXEMPLO: AO EXPORTAR, O VB CRIASSE 10 ARQUIVOS DE 100 REGISTROS CADA.

ALGUEM TEM ALGO PARECIDO?

UM ABRAÇO.
F001E 28/11/2006 12:18:24
#186747
bom...ja que vc consegue exportar pra .txt....pq vc na hora da exportação...faz um Loop...com um contador....quando chegar no 100 registro, para essa exportação e começa a outra no 101 registro...e assim sucessivamente....
USUARIO.EXCLUIDOS 28/11/2006 15:43:03
#186789 Resposta escolhida
Isso mesmo que o fernando falou... você já deve ter um for certo??? só adapte

Open app.Path & "\Arq1.txt" for OutPut as #1
For i = 1 to NumRegistros
   if i mod 10 = 0 then
      Close #1
      Open app.Path & "\Arq" & i / 10 & ".txt" for OutPut as #1  
   End if
   'Aqui realiza a exportação
Next
Close #1



A lógica é esta!
Tópico encerrado , respostas não são mais permitidas
Voltar