Notifications
Clear all

Varrer pasta arquivo texto

4 Posts
2 Usuários
0 Reactions
1,037 Visualizações
(@jokerpot)
Posts: 0
New Member
Topic starter
 

Senhores Bom Dia!

Gostaria da ajuda de vcs.
Tenho uma planilha que gostaria de deixar automatizada em que tenho que abrir alguns arquivos texto e buscar o valor de uma linha chamada Total Geral.
Uma pessoa fazia este trabalho, entretanto era muito demorado pois tudo era manual. Ja consegui resolver algumas partes com formulas e buscar os dados do arquivo texto atraves da atualização de dados de texto que existe no excel, entretanto mesmo assim ainda é trabalhoso pois tenho que atualizar os arquivos um por um.
Agora gostaria que uma Macro varra uma pasta que contem esses arquivos textos que sao salvos como "dd.mm.aaa.txt" e buscasse esses valores de cada dia para inserir essesa dados na planilha.
Em anexo esta um exemplo do que necessito e alguns arquivos texto para teste. Se faltou mais detalhes por favor me avisem.
Obrigado por enquanto.

 
Postado : 19/08/2014 8:15 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Consegue adaptar o código postado em?
http://usuariosdoexcel.forumeiros.com/t ... quivos-txt

Att

 
Postado : 19/08/2014 12:57 pm
(@jokerpot)
Posts: 0
New Member
Topic starter
 

Boa tarde!!

Consegue adaptar o código postado em?
http://usuariosdoexcel.forumeiros.com/t ... quivos-txt

Att

Caro Alexandrevba, obrigado pela ajuda.
Cara, eu realmente nao conheço absolutamente "quase nada" dos codigos, mas te juro que vou tentar e qualquer coisa eu dou um grito aqui.
Abraços

 
Postado : 19/08/2014 1:52 pm
(@jokerpot)
Posts: 0
New Member
Topic starter
 

alexandrevba boa noite!

Tentei entender todo o codigo proposto, porem nao consegui avançar.
Até fiz as alteraçoes que vc menciona como a origem dos arquivos e o nome da "aba", porem ele retorna erro do box de Arquivo nao Encontrado.
Tambem nao sei como fazer e onde inserir as informaçoes da formatação (texto para colunas) do arquivo texto para que a macro busque somente o valor do TOTAL GERAL. No teste que mandei, eu formato o texto para que o excel sempre busque a data que estiver na linha T3 (no excel..
Fiz uma gravação da formataçao e gerou o codigo abaixo:

Workbooks.OpenText Filename:= _
"C:UsersrodrigopDesktopNova pasta2.07.2014.txt", Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(4, _
1), Array(16, 1), Array(30, 1), Array(44, 1), Array(61, 1), Array(80, 1), Array(99, 1), _
Array(105, 1), Array(116, 1)), TrailingMinusNumbers:=True

 
Postado : 19/08/2014 6:13 pm