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

2 participantes

    [Resolvido]Exportar em TXT Uma única coluna de uma tabela

    cy_rangel
    cy_rangel
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 67
    Registrado : 18/01/2018

    [Resolvido]Exportar em TXT Uma única coluna de uma tabela Empty [Resolvido]Exportar em TXT Uma única coluna de uma tabela

    Mensagem  cy_rangel 24/8/2021, 20:54

    Olá pessoal,

    Preciso da ajudinha.

    Tenho uma tabela com várias colunas e gostaria de exportar apenas 1 dessas coluna no formato ".TXT" e sem o cabeçalho.

    Essa coluna já está configurada de acordo com o layout do programa que irei importar. Preciso apenas dessa dica, de como fazer.

    Dei uma olhada no fórum e achei apenas coisas semelhantes, nada específico.

    Poderiam me ajudar, por favor?


    Desde já agradeço Rolling Eyes
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportar em TXT Uma única coluna de uma tabela Empty Re: [Resolvido]Exportar em TXT Uma única coluna de uma tabela

    Mensagem  Alexandre Fim 24/8/2021, 21:11

    Olá Cinthia,

    Por gentileza, disponibilize uma cópia do seu bd (somente objetos envolvidos) para análise e solução.

    Veja como postar arquivos no link:
    https://www.maximoaccess.com/t32003-como-postar-anexos-e-imagens-no-site-maximoaccess-com


    []'s

    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Exportar em TXT Uma única coluna de uma tabela Setinf11
    Sistemas e Tecnologia Ltda
    cy_rangel
    cy_rangel
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 67
    Registrado : 18/01/2018

    [Resolvido]Exportar em TXT Uma única coluna de uma tabela Empty Re: [Resolvido]Exportar em TXT Uma única coluna de uma tabela

    Mensagem  cy_rangel 24/8/2021, 22:20

    Olá Alexandre,

    Obrigada pela ajuda.

    Segue anexo o arquivo em access. A coluna que eu quero extrair, chama-se "txt".

    Se for mais fácil, eu também posso criar uma QRY de Make Table e adicionar apenas essa coluna, então através de um botão em um formulário, acionar a vba que irá gerar o txt da nova tabela. O que for mais fácil. O único detalhe é não perder a formatação da coluna e não ter cabeçalho.
    Anexos
    [Resolvido]Exportar em TXT Uma única coluna de uma tabela AttachmentGerar TXT.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (20 Kb) Baixado 4 vez(es)


    Última edição por cy_rangel em 24/8/2021, 22:27, editado 1 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportar em TXT Uma única coluna de uma tabela Empty Re: [Resolvido]Exportar em TXT Uma única coluna de uma tabela

    Mensagem  Alexandre Fim 24/8/2021, 22:22

    Oi cinthia,

    Não veio o anexo.

    Verifique, por favor

    []'s


    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Exportar em TXT Uma única coluna de uma tabela Setinf11
    Sistemas e Tecnologia Ltda
    cy_rangel
    cy_rangel
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 67
    Registrado : 18/01/2018

    [Resolvido]Exportar em TXT Uma única coluna de uma tabela Empty Re: [Resolvido]Exportar em TXT Uma única coluna de uma tabela

    Mensagem  cy_rangel 24/8/2021, 22:30

    Você foi mais rápido do que eu, estava anexando quando você mandou a informação seguinte, rs...

    Deixei o anexo na resposta anterior.


    Obrigada!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportar em TXT Uma única coluna de uma tabela Empty Re: [Resolvido]Exportar em TXT Uma única coluna de uma tabela

    Mensagem  Alexandre Fim 24/8/2021, 22:33

    Rsssss......ok...sem problemas...
    Vou analisar o teu projeto e definir uma solução.
    Até+

    []'s

    Fim




    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Exportar em TXT Uma única coluna de uma tabela Setinf11
    Sistemas e Tecnologia Ltda
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportar em TXT Uma única coluna de uma tabela Empty Re: [Resolvido]Exportar em TXT Uma única coluna de uma tabela

    Mensagem  Alexandre Fim 24/8/2021, 23:46

    Olá Cinthia,

    Criei uma tela para selecionar o diretorio onde será gerado o arquivo:

    [Resolvido]Exportar em TXT Uma única coluna de uma tabela Export11

    Após selecionar o diretório, clique em "Exportar TXT", e o sistema gerará o arquivo no diretório informado, com a seguinte nomenclatura:
    - Export_AAAAMMDDHHMMSS.txt

    Ex.: Export_20210824194012.txt

    Ao abrir o código, no menu "Ferramentas>>Referencias.." marque os seguintes itens:

    [Resolvido]Exportar em TXT Uma única coluna de uma tabela Refere13

    É isso.

    Espero ter ajudado

    Boa sorte

    []'s

    FIM
    Anexos
    [Resolvido]Exportar em TXT Uma única coluna de uma tabela AttachmentGerarTXT_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (49 Kb) Baixado 9 vez(es)


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Exportar em TXT Uma única coluna de uma tabela Setinf11
    Sistemas e Tecnologia Ltda

    cy_rangel gosta desta mensagem

    cy_rangel
    cy_rangel
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 67
    Registrado : 18/01/2018

    [Resolvido]Exportar em TXT Uma única coluna de uma tabela Empty Re: [Resolvido]Exportar em TXT Uma única coluna de uma tabela

    Mensagem  cy_rangel 25/8/2021, 01:03

    Oi Alexandre, sensacional!

    Muito muito obrigada...


    Sobre ir em "Ferramentas>Referências", acho que não veio a informação no seu texto, então deixo abaixo os objetos que precisão ser selecionados, caso mais alguém precise desse código:

    "Microsoft Scripting Runtime" e o "Microsoft Office 16.0 Object Library"


    Última edição por cy_rangel em 25/8/2021, 13:42, editado 2 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportar em TXT Uma única coluna de uma tabela Empty Re: [Resolvido]Exportar em TXT Uma única coluna de uma tabela

    Mensagem  Alexandre Fim 25/8/2021, 01:14

    Olá Cinthia,

    Segue imagem sobre as referência que devem estar assinaldadas:

    [Resolvido]Exportar em TXT Uma única coluna de uma tabela Refere14


    Em seguida, realize a Compilação:
    [Resolvido]Exportar em TXT Uma única coluna de uma tabela Compil10


    A compilação verifica se o projeto não possui erros e ausência de referencias e e tc.
    Se não aparecer nenhuma mensage, o projeto está OK.

    É isso.

    Boa sorte


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Exportar em TXT Uma única coluna de uma tabela Setinf11
    Sistemas e Tecnologia Ltda
    cy_rangel
    cy_rangel
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 67
    Registrado : 18/01/2018

    [Resolvido]Exportar em TXT Uma única coluna de uma tabela Empty Re: [Resolvido]Exportar em TXT Uma única coluna de uma tabela

    Mensagem  cy_rangel 25/8/2021, 13:44

    Top, valeu mesmo Alexandre...

    Só tenho uma última pergunta... As vezes o txt gera uma linha em branco logo no início e outra no final, tem como corrigir isso?


    Muito obrigada, novamente!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportar em TXT Uma única coluna de uma tabela Empty Re: [Resolvido]Exportar em TXT Uma única coluna de uma tabela

    Mensagem  Alexandre Fim 25/8/2021, 14:51

    Olá Cinthia,

    Pelo que analisei, o texto do campo TXT da tabela deve ter sido um COPY+COLA e com isso gravou também alguns caracteres (espaços e backspace), e o que pode ter ocasionado a inclusão dessas linhas em branco.
    Este campo TXT é uma concatenação dos campos da tabela e, ao invés de exportar este campo, seria melhor montar o arquivos através dos outros campos.

    Por gentileza, me mande o layout do arquivo para que eu monte a saida do .txt.

    É isso

    No aguardo

    []'s

    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Exportar em TXT Uma única coluna de uma tabela Setinf11
    Sistemas e Tecnologia Ltda
    cy_rangel
    cy_rangel
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 67
    Registrado : 18/01/2018

    [Resolvido]Exportar em TXT Uma única coluna de uma tabela Empty Re: [Resolvido]Exportar em TXT Uma única coluna de uma tabela

    Mensagem  cy_rangel 25/8/2021, 21:09

    Oi Alexandre,

    É exatamente isso, existe uma tabela anterior onde os dados são adicionados na TBL_9_5, após a inclusão, tem uma QRY de atualização (9_5_3) que irá concatenar os campos que eu preciso e atualizar a informação na coluna "TXT".

    Eu adicionei a QRY_9_5_03 que faz essa atualização, está no arquivo em anexo a seguir.


    Desde já agradeço.
    Anexos
    [Resolvido]Exportar em TXT Uma única coluna de uma tabela AttachmentGerar TXT_3.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (44 Kb) Baixado 3 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportar em TXT Uma única coluna de uma tabela Empty Re: [Resolvido]Exportar em TXT Uma única coluna de uma tabela

    Mensagem  Alexandre Fim 25/8/2021, 21:26

    Olá Cinthia,

    Na rotina abaixo, remova a linha em vermelho, e o arquivo será exportado corretamente.

    Public Sub ExportaTXT()
    On Error GoTo trata_erro

    Dim db          As DAO.Database
    Dim rs          As DAO.Recordset
    Dim sSQL        As String
    Dim sDados      As String
    Dim sArq        As String

       Set db = CurrentDb

       sSQL = "SELECT TXT from TBL_9_5_DOM_TXT"
       Set rs = db.OpenRecordset(sSQL)
       
       sArq = txtdir.Value & "\Export_" & Format(Now, "yyyymmddhhmmss") & ".txt"
       
       Open sArq For Output As #1

       Print #1, sDados
       Do While Not rs.EOF
           sDados = rs("TXT")
           Print #1, sDados
           rs.MoveNext
       Loop

       MsgBox "Arquivo " & sArq & " gerado com sucesso.", vbInformation, "Mensagem"
       
       rs.Close
       Set rs = Nothing
       
       Close #1
       
       Exit Sub
    trata_erro:
       MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
       Exit Sub


    End Sub


    É isso!!!
    Espero ter ajudado

    Boa sorte.

    []'s

    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Exportar em TXT Uma única coluna de uma tabela Setinf11
    Sistemas e Tecnologia Ltda

    cy_rangel gosta desta mensagem

    cy_rangel
    cy_rangel
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 67
    Registrado : 18/01/2018

    [Resolvido]Exportar em TXT Uma única coluna de uma tabela Empty Re: [Resolvido]Exportar em TXT Uma única coluna de uma tabela

    Mensagem  cy_rangel 25/8/2021, 22:14

    Oi Alexandre,

    Perfeito! Muito obrigada novamente....

    Sensacional, muito obrigada... PARABÉNS \o/

      Data/hora atual: 1/10/2022, 16:02