Contenido de un directorio de c:\ en hoja de cálculo
Admirado Experto,
Necesito que excel me diga el contenido de un directorio del disco c:
Por ejemplo: en la celda (A1) esta la cadena c:/directorio1/directorio11/
y en el rango B3:B25 me escribe los archivos que contiene el directorio c:/directorio1/directorio11/
Si he logrado explicarme correctamente, será muy fácil para ti.
Muchas gracias
JoanPau
1 respuesta
Te anexo la macro que hace lo que necesitas
Nota: la diagonal en las carpetas es esta \
Por ejemplo, tienes que poner en A1 así:
c:\directorio1\directorio11
Sigue las Instrucciones para un botón y ejecutar la macro
1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona Asignar macro / Selecciona: archivos_de_directorio
9. Aceptar.
10. Para ejecutarla dale click a la imagen.
Sub archivos_de_directorio()
'Por.DAM
ChDir (Range("A1"))
i = 2
Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row).ClearContents
archi = Dir("*.*")
Do While archi <> ""
Range("B" & i) = archi
i = i + 1
archi = Dir()
Loop
End Sub Saludos.DAM
Si es lo que necesitas.
