MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

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

    Compartilhe

    Alex07
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Alex07 em 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
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em 23/4/2018, 15:03

    Olá, sua dúvida foi respondida aqui:
    [Você precisa estar registrado e conectado para ver este link.]
    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!

    Alex07
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Alex07 em 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.

    Alex07
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Alex07 em 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!!

    Alex07
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Alex07 em 24/4/2018, 19:33

    Vlw!
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em 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!

      Data/hora atual: 21/11/2018, 02:19