[Resolvido]Exportar consultas para um txt

Ola.

estou com um problema.

preciso exportar o resultado de duas consultas no mesmo arquivo txt.


1º contulta

1|86 |I|12345678912|ativo |
1|86 |I| |ativo |
1|86 |I|15935785264|ativo |
1|86 |I|32165478985|ativo |
1|86 |I|45678912365|ativo |

2º consulta

1|86 |g|12345612|DESLIGADO|10/01/2012
1|86 |g|15935764|DESLIGADO|11/02/2012
1|86 |g|32165485|DESLIGADO|25/01/2012
1|86 |g|45678965|DESLIGADO|01/02/2012

Resultado que necessito:

1|86 |I|12345678912|ativo |
1|86 |I| |ativo |
1|86 |I|15935785264|ativo |
1|86 |I|32165478985|ativo |
1|86 |I|45678912365|ativo |
1|86 |g|12345612|DESLIGADO|10/01/2012
1|86 |g|15935764|DESLIGADO|11/02/2012
1|86 |g|32165485|DESLIGADO|25/01/2012
1|86 |g|45678965|DESLIGADO|01/02/2012


Até tentei inserir tudo dentro de uma unica tabela e depois exportar, porém os campos são diferentes.
Estou utilizando dusa consultas como exemplo, mas o trabalho será feito com 5 consultas.

Dê uma procurada por "exportar txt" aqui no forum que tem alguns exemplos. Deve ter em algum deles um recordset declarando uma tabela ou consulta. Basta adicionar mais recordsets para contemplar outras tabelas ou consultas. Por exemplo, para uma Tabela:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("NomeDaTabela")
...
...
...
rs.Close
Set rs = Nothing

Para três tabelas:

Dim rs As Recordset, rs2 As Recordset, rs3 As Recordset
Set rs = CurrentDb.OpenRecordset("NomeDaTabela")
Set rs2 = CurrentDb.OpenRecordset("NomeDaTabela2")
Set rs3 = CurrentDb.OpenRecordset("NomeDaTabela3")...
...
...
...
rs.Close
Set rs = Nothing

rs2.Close
Set rs2 = Nothing

rs3.Close
Set rs3 = Nothing

criquio,

poderia me ajudar?

procurei no forum e não encontrei(sou novo por aqui)

Não consigo baixar arquivos também.

Veja a lista de tópicos na lista do link abaixo:

https://www.google.com/search?hl=pt&q=exportar+AND+txt+site%3Amaximoaccess.forumeiros.com&btnG=Pesquisar

OBS: Alterei o título do tópico de Importar... para Exportar...

criquio,

olha como ficou.

Private Sub Command0_Click()
Call Grava_Txt("D:\SGI\Arquivos\teste.txt")
End Sub


Public Sub Grava_Txt(ByVal Caminho As String)
Dim N As Integer
Dim rs As Recordset, rs2 As Recordset, rs3 As Recordset, rs4 As Recordset, rs5 As Recordset
N = FreeFile

Set rs = CurrentDb.OpenRecordset("01_inclusao")
Set rs = CurrentDb.OpenRecordset("02_desligamento")
Set rs = CurrentDb.OpenRecordset("03_afastamento")
Set rs = CurrentDb.OpenRecordset("04_ferias")
Set rs = CurrentDb.OpenRecordset("05_alteracao")

Open Caminho For Output As #N

Do While Not rs.EOF
Print #N, rs!Produto
rs.MoveNext
Loop
rs.Close
Set rs = Nothing

Do While Not rs2.EOF
Print #N, rs2!Produto
rs2.MoveNext
Loop
rs.Close
Set rs = Nothing

Do While Not rs3.EOF
Print #N, rs3!Produto
rs3.MoveNext
Loop
rs.Close
Set rs = Nothing

Do While Not rs4.EOF
Print #N, rs4!Produto
rs4.MoveNext
Loop
rs.Close
Set rs = Nothing

Do While Not rs5.EOF
Print #N, rs5!Produto
rs5.MoveNext
Loop
rs.Close
Set rs = Nothing

Close #N

End Sub



na hora de executar aparece item não encontrado.

Dê uma olhada nas 5 linhas Set. Faltou você colocar rs2, rs3...

caramba, que vergonha.

mesmo assim não funcionou.
quando shega no :

Do While Not rs.EOF
Print #N, rs!Produtoaqui continua aparecendo "Item não encontrado nesta coleção."
rs.MoveNext
Loop
rs.Close

Verifique se os nomes dos campos estão todos corretos.