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
Suscribirse a:
Enviar comentarios (Atom)
No hay comentarios:
Publicar un comentario