alnadur

parmijo respondió: Alnadur te adjunto una macro para que la pruebes: Sub Listar() Dim i As Long Dim MiRuta As String Dim MiNombre As String i = 1 MiRuta = "Y:\TEMPO\BACKUP\*.xls" 'cambia la ruta de tua archivos MiNombre = Dir(MiRuta, 0) Do While MiNombre <> "" If...