MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Gerar arquivo em TXT

    avatar
    souzadenilson
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 02/05/2012

    [Resolvido]Gerar arquivo em TXT Empty [Resolvido]Gerar arquivo em TXT

    Mensagem  souzadenilson em 30/8/2020, 07:39

    Boa noite.
    Utilizei a macro do access para exportar uma consulta e gerar um arquivo no formato txt, porém  as macros que encontrei incluindo esta do access não permite que o arquivo fique separado com ;
    A exportação sai neste formato do arquivo em anexo
    Anexos
    [Resolvido]Gerar arquivo em TXT AttachmentDizimo_Area.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1 Kb) Baixado 7 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6957
    Registrado : 15/03/2013

    [Resolvido]Gerar arquivo em TXT Empty Re: [Resolvido]Gerar arquivo em TXT

    Mensagem  ahteixeira em 1/9/2020, 14:03

    Olá Denilson,

    Não falta exemplos no forum, veja como fazer uma "Busca":
    https://www.maximoaccess.com/t1115-busca-no-forum-search

    Apenas a título de exemplo do que referi:
    https://www.maximoaccess.com/t29598-resolvidoexportar-txt-separado-por-tabulacoes
    https://www.maximoaccess.com/t21821p9-resolvidoexportar-para-ficheiro-txt-delimitado-por-pipe

    Se procurar com as palavras "exportar" e "txt" vai aparecer mais.

    Abraço
    avatar
    souzadenilson
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 02/05/2012

    [Resolvido]Gerar arquivo em TXT Empty Re: [Resolvido]Gerar arquivo em TXT

    Mensagem  souzadenilson em 2/9/2020, 01:18

    Boa noite,
    Segui as orientações porém não está exportando o cabeçalho e o arquivo txt não está saindo a mesma ordem em que se encontra na consulta
    Irei continuar tentando outras formas, pois estou tentando jogar este arquivo para dentro do excel para realizar outras analises.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6957
    Registrado : 15/03/2013

    [Resolvido]Gerar arquivo em TXT Empty Re: [Resolvido]Gerar arquivo em TXT

    Mensagem  ahteixeira em 2/9/2020, 09:33

    Olá Denilson,

    Também existe no fórum para enviar diretamente para excel, efetue uma pesquisa.

    Tem este por exemplo em que ajudei um colega:
    https://www.maximoaccess.com/t19615-resolvidoatualizacao-automatica-na-importacao-access-excel

    Abraço
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    Registrado : 13/12/2016

    [Resolvido]Gerar arquivo em TXT Empty Re: [Resolvido]Gerar arquivo em TXT

    Mensagem  Alexandre Fim em 2/9/2020, 13:20

    Bom dia Denilson,

    Poste aqui seu banco de dados (somente partes envolvidas) para análise e solução.
    Particularmente, não utilizo as exportações/importações do Access, e acredito que a exportação para .txt com separador ";" tem que ser feita no VBA.

    Att


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    Registrado : 13/12/2016

    [Resolvido]Gerar arquivo em TXT Empty Re: [Resolvido]Gerar arquivo em TXT

    Mensagem  Alexandre Fim em 2/9/2020, 15:30

    Denilson,

    Fiz um pequeno exemplo que exporta dados de uma consulta Referência Cruzada em .txt com separador ";"

    Tabela:
    [Resolvido]Gerar arquivo em TXT Tab_da10

    Consulta Referencia Cruzada:
    [Resolvido]Gerar arquivo em TXT Tab_da11

    Arquivo Dados.txt:
    [Resolvido]Gerar arquivo em TXT Tab_da12

    Arquivo importado para o Excel usando separador ";"
    [Resolvido]Gerar arquivo em TXT Tab_da13

    No código-fonte, selecione o menu Ferramentas>>Referências, e selecione a referência abaixo:
    [Resolvido]Gerar arquivo em TXT Tab_da14

    É isso !!!

    Segue exemplo

    Espero ter ajduado

    Boa sorte.
    Anexos
    [Resolvido]Gerar arquivo em TXT AttachmentExportaTXT.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (29 Kb) Baixado 5 vez(es)


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

    Carvalho e alexssandro gostam desta mensagem

    avatar
    souzadenilson
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 02/05/2012

    [Resolvido]Gerar arquivo em TXT Empty Re: [Resolvido]Gerar arquivo em TXT

    Mensagem  souzadenilson em 3/9/2020, 02:21

    Boa noite.
    Realizei o teste, porem não foi como esperado.
    A melhor opção que encontrei em um tópico neste forum, foi exportar como csv, que neste caso eu consigo que o arquivo fique no mesmo formato em que apresenta a consulta, mas o que deparei foi com que tentei utilizar a consulta e não funcionou, e tentei adaptar para quando exportar digite o nome desejado para salvar o arquivo, onde posteriormente consiga em planilha do excel importar o arquivo para realizar um outro tipo de análise
    Obs.: Neste caso quando ocorrer a mudança de ano, não tenha a necessidade de entrar no programa e alterar dentro do código fonte o nome que deseja salvar.
    Anexos
    [Resolvido]Gerar arquivo em TXT AttachmentArquivo_Teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (52 Kb) Baixado 4 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    Registrado : 13/12/2016

    [Resolvido]Gerar arquivo em TXT Empty Re: [Resolvido]Gerar arquivo em TXT

    Mensagem  Alexandre Fim em 3/9/2020, 15:00

    Denilson,

    Você seguiu as recomendações na minha ultima postagem?
    Como mencionei, é apenas um exemplo e pode ser melhorado e adaptado com base nas sua tabela/consulta.
    No código-fonte, o caminho do arquivo está "chumbado", mas vc pode criar um campo no form onde vc informa o caminho desejado e referenciar o campo no código onde está o caminho do arquivo.

    Boa sorte



    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    avatar
    souzadenilson
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 02/05/2012

    [Resolvido]Gerar arquivo em TXT Empty Re: [Resolvido]Gerar arquivo em TXT

    Mensagem  souzadenilson em 7/9/2020, 04:41

    Boa noite.
    Topico resolvido. Obrigado pela atenção

      Data/hora atual: 1/12/2020, 17:46