[Resolvido]Importar registros do PDF para tabela.

Boa tarde,

Algum dos utilizadores conhece alguma forma de importar os registros de um arquivo PDF para tabela?

Obs.: Visualizar o mesmo em um formulário eu já consigo.

Abra o formulário no Adobe Acrobat ou o Reader que contém os dados a serem importados para o Access.


Clique em "Arquivo > Salvar como texto". Escolha um local para salvar o novo arquivo de texto onde você o encontre facilmente. Feche o formulário e o Adobe.


Abra o banco de dados Access que receberá as informações.


Importe o arquivo de texto. No Access 2007, clique na guia "Dados Externos". Clique em "Arquivo de texto", na seção "Importar". Navegue até o local do arquivo de texto, clique sobre ele e depois em "Importar". Em versões anteriores do Access, clique em "Arquivo > Obter dados externos > Importar". Selecione "Arquivo de Texto", na caixa "Tipo do arquivo". Navegue até o local do arquivo de texto salvo, clique nele uma vez e depois em em "Importar".


E neste fórum já teve uma dúvida semelhante, veja aqui.

Confesso que não consegui vislumbrar o que amigo sugeriu.

Grato,

Up.

Rapaz Nunca vi nada do tipo, mas talvez isso lhe ajuda... Importando registro com Delimitadores...

https://www.maximoaccess.com/t26893-extrair-texto-copiado-de-pagina-da-internet-e-inserir-valores-em-novos-registros

Esse topico que criei tem outra finalidade, mas o exemplo la mostra como é feito...

Basicamente eu copio o texto para uma CxTexto, e como o texto MANTEM UM PADRAO, eu delimito o Inicio e Fim, e importa os dados...

PDF é complicado cara... ja lhe adianto...

Olá a todos.
Um bom inicio para analise, seria postar um pdf com dados exemplificativos.
Abraço

Vejam este modelo de arquivo PDF e outro que converti como .txt

https://www.dropbox.com/s/j6ux7e53bjeoypu/PDF%20e%20TXT.rar?dl=0

Agradeço antecipadamente a atenção do amigos!

Olá, analisei brevemente.
Uma solução, será como o colega Fabio indicou na mensagem nº 5

Outra será leitura linha a linha, podemos controlar o salto de registo através da seguinte string:
98662
41913-3
POSTAL SAUDE - CAIXA DE ASSISTENCIA E SAUDE DOS EMPREGADOS
18.275.071/0001-62
18/03/2016


É o cabeçalho que repete a cada registo.
Fica a sugestão.

Abaixo link de uma situação identica:
https://www.maximoaccess.com/t26035-resolvidoimportar-arquivo-txt-com-30-linhas-por-registo
Abraço

Perfeito senhores,

Vou dar uma estudada em ambas as sugestões no decorrer da semana e retorno.

Grato,

Depois de ver seus exemplos de arquivo, recomendo o exemplo do txt 30 linhas... mas claro se for facil a conversao do arquivo....

Mas veja os dois, e use o que for mais pratico pra vc...

Vou optar pelo exemplo txt 30 llinhas, porque a conversão é bem prática pelo assistente do Adobe.

Olá, acho que vão no caminho certo.
Ficou um excelente tópico.
Terá que ajustar.
Qualquer coisa estamos aqui.
Abraço

Bom dia...

As vezes passo por isso também e alguns clientes que precisam importar listas de preços para atualizar o sistema.
Sempre recebem o arquivo com a extensão PDF para evitar alteração ou adulteração.
Como o que está no PDF não é o que está na tabela do Access(nome de campos), uma solução que eu achei para alguns clientes foi:

a- importar o arquivo PDF para o Excel através do software WonderShare PDF Converter.
b- criar uma planilha com os mesmos campos que estão na tabela do Access para receber essa conversão.
c- criar rotina de importação do Excel para o Access.

Bom, é essa minha experiência quando se trata de importar arquivos com a extensão em PDF.

Paz, saúde e bem a todos.

Olá Silvio, obrigado por mais esta sugestão.
Com o MaximoAccess é sempre aprender.
Aguardamos retorno do colega.
Abraço

Prezados,

Com as sugestões dos colegas, estive trabalhando no código durante a semana; eis o código que está importando o arquivo txt para a tabela que preciso.
https://www.dropbox.com/s/mvl7jll0tpt3ttk/ImportarTXT_OLD.rar?dl=0


Por enquanto ainda está importando somente os registros nas linhas especificadas no código em vermelho, porém preciso que importe os demais dados.

