Início
![[Resolvido]Importação TXT cabeçalho complexo Empty](https://2img.net/i/empty.gif)
Alex07 23/4/2018, 08:15Bom 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:
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
