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]Importação TXT cabeçalho complexo

    avatar
    Alex07
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 19/05/2017

    [Resolvido]Importação TXT cabeçalho complexo Empty [Resolvido]Importação TXT cabeçalho complexo

    Mensagem  Alex07 23/4/2018, 12:15

    Bom dia Grupo,

    Essa é minha primeira postagem de dúvida, peço que se cometi alguma falha na publicação que me corrijam.

    Tenho alguns relatórios retirados de nosso sistema de folha de pagamento que saem em txt. O problema é que para importar direto para o access sem uma programação eu não consegui achar uma melhor maneira.

    Hoje eu trato eles no Excel pois tenho maior facilidade, gostaria de poder trata-los no Access.

    Do .txt preciso extrair as informações abaixo.

    Estabelecimento:
    Código Centro de Custo:
    Descrição Centro de Custo:
    Matrícula:
    Nome:
    Hrs Positivas:
    Hrs Negativas:
    Saldo:

    No Excel eu utilizo o código abaixo:

    Código:
    Public Sub alterar1()

    Dim i           As Long
    Dim ultimalinha As Long


    ultimalinha = Cells(Rows.Count, 3).End(xlUp).Row
    i = 5

       While i <= ultimalinha
       
       If Cells(i, 3).Value = "Estabelecimento:" Then
       Cells(i + 5, 1).Value = Cells(i, 4).Value
       
       Else
       
       Cells(i, 1).Value = Cells(i, 1).Value
           
       End If
       
       If Cells(i, 2).Value <> "" Then
       Cells(i + 1, 2).Value = Cells(i, 2).Value
       
       Else
       
       Cells(i, 2).Value = Cells(i, 2).Value
           
       End If
       
       If Cells(i, 1).Value = "" Then
       Cells(i, 1).Value = Cells(i - 1, 1).Value
       
       Else
       
       Cells(i, 1).Value = Cells(i, 1).Value
           
       End If
           
       
       i = i + 1
       
       Wend

    End Sub
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Importação TXT cabeçalho complexo Empty Re: [Resolvido]Importação TXT cabeçalho complexo

    Mensagem  FabioPaes 23/4/2018, 15:03

    Olá, sua dúvida foi respondida aqui:
    https://www.maximoaccess.com/t26035-resolvidoimportar-arquivo-txt-com-30-linhas-por-registo
    Nesse caso era 30 linhas, mas no seu caso será aproximadamente 8 Linhas... Adapte!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Alex07
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 19/05/2017

    [Resolvido]Importação TXT cabeçalho complexo Empty Re: [Resolvido]Importação TXT cabeçalho complexo

    Mensagem  Alex07 23/4/2018, 18:14

    Olá Fábio, obrigado pelo rápido retorno.

    Vou tentar adequar a minha necessidade e ao final lhe dou o retorno.
    avatar
    Alex07
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 19/05/2017

    [Resolvido]Importação TXT cabeçalho complexo Empty Re: [Resolvido]Importação TXT cabeçalho complexo

    Mensagem  Alex07 24/4/2018, 19:29

    Fábio, muito obrigado pelo auxilio.

    Ainda não terminei de adequar a minha necessidade, mas pelos testes vai dar certinho com o que preciso.

    Vlw mesmo!!
    avatar
    Alex07
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 19/05/2017

    [Resolvido]Importação TXT cabeçalho complexo Empty Re: [Resolvido]Importação TXT cabeçalho complexo

    Mensagem  Alex07 24/4/2018, 19:33

    Vlw!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Importação TXT cabeçalho complexo Empty Re: [Resolvido]Importação TXT cabeçalho complexo

    Mensagem  FabioPaes 26/4/2018, 13:23

    Grato pelo retorno amigo! Se possível, poste um pequeno exemplo somente com o básico... Nem precisa todos os campos! Assim o Tópico fica completo e o Fórum fica cada vez melhor!!! Até a próxima se Deus quiser!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Conteúdo patrocinado


    [Resolvido]Importação TXT cabeçalho complexo Empty Re: [Resolvido]Importação TXT cabeçalho complexo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 15:02