Alguma sugestão dos colegas em tratar salto de linhas do arquivo anexo.

Up.

Olá XPTO,
Com o código que segue:

Código:

Sub LerTXT_linha_a_linha()
'Alvaro Teixeira (ahteixeira) 2016 - para MaximoAccess
    'ficheiro
    Open Application.CurrentProject.Path & "\demonstrativoAnaliseContaMedica POSTAL SAUDE 110216.txt" _
    For Input As #1
    
    'inicio leitura do txt linha a linha
    Do Until EOF(1)
         linha = linha + 1
         Line Input #1, txtLinha
         Debug.Print "|" & Format(linha, "000") & "|" & txtLinha
    Loop

    'fechar ficheiro
    Close #1
End Sub

Fiz uma leitura do ficheiro TXT que disponibilizou, incluindo entre as barras o numero da linha.
Se a minha leitura está correcta, o primeiro registo vai da linha 1 à 14, na linha 15 é o registo seguinte, veja se está correcto:


Assim a sua leitura para importação será de 14 em 14.
Como já foi referido, o mais acertado será usar o exemplo de 30 em 30 e ajustar (mensagem n.º
Abraço

Prezado Alvaro, bom dia,

Consegui visualizar a leitura do ficheiro na janela de verificação imediata do access e seu parecer está correto, a leitura será de 14 em 14.

Entretanto, no momento que adaptei o vba abaixo somente aparece somente o primeiro, já o segundo em vermelho não mostra, veja no vba abaixo na leitura de cada campo eu dou um print na tela, só pra ver se puxa o dado correto:

|001|98662

|002|41913-3
POSTAL SAUDE - CAIXA DE ASSISTENCIA E SAUDE DOS EMPREGADOS
18.275.071/0001-62
18/03/2016

|003|32402414000133
HOSPITAL METROPOLITANO S/A
2547058

|004|42458402
520348
11/01/2016
6 - Pagamento efetuado

|005|51010143
1

|006|LENON CAMPOS AVELLAR MACHADO
0182804702000263

|007|6 - Pagamento efetuado

|008|11/11/2015
22
1.01.01.012
Consulta em consultório (no ho
70,00
1
70,00
70,00
0,00

|009|70,00
70,00
70,00
0,00

|010|47553383
2

|011|TICIANO ENDRIGO RANGEL
0182786968000267

|012|6 - Pagamento efetuado

|013|02/10/2015
22
1.01.01.012
Consulta em consultório (no ho
70,00
1
70,00
70,00
0,00

|014|70,00
70,00
70,00
0,00

|015|98662

|016|41913-3
POSTAL SAUDE - CAIXA DE ASSISTENCIA E SAUDE DOS EMPREGADOS
18.275.071/0001-62
18/03/2016

|017|32402414000133
HOSPITAL METROPOLITANO S/A
2547058

|018|42458402
520348
11/01/2016
6 - Pagamento efetuado

|019|51010143
1

|020|LENON CAMPOS AVELLAR MACHADO
0182804702000263

|021|6 - Pagamento efetuado

|022|11/11/2015
22
1.01.01.012
Consulta em consultório (no ho
70,00
1
70,00
70,00
0,00

|023|70,00
70,00
70,00
0,00

|024|47553383
2

|025|TICIANO ENDRIGO RANGEL
0182786968000267

|026|6 - Pagamento efetuado

|027|02/10/2015
22
1.01.01.012
Consulta em consultório (no ho
70,00
1
70,00
70,00
0,00

|028|70,00
70,00
70,00
0,00

Olá, no exemplo que postei fiz o "basico" para analise da informação.

Estude bem o código do tópico abaixo, em especial a mensagem nº 17:
https://www.maximoaccess.com/t26035-resolvidoimportar-arquivo-txt-com-30-linhas-por-registo
O "conceito" será o mesmo, apenas alterando de 30 para 14.

Quanto à sua ultima questão, faltava "zerar" o contador das linhas, veja (também adicionei contador de registos):

Código:

'Alvaro Teixeira (ahteixeira) 2016 - para MaximoAccess
Dim linha, nRegisto As Double
   'ficheiro
   Open Application.CurrentProject.Path & "\demonstrativoAnaliseContaMedica POSTAL SAUDE 110216.txt" _
   For Input As #1
  
    'inicia contador de registos a importar
    nRegisto = 1
    linha = 0
  
   'inicio leitura do txt linha a linha
   Do Until EOF(1)
        linha = linha + 1
        Line Input #1, txtLinha
        Debug.Print "|" & Format(linha, "000") & "|" & txtLinha
        
        If linha = 5 Then
          MsgBox Trim(Mid(txtLinha, 1, 10)) 'Guia
        
        ElseIf linha = 6 Then
          MsgBox Trim(Mid(txtLinha, 1, 30)) 'Paciente
          MsgBox Trim(Mid(txtLinha, 30, 20)) 'Matricula
          
        ElseIf linha = 8 Then
          MsgBox Trim(Mid(txtLinha, 1, 10)) 'Data Atendimento
          MsgBox Trim(Mid(txtLinha, 16, 12)) 'Codigo Servico
          MsgBox Trim(Mid(txtLinha, 28, 30)) 'Descricao do Servico
          MsgBox Trim(Mid(txtLinha, 67, 3)) 'Qtd Recebido
          MsgBox Trim(Mid(txtLinha, 79, 6)) 'Valor Recebido
        ElseIf linha = 14 Then 'ultima linha do registo
            'faz o que pretender
            '...
            'no fim actualiza contadores
            nRegisto = nRegisto + 1
            linha = 0
        End If
        
   Loop

   'fechar ficheiro
   Close #1


Abraço

Perfeito Alvaro,

Chegando em casa vou dar uma estudada e retorno.

Grato,

Amigos, veja se entendem!

No vba abaixo não sei aonde estou errando.

Uso o Debug.Print e os registros aparecem na janela de verificação imediata.
Mas na hora de importa não importam todos os registros.

Ex:Meu criterio é o cabeçalho do arquivo e a leitura para importação será de 14 em 14.
.
|001|98662

|002|41913-3
POSTAL SAUDE - CAIXA DE ASSISTENCIA E SAUDE DOS EMPREGADOS
18.275.071/0001-62
18/03/2016

Dentro detro do criterio de leitura tem o registro (LENON CAMPOS AVELLAR MACHADO) e (TICIANO ENDRIGO RANGEL), entretanto, só importa o primeiro.

Olá, fica dificil assim ajudar.
Será melhor postar a parte que tem e o ficheiro para se importar.
Abraço

Bom dia,

Segue ficheiro.

Na janela de verificação imediata do Access a linha 6 e a linha 11 são registros diferentes, mas o código importa somente um.

Olá, uma vez que tem o código acima, poste também base de dados com a tabela tblImportTXT
Abraço

Bom dia,

Segue link com ficheiro e base de testes.

https://www.dropbox.com/s/78s2p6fkjokvecu/Desktop.zip?dl=0

Grato,

Olá, testei aqui o seu exemplo e funfou.
Aparentemente tem dois registos iguais na origem, veja:

Importou duas linhas.
Abraço

Perfeito amigo,

Até ai funciona, mas veja na janela de verificaçã do Access da linha 10 até 14, tem outro registro do (TICIANO ENDRIGO RANGEL) e não importa.

|010|47553383
2

|011|TICIANO ENDRIGO RANGEL
0182786968000267

|012|6 - Pagamento efetuado

|013|02/10/2015
22
1.01.01.012
Consulta em consultório (no ho
70,00
1
70,00
70,00
0,00

|014|70,00
70,00
70,00
0,00

Olá, chegamos à conclusão que de 14 em 14 é um registo.
No exemplo tem dois registos.
Se pretende adicionar o nome (TICIANO ENDRIGO RANGEL) está em ambos os registos, não sei onde está a dúvida.
Pode incluir nos dois registos.
Deverá analisar bem a informação que é reportada no ficheiro TXT analisando vários exemplos.
Você já teve ajuda noutro caso de importação mais complexo e conseguiu, veja:
https://www.maximoaccess.com/t21668p50-resolvidoimportacao-xml-de-guias
Abraço

Olá,

Aí que está o problema, realmente a importação é de 14 em 14.
Mas nesse caso qual a dica para importar o Ticiano?

Olá Gomes, é fazer como faz nos restantes campos.
Agora, irá buscar nos restantes registos, a menos que tenha "um identificadosr" em que consiga identificar quando precisa.
Tem que analisar bem os ficheiros de importação.
Abraço

Olá,

Agradeço a ajuda dos amigos neste tópico; vou dar como Resolvido porque o arquivo *txt não tem um padrão único entre os campos.

Vou fazer a conversão do mesmo para *xls e depois proceder com a importação.

Grato,

Olá Gomes, obrigado pelo retorno.
Depois de comcluir a importação via Excel para o Access, se poder partilhar o tópico ficará mais enriquecido.
Os utilizadores do forum ficam agradecidos.
Abraço