Páginas

miércoles, 26 de febrero de 2014

VBA Excel: Como abrir todos los archivos de una carpeta y realizar un proceso. Funcion DIR()



Sub iterate()

Dim path As String
Dim filename As String

path = "D:\RubenBK\TEST\"
filename = Dir(path)  'Esta es la clave, la funcion Dir es la que scanea todos los archivos en el directorio.

           Do While filename <> ""
            Range("a2").End(xlDown).Offset(1, 0) = filename 'va creando una lista en la primera celda libre debako de "a2" y la va llevando con el nombre de los archivos.

            Range("a2").End(xlDown).Offset(0, 1) = FileDateTime(path & filename) 'va creando una lista con la fecha de modificacion de los archivos en el directorio
         
            filename = Dir  'no se exactamente que hace esto pero debe ir.

      Loop

End Sub

No hay comentarios:

Publicar un comentario