MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

3 participantes

    como juntar Arquivos .txt, retirar linhas de sobra e Executar consulta

    avatar
    igortrindade
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 15/09/2014

    como juntar Arquivos .txt, retirar linhas de sobra e Executar consulta Empty como juntar Arquivos .txt, retirar linhas de sobra e Executar consulta

    Mensagem  igortrindade 15/9/2014, 12:27

    Amigos, bom dia.

    sou novo no fórum, desejo aprender mais sobre Access e VBA.
    Tenho uma dúvida simples, mas como sou leigo, não sei como fazer.

    Situação:
    Todo mês chega pra mim um CD com diversos arquivos em txt. O que faço atualmente é passar todos esses arquivos para uma pasta, executar um bat na pasta que junte esses arquivos, depois abro o BD, importo o txt único para lá. Há linhas marcadas como "9" e "0" em uma determinada coluna. Só me interessam os marcados como "1", por isso abro a tabela, faço um filtro para retirar as linhas marcadas como "0" e "9" e depois executo as consultas que desejo.

    O que eu quero?
    Quero algo no access que unifique esses .txt diretamente do cd, já importando para o BD e retirando as linhas indesejadas. As consultas eu mesmo faço sem problema.

    É possível? Me facilitaria bastante o trabalho...

    Agradeço a oportunidade,

    Igor
    everton3x
    everton3x
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 29/01/2012

    como juntar Arquivos .txt, retirar linhas de sobra e Executar consulta Empty Re: como juntar Arquivos .txt, retirar linhas de sobra e Executar consulta

    Mensagem  everton3x 16/9/2014, 14:55

    Pra isso você não precisa usar VBA.

    Os txt você pode importar pro access e salvar a importação.

    Para unir todos os txt, você pode realizar uma consulta inclusão para cada um neles, onde a tabela que receberá os dados será a mesma para todas as consultas.

    O terceiro passo é fazer uma consulta exclusão com a tabela que recebe todos os txt.

    Por fim, você pode fazer tudo isso em um único passo através de uma macro.

    É claro que dá pra fazer em VBA, mas se você ainda é novo no assunto, sugiro começar pela minha sugestão (até porque você implementa rapidamente), e depois, com o tempo você aprimora.

    Se quiser partir direto para uma solução em VBA, podes consultar Exemplos de adição, exclusão e modificação de registros com VBA e Ler e importar arquivos txt com VBA.


    .................................................................................
    Everton da Rosa
    Win11 Pro x64 + Microsoft 365
    avatar
    igortrindade
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 15/09/2014

    como juntar Arquivos .txt, retirar linhas de sobra e Executar consulta Empty Entendi + ou -

    Mensagem  igortrindade 23/9/2014, 17:55

    entendi o processo, mas no começo eu teria que importar cada um dos txt para dentro do access individualmente?
    São uns 20 por mês, o nome varia a não ser pelo começo "TCOR.*".

    everton3x
    everton3x
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 29/01/2012

    como juntar Arquivos .txt, retirar linhas de sobra e Executar consulta Empty Re: como juntar Arquivos .txt, retirar linhas de sobra e Executar consulta

    Mensagem  everton3x 24/9/2014, 13:10

    Você pode ler o conteúdo do diretório onde estão o arquivos e fazer um loop com a importação. Eu estou desenvolvendo algo parecido (anexo).

    Dá uma olhada pra ver se te ajuda. Qualquer coisa entra em contato aqui pelo tópico mesmo.
    Anexos
    como juntar Arquivos .txt, retirar linhas de sobra e Executar consulta Attachmentpad_importer.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (96 Kb) Baixado 49 vez(es)


    .................................................................................
    Everton da Rosa
    Win11 Pro x64 + Microsoft 365
    avatar
    igortrindade
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 15/09/2014

    como juntar Arquivos .txt, retirar linhas de sobra e Executar consulta Empty obrigado

    Mensagem  igortrindade 1/10/2014, 15:20

    vou olhar e analisar com calma. Assim que tiver minhas dúvidas, posto aqui. Obrigado.
    avatar
    caparicio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 16
    Registrado : 04/12/2014

    como juntar Arquivos .txt, retirar linhas de sobra e Executar consulta Empty Re: como juntar Arquivos .txt, retirar linhas de sobra e Executar consulta

    Mensagem  caparicio 20/9/2015, 22:18

    Caro Everton,

    antes de mais obrigado por disponibilizar o PAD_IMPORTER.
    Já fiz vários teste com ele mas não estou a conseguir que, em vez de importar arquivos com nome específico, importe todos os arquivos .txt do directório independentemente do nome.
    Será possível adaptá-lo para essa função?
    Como poderei fazê-lo?
    Consegue dar alguma sugestão?

    Grato desde já
    Caparício
    everton3x
    everton3x
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 29/01/2012

    como juntar Arquivos .txt, retirar linhas de sobra e Executar consulta Empty Re: como juntar Arquivos .txt, retirar linhas de sobra e Executar consulta

    Mensagem  everton3x 21/9/2015, 18:45

    Olá Caparício,

    Neste link tem um anexo que adaptei algumas funções que irão lhe orientar mais facilmente.

    Tentei anexar neste post, mas deu limite excedido de espaço para armazenamento.


    .................................................................................
    Everton da Rosa
    Win11 Pro x64 + Microsoft 365
    avatar
    caparicio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 16
    Registrado : 04/12/2014

    como juntar Arquivos .txt, retirar linhas de sobra e Executar consulta Empty Re: como juntar Arquivos .txt, retirar linhas de sobra e Executar consulta

    Mensagem  caparicio 21/9/2015, 20:46

    Caro Everton,

    desde já agradeço.

    Vou testar e darei feedback.

    Um abraço
    CAparício
    avatar
    caparicio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 16
    Registrado : 04/12/2014

    como juntar Arquivos .txt, retirar linhas de sobra e Executar consulta Empty Re: como juntar Arquivos .txt, retirar linhas de sobra e Executar consulta

    Mensagem  caparicio 21/9/2015, 21:07

    Everton,

    não estou a conseguir definir a tabela de destino dos dados importados.

    Consegue ajudar?

    Obrigado.
    Abraço
    everton3x
    everton3x
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 29/01/2012

    como juntar Arquivos .txt, retirar linhas de sobra e Executar consulta Empty Re: como juntar Arquivos .txt, retirar linhas de sobra e Executar consulta

    Mensagem  everton3x 22/9/2015, 11:57

    Você não está conseguindo salvar os dados na tabela? Consulte estes exemplos

    Se não for isso, seja mais específico e poste o seu banco de dados pra gente dar uma olhada.


    .................................................................................
    Everton da Rosa
    Win11 Pro x64 + Microsoft 365

      Data/hora atual: 25/1/2022, 17:52