Exportação Txt Personalizada

Prezados, boa tarde!

Pesquisei no fórum mas não consegui encontrar nada que me atendesse na plenitude. Até peço desculpas se algo neste teor já tenha sido abordado e eu não localizei.

Tenho uma tabela ("Tbl01") onde tenho registros de vendas, sendo a estrutura conforme exemplo abaixo:

Nome_Vendedor | Produto | Qtde
Vendedor 1...........P01.........01
Vendedor 2...........P01.........05
Vendedor 3...........P02.........05
Vendedor 1...........P01.........03
Vendedor 2...........P03.........01
Vendedor 3...........P03.........01
Vendedor 1...........P02.........02
Vendedor 2...........P02.........01
Vendedor 3...........P01.........02

Preciso salvar arquivos .txt separando por vendedor. Ou seja, conforme este exemplo acima, seriam gerados 3 arquivos txt com os dados de cada vendedor separados (vendedor1.txt, vendedor2.txt e vendedor3.txt).

O que dificulta o processo (pra mim ) é que nem sempre serão os mesmos vendedores e a mesma quantidade de vendedores. Pode ser que num outro momento apareça uma tabela com 4 vendedores sendo todos diferentes desses do modelo acima. Ou seja, a quantidade de arquivos .txt gerados vai variar conforme a quantidade de vendedores diferentes que tiver na tabela.

Eu comecei a fazer seguindo o seguinte raciocínio:

Criei uma consulta ("Consulta01") agrupando o nome dos vendedores (resultando em uma tabela secundária com 3 linhas) e rascunhei o seguinte código:

Código:


Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim contagem As Integer

Set db = CurrentDb()
Set rs = db.OpenRecordset("Consulta01")
contagem = rs.RecordCount


Mas travei aqui. Acredito que seja através de DoCmd.TransferText, mas não estou conseguindo continuar o processo para gerar os "n" arquivos diferentes necessários.

Alguém consegue me ajudar, por favor?

Muito obrigado desde já.

Olá, poste a base de dados com o que já tem.
Assim fica mais fácil para ajudar.

Numa primeira analise será simples:
1) Faz uma consulta agrupar por "Nome_Vendedor" (assim obtem o numero de ficheiros e nome que tem que gerar).
2) Abre o recordset, para correr registo a registo
3) Cria consulta exportar como pretendido, usando o filtro "Nome_Vendedor" do recordset actual.

Fica a dica.
Abraço

Boa tarde!

Desculpe a demora em responder.

Fui envolvido em outro projeto na empresa e precisei parar com este.

Mas assim que possível, vou testar a sua dica e retorno com a resposta.

Muito obrigado!

Abs.,

DC

Olá Douglas, obrigado pelo retorno.
Fica a dica, qualquer coisa estamos por aqui.
Abraço