jueves, 22 de abril de 2010

Como hacer una lista de los archivos de una carpeta o del disco

1.-Abre un excel
2.-Habilita las macros.
(Menu >Opciones de Excel>Mostrar ficha de programador)
3.- Copia la siguiente macro

Sub ficheros_y_subdirectorios_del_directorio()
'Si hay errores, que continúe
On Error Resume Next
'Ocultamos el procedimiento
Application.ScreenUpdating = False
'Creamos el objeto FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
'Informamos de la ruta de donde vamos a obtener
'los ficheros, en este caso, el mismo directorio
'donde tengamos grabado este fichero con el macro

ruta = ActiveWorkbook.Path
'definimos dos variables que necesitaremos,
'para recuperar el nombre de la carpeta, y
'los subdirectorios y ficheros que haya dentro

Set directorio = fso.GetFolder(ruta)
Set subdirectorios = directorio.subfolders
Set ficheros = directorio.Files
'escribimos un encabezado en la celda D6
Range("D6").Select
ActiveCell = "Subdirectorios del directorio:"
'lo ponemos en negrita y subrayado
ActiveCell.Font.Bold = True
ActiveCell.Font.Underline = xlUnderlineStyleSingle
'escribimos los subdirectorios
ActiveCell.Offset(1, 0).Select
For Each subdirectorio In subdirectorios
'escribimos el nombre del subdirectorio
ActiveCell = subdirectorio.Name
'bajamos una fila
ActiveCell.Offset(1, 0).Select
Next
'a continuación escribimos los ficheros
'pero antes, escribiremos el encabezado

ActiveCell = "Ficheros del directorio:"
'lo ponemos en negrita y subrayado
ActiveCell.Font.Bold = True
ActiveCell.Font.Underline = xlUnderlineStyleSingle
'pasamos a la siguiente fila
ActiveCell.Offset(1, 0).Select
For Each archivo In ficheros
'escribimos el nombre del fichero
ActiveCell = archivo.Name
'bajamos una fila
ActiveCell.Offset(1, 0).Select
Next
'Limpiamos los objetos
Set fso = Nothing
Set directorio = Nothing
Set subdirectorios = Nothing
Set ficheros = Nothing
'Mostramos el procedimiento
Application.ScreenUpdating = True
End Sub

3.-Guarda el excel en la carpeta que deseas listar.
4.-Corre la macro.


Fuente:
http://hojas-de-calculo-en-excel.blogspot.com/2008/11/listar-los-archivos-de-un-directorio.html

1 comentarios:

Anónimo dijo...

No estaría de más que pusieses un enlace a la fuente original: http://hojas-de-calculo-en-excel.blogspot.com/2008/11/listar-los-archivos-de-un-directorio.html

Publicar un comentario en la entrada