Importar linhas de um arquivo .txt
Enviado: Qui Jan 02, 2020 9:04 pm
Boa noite.
Estou procurando algum material em que ajudasse a desenvolver a seguinte macro.
Tenho o arquivo txt abaixo e quero importar para uma planilha. A macro para importação que desenvolvi coloca o texto inteiro na célula A1.
O que estou querendo é importar apenas as linhas destacadas em amarelo (essas linhas sempre começa com uma data).
É possível importar linhas com algum critério? Por exemplo: a macro verifica que a linha começa com 20/12 então ela importa para planilha ou a macro verifica que o primeiro caractere do texto txt esta em branco e não importa essa linha.
A necessidade desta macro é pq preciso colocar um filtro na primeira linha e como na importação vem muitas linhas em branco quando uso o filtro ele não pega todos os dados.
Não sei se fui claro pq estou começando no VBA faz pouco tempo.
24/12/2019 PZ ARQ: 30D ---------------------------------------------------------------------- L PAG- 0001
11.18.21 ----------------------------------------------------------------------------------------EIS --------291 - ---
------------------------------------------------------------------------------------------------------------
UNdqdwddwdwqqwwwdwqqwdwdwdqqddwqdqdwqPA --------------------------------------: 24/12/2019
------------------------------------------------------------------------------------------------------------------------------------
0 BCO DT.TROCA CPO yyyy yyyyy-DV yyyyyy D V V A L O R MD PVAC PVDP yyyy yyyy M E N S A G E M DT.LIBER DT.ACOL
001 20/12/2019 000 0000 0000000000 00000 5-4-4 000,00 0 0000 000 0000000000000 xxxxxxx 24/12/2019 20/12/2019
20/12/2019 000 0000 0000000000 00000 5-4-4 000,00 0 0000 000 0000000000000 xxxxxxx 24/12/2019 20/12/2019
20/12/2019 000 0000 0000000000 00000 5-4-4 000,00 0 0000 000 0000000000000 xxxxxxx 24/12/2019 20/12/2019
20/12/2019 000 0000 0000000000 00000 5-4-4 000,00 0 0000 000 0000000000000 xxxxxxx 24/12/2019 20/12/2019
------------------------------------------------------------------------------------------------------------------------------------
Uxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Dxxxxxxxxx: 1. xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxx
124/12/2019 PZ ARQ: 30D x PAG- 0002
Estou procurando algum material em que ajudasse a desenvolver a seguinte macro.
Tenho o arquivo txt abaixo e quero importar para uma planilha. A macro para importação que desenvolvi coloca o texto inteiro na célula A1.
O que estou querendo é importar apenas as linhas destacadas em amarelo (essas linhas sempre começa com uma data).
É possível importar linhas com algum critério? Por exemplo: a macro verifica que a linha começa com 20/12 então ela importa para planilha ou a macro verifica que o primeiro caractere do texto txt esta em branco e não importa essa linha.
A necessidade desta macro é pq preciso colocar um filtro na primeira linha e como na importação vem muitas linhas em branco quando uso o filtro ele não pega todos os dados.
Não sei se fui claro pq estou começando no VBA faz pouco tempo.
24/12/2019 PZ ARQ: 30D ---------------------------------------------------------------------- L PAG- 0001
11.18.21 ----------------------------------------------------------------------------------------EIS --------291 - ---
------------------------------------------------------------------------------------------------------------
UNdqdwddwdwqqwwwdwqqwdwdwdqqddwqdqdwqPA --------------------------------------: 24/12/2019
------------------------------------------------------------------------------------------------------------------------------------
0 BCO DT.TROCA CPO yyyy yyyyy-DV yyyyyy D V V A L O R MD PVAC PVDP yyyy yyyy M E N S A G E M DT.LIBER DT.ACOL
001 20/12/2019 000 0000 0000000000 00000 5-4-4 000,00 0 0000 000 0000000000000 xxxxxxx 24/12/2019 20/12/2019
20/12/2019 000 0000 0000000000 00000 5-4-4 000,00 0 0000 000 0000000000000 xxxxxxx 24/12/2019 20/12/2019
20/12/2019 000 0000 0000000000 00000 5-4-4 000,00 0 0000 000 0000000000000 xxxxxxx 24/12/2019 20/12/2019
20/12/2019 000 0000 0000000000 00000 5-4-4 000,00 0 0000 000 0000000000000 xxxxxxx 24/12/2019 20/12/2019
------------------------------------------------------------------------------------------------------------------------------------
Uxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Dxxxxxxxxx: 1. xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxx
124/12/2019 PZ ARQ: 30D x PAG- 0002