[Resolvido]Importar campo EFD Contribuições

Olá, amigos...

Gostaria de importar um bloco específico do EFD Contribuições (TXT), trata-se do CAMPO 0200. Hoje, tenho que ficar filtrando todos esses registros para poder importar as linhas que contem esse campo em uma tabela.


Há alguma forma de fazer isso em VBA?

Exemplo do bloco 0200:

|0200|PP005|FRALDA HIG  MIMO DIAPER - G 12PCS|7908414421424||UN|00|96190000||||0,00|
|0200|PP004|FRALDA HIG  MIMO DIAPER - P 12PCS|7908414421431||UN|00|96190000||||0,00|
|0200|PP003|FRALDA HIG  MIMO DIAPER - M 12PCS|7908414421417||UN|00|96190000||||0,00|
|0200|PP002|FRALDA HIG  DIALER - G 12PCS|7908414421400||UN|00|96190000||||0,00|
|0200|PP001|FRALDA HIG  DIALER - PP 12PCS|7908414421394||UN|00|96190000||||0,00|

Lembrando que há vários outros registros acima e abaixo desse bloco.

Desde já agradeço a todos.

Bom dia Eneas,

sim, é possível importar esses dados via VBA.
Por gentileza, disponibilize seu bd, somente objetos (tabela/formulários/consultas/modulos e etc.) envolvidos no problema, para análise e soução do problema.

Att,

Alexandre Fim

Grande Alexandre...

Em anexo o que pediu e desde já meus agradecimentos.

Obrigado

Olá Eneas,

Faltou o anexo.

Opa desculpa, pensei que havia anexado.

Tá na mão, Brother...

Olá Eneas,

Se vc puder mandar o arquivo .txt também, seria melhor...

Att,

Alexandre Fim

Opa. Em anexo o TXT...

Olá Eneas,

O formulário ficou assim:




O sistema verifica o código "0200" e o registro é importado para a tabela, e os demais são ignorados.

Segue versão ajustada.

Att,

Alexandre Fim

Desculpa a intromição Alexandre,mas amanhã vou ai pegar umas aulas com vc heehehehe.

Obrigado Alexandre Fim...

Ficou melhor do que eu esperava...

Deus Abençoe!