[Resolvido]Exportação de Consulta com Nome do Arquivo Personalizado

Bom dia,
gostaria de saber se tem como eu exportar uma consulta (através de uma macro para um arquivo .txt) com um nome personalizado ou sempre será o nome da consulta?
Outra dúvida relacionada, se tem como o nome do arquivo ser referenciado à um nome de um campo de um formulário.

Ex: Eu quero exportar um arquivo que contem a quantidade de semáforos instalados em uma determinada cidade, então, no formulário eu escolho a cidade, ele realizada a busca filtrando pelo campo do formulário e exporta. Gostaria que o nome do arquivo fosse o nome da cidade, como por exemplo ITAPACI.txt. Seria possível?

Boas Gilberto veja:

Gilberto veja:

Dim NomeArquivoTxt As String
NomeArquivoTxt = Me!SeuCampo & ".txt"
DoCmd.OutputTo acOutputQuery, "NomeDaSuaConsulta", acFormatTXT, NomeArquivoTxt

Assim sempre será salvo na pasta "Meus documentos" ou "Documentos".

Bom dia Leandro, não percebi que estavas a responder

Cumprimentos.

Nem eu que você respondia também!!
Ainda bem que aqui nesse fórum sempre sobra vontade!!!  

Deu tudo certo com seu exemplo LEANDRO, muito obrigado mesmo.
Porém eu gostaria de escolher o local aonde salvar, não tem como?

Gilberto, o local para salvar será sempre diferente?
Com essa linha: 'DoCmd.OutputTo acOutputQuery, "NomeDaSuaConsulta", acFormatTXT', você tem a opção de escolher o local para salvar porém tem que escrever o nome do arquivo.
Acho que o Piloto deve ter uma carta na manga para essa solução.

Ah muito obrigado, é que sempre será diferente...

Resolveste Amigão?


Cumprimentos.

Ainda nao consegui resolver nao...  

Hum...Deixe-me ver... 




Minha MicrosoftCristalBall  está com defeito hoje..
Se não nos falar qual dificuldade fica difícil descobrir.

    

Cumprimentos.

dá uma olhada nisso, talvez resolva

'exporta tabela para xls
DoCmd.OutputTo acTable, "META_BRASIL", "MicrosoftExcelBiff8(*.xls)", "C:\temp_\META_BRASIL.xls", False, "", 0

'exporta consulta para xls
DoCmd.OutputTo acQuery, "Export_teste", "MicrosoftExcelBiff8(*.xls)", "C:\temp_\Export_teste.xls", False, "", 0

'exporta consulta para txt
DoCmd.TransferText acExportDelim, "especificacao", "Export_base", "C:\temp_\Export_base.txt", False, "", 0

Como anda este tópico colega?

Cumprimentos.