Boa tarde
Caros,
Estou conseguindo encontrar o arquivo na pasta que quero, porém só consegui até ai...rs, pois gostaria de também acrescentar ao lado a data de modificação, podem me ajudar por favor!!!
Sub loopArquivos()
Dim Arquivo
Caminho = Range("C3")
Arquivo = Dir("C:\*.txt")
L = 6
Do While Arquivo <> ""
Cells(L, 3) = Arquivo
Arquivo = Dir
L = L + 1
Loop
End Sub
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Listar data de modificação TXT
-
- Colaborador
- Mensagens: 98
- Registrado em: Qui Nov 01, 2012 2:37 pm
Re: Listar data de modificação TXT
DJVSWD, boa tarde!
Não sei se entendi, mas...
Copie e cole o código abaixo do que você já tem na sua planilha!
Considerando que os dados apareceram na Coluna "A", na coluna "B" aparecerá data e hora.
Se não for assim, tente postar seu exemplo aqui para ficar mais fácil lhe ajudar!
Att,
Não sei se entendi, mas...
Copie e cole o código abaixo do que você já tem na sua planilha!
Código: Selecionar todos
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Cells(Target.Row, 1).Value <> "" Then
Cells(Target.Row, 2).Value = Str(Now)
End If
End Sub
Se não for assim, tente postar seu exemplo aqui para ficar mais fácil lhe ajudar!
Att,
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Listar data de modificação TXT
Creio que seja assim:
Código: Selecionar todos
Sub loopArquivos()
Dim Arquivo
Caminho = Range("C3")
l = 2
Arquivo = Dir("C:\*.txt")
'ou
'Arquivo = Dir(Caminho & "*.srt")
Do While Arquivo <> ""
Cells(l, 1) = Arquivo
Cells(l, 2) = FileDateTime("C:\" & Arquivo)
'ou
'Cells(l, 2) = FileDateTime(Caminho & Arquivo)
Arquivo = Dir
l = l + 1
Loop
End Sub