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

    [Resolvido]Exportar TXT com dados na mesma linha

    avatar
    ARIPO
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 112
    Registrado : 09/02/2010

    [Resolvido]Exportar TXT com dados na mesma linha Empty [Resolvido]Exportar TXT com dados na mesma linha

    Mensagem  ARIPO 13/4/2021, 22:36

    Amigos, boa noite!

    Preciso de ajuda e gostaria de saber se alguém poderia me ajudar, assisti alguns tutoriais e acabei chegando
    a este modelo de BD para exportar o arquivo .txt a onde do primeiro arquivo para o segundo tem 20 espaços
    e do segundo para o tercerio 50 espaços, o problema e que o mesmo exporta os dados que seria para uma
    linha em duas tipo assim:

    013301202100000000030955201001                    APONTADOR
                                                                                                                                               01041
    013301202100000000031727601001                    OPERADOR DE ROLO COMPACTADOR
                                                                                                                            01041
    013401202100000000001789101001                    OPERADOR DE ROLO COMPACTADOR
                                                                                                                            01041
    013501202100000000002040701001                    APONTADOR
                                                                                                                                               01021

    o que preciso e que estes dados fiquem cada um em sua linha, tipo assim:


    013301202100000000031727601001                    OPERADOR DE ROLO COMPACTADOR                                                  01041
    013401202100000000001789101001                    OPERADOR DE ROLO COMPACTADOR                                                  01041

    se algum puder me ajudar agradeço
    Anexos
    [Resolvido]Exportar TXT com dados na mesma linha AttachmentModelo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (129 Kb) Baixado 2 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportar TXT com dados na mesma linha Empty Re: [Resolvido]Exportar TXT com dados na mesma linha

    Mensagem  ahteixeira 14/4/2021, 09:39

    Olá Fabio,

    Não vi o seu projeto, mas veja este tópico:
    https://www.maximoaccess.com/t22789-resolvidoexportar-tabela-para-txt-com-tamanho-especifico

    Abraço
    avatar
    ARIPO
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 112
    Registrado : 09/02/2010

    [Resolvido]Exportar TXT com dados na mesma linha Empty Re: [Resolvido]Exportar TXT com dados na mesma linha

    Mensagem  ARIPO 14/4/2021, 19:19

    Boa tarde ahteixeira

    Peguei o modelo que você me indicou mas ainda assim ele continua jogando os dados
    para a segunda linha, se você e alguém puder me ajudar eu agradeço.
    Anexos
    [Resolvido]Exportar TXT com dados na mesma linha AttachmentModelo rv.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (125 Kb) Baixado 5 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportar TXT com dados na mesma linha Empty Re: [Resolvido]Exportar TXT com dados na mesma linha

    Mensagem  Alexandre Fim 14/4/2021, 21:16

    Fábio,

    Provavelmente, os dados da tabela foram copiados ou importados de outra origem.
    Na 2a. coluna da tabela (Campo2), continha um caracter  "|^", provavelmente o resultado da tecla Enter.
    Copiei os dados da tabela e colei no Word, e realizei os seguintes procedimentos, do site do Tomaz Vazques:

    - Selecione toda a área da planilha que contém as células com os dados a serem limpos e Copie (Ctrl+C)
    - Cole em um documento do Word vazio (Ctrl+V) (os dados devem ir em formato de tabela)
    - Ative a tela de Localizar/Substituir (Ctrl+U), clique em Mais de logo depois em Especial. Na lista que aparecer, selecione o item “Quebra manual de linha”. Na caixa de localizar deve aparecer o caractere “^l”
    - Deixe a caixa Substituir por em branco
    - Clique em Substituir tudo
    Com isso, as quebras de linha devem ter sido removidas de dentro das células. Selecione a tabela do Word, Copie e Cole novamente na tabela Access.

    O resultado foi esse:
    [Resolvido]Exportar TXT com dados na mesma linha Dados11


    Se ocorrer novamente o erro, é só executar os procedimento mencionados.
    Não é o melhor jeito, mas funciona !!!!

    Boa sorte

    []'s

    FIM
    Anexos
    [Resolvido]Exportar TXT com dados na mesma linha AttachmentModelo_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (94 Kb) Baixado 8 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.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportar TXT com dados na mesma linha Empty Re: [Resolvido]Exportar TXT com dados na mesma linha

    Mensagem  ahteixeira 16/4/2021, 11:17

    Olá a todos,

    Alexandre, obrigado pelo partilha dessa tecnica.

    Fábio, não sei se compreendi bem a questão, mas se não quer a quebra de linha, na base de dados que partilhou altere a função por esta e teste.
    Código:
    Function ExportMOB()
    '----novo codigo
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim oFile As Object
    Set oFile = fso.CreateTextFile(Application.CurrentProject.Path & "\Import_MOBfso.txt")
    '----fim novo codigo

    Dim rst As Recordset, varRecCount As Integer, varCount As Integer
    Dim varArq As String
    'Dim DB As Database
    Dim db As DAO.Database

    Set db = CurrentDb()
    Set rst = db.OpenRecordset("tbl_export_mob", dbOpenTable) 'se for tabelas
    'Set rst = DB.OpenRecordset("Cst_CadAn") 'se for consultas
    rst.MoveLast
    varRecCount = rst.RecordCount
    rst.MoveFirst

    varArq = Application.CurrentProject.Path & "\Import_MOB.txt"
    'Tenta abrir o arquivo em caso de erro GerenErro
    Open varArq For Output As #1


    For varCount = 1 To varRecCount

    Print #1, TamanhoA(rst!Campo1, 20) & TamanhoD(rst!Campo2, 35) & TamanhoF(rst!Campo3, 6)
    'Print #1, TamanhoD(rst!Campo1, 30) & "" & TamanhoD(rst!Campo2, 35) & "" & TamanhoD(rst!Campo3, 6)

    '----novo codigo
    oFile.Write TamanhoA(rst!Campo1, 20) & TamanhoD(rst!Campo2, 35) & TamanhoF(rst!Campo3, 6)
    '----fim novo codigo



    rst.MoveNext

    Next varCount
    Close #1
    rst.Close
    Set db = Nothing
    '----novo codigo
    oFile.Close
    Set fso = Nothing
    Set oFile = Nothing
    '----fim novo codigo
    MsgBox "Arquivo TXT foi criado em: " & varArq, vbInformation, "Atenção"


    End Function

    Vai criar dois ficheiros, verifique o "Import_MOBfso.txt"

    Abraço a todos
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportar TXT com dados na mesma linha Empty Re: [Resolvido]Exportar TXT com dados na mesma linha

    Mensagem  ahteixeira 20/4/2021, 11:31

    Olá a todos,

    Fábio Fonseca, como ficou a situação?
    Os membros do fórum merecem e agradecem o retorno.

    Abraço
    avatar
    ARIPO
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 112
    Registrado : 09/02/2010

    [Resolvido]Exportar TXT com dados na mesma linha Empty Re: [Resolvido]Exportar TXT com dados na mesma linha

    Mensagem  ARIPO 21/4/2021, 21:11

    Boa tarde

    Desculpe pela demora em responder, verifique meu projeto e descobri que ao fazer uma copia de uma tabela através do
    método (DoCmd.CopyObject) a mesmas acrescentava os espaços nos campos texto, e isso afetava diretamente ao criar
    o arquivo .txt, o Alexandre Fim ja havia me mostrado que poderia ser isso.

    Alterei a forma de cria a mesma e o arquivo ficou perfeito.

    Gostaria de agradecer ao ahteixeira e ao Alexandre Fim, muito obrigado pela ajuda
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportar TXT com dados na mesma linha Empty Re: [Resolvido]Exportar TXT com dados na mesma linha

    Mensagem  ahteixeira 22/4/2021, 09:28

    Ola a todos

    Fabio, obrigado pelo retorno o forum agradece.

    Abraco

      Data/hora atual: 13/6/2021, 00:28