Notifications
Clear all

Extrair dados de varias pasta

7 Posts
2 Usuários
0 Reactions
1,410 Visualizações
(@badchico)
Posts: 35
Eminent Member
Topic starter
 

Ola senhores(a)

Preciso de uma ajuda, não sei se trato esta solução via VBA ou formula.
Todo dia é gerado um arquivo TXT dentro de uma pasta, exemplo:

c:ExtraidosArq00001420150126211520150126.txt
c:ExtraidosArq00001420150127191520150127.txt
c:ExtraidosArq00001420150129210020150129.txt

Observe que na pasta muda o diretório devido a disponibilização do arquivo.
Preciso extrair o conteudo do arquivo TXT, que nele apenas tem 1 linha.

No excel exibiria, a data referida e o conteúdo do arquivo:

20150126 000785
20150127 000547
20150129 000142

isso é possível? :geek:

 
Postado : 05/02/2016 7:16 am
(@jokerpot)
Posts: 132
Estimable Member
 

Bom Dia!

Até da pra fazer, porem seguem algumas questões:

1 - Todos os arquivos são sempre disponibilizados na mesma pasta ou cada arquivo terá uma pasta diferente?
2 - Os arquivos sempre terão o mesmo nome, a não se pela data de disponibilização?

3 - Coloque o arquivo txt de exemplo que seja o mais fiel possível do original utilizado.
4 - Coloque o resultado final desejado.

 
Postado : 05/02/2016 8:28 am
(@badchico)
Posts: 35
Eminent Member
Topic starter
 

]Obrigado pelo rapido retorno JokerPot

1- as pastas mudam, conforme destacado, é o horario que foi disponibilizado:
c:ExtraidosArq00001420150126211520150126.txt
c:ExtraidosArq00001420150127191520150127.txt
c:ExtraidosArq00001420150129210020150129.txt

2- sim, sempre o mesmo nome, porem muda pela data do dia anterior (d-1), só dias uteis

3- Anexo o arquivo exemplo (20150129.txt)

4- resultado:

 
Postado : 05/02/2016 10:55 am
(@jokerpot)
Posts: 132
Estimable Member
 

badchico

Fiz uma macro que até faz o desejado, porem temos um problema.

Você terá que colocar o endereço de cada pasta no campo "caminho".
Fiz a macro para até 4 arquivos txt.

Instrução de uso:

1 - Nos campos caminho, copie e cole os "endereços" nas pastas e no final SEMPRE coloque uma "barra invertida"
2 - Os nomes dos arquivos são as datas

Veja se isso ajuda + ou -.

 
Postado : 05/02/2016 1:33 pm
(@badchico)
Posts: 35
Eminent Member
Topic starter
 

Otimo JokerPot,

Mais é possivel manter o historico na aba TESTE do que ele ja importou ?
pois terei que fazer todos os dias

 
Postado : 05/02/2016 1:54 pm
(@jokerpot)
Posts: 132
Estimable Member
 

Otimo JokerPot,

Mais é possivel manter o historico na aba TESTE do que ele ja importou ?
pois terei que fazer todos os dias

Boa tarde badchico.

Sim é possivel, porem note que se voce fizer isso 2 vezes com os mesmos arquivos as informações ficarão duplicadas, entretanto se isso nao for um problema faça o seguinte.

Entre no codigo e localize essa parte:

x_ROWS = "2:" & ULTIMA_LINHA
Rows(x_ROWS).Select
Selection.Delete Shift:=xlUp

Voce pode sinmplesmente apagar, ou na frente do codigo colocar unma aspa ( ' ) para que essa parte se torne apenas um comentario.

 
Postado : 06/02/2016 10:59 am
(@badchico)
Posts: 35
Eminent Member
Topic starter
 

Boa JokerPot

muio obrigado pela ajuda.

vlw

 
Postado : 10/02/2016 10:18 am