Como crear un Excel con los nombres de las carpetas de un directorio.
Tengo un directorio que contiene carpetas y necesito crear una lista Excel que contenga todos los nombres de las carpetas (no de los ficheros, solo los nombres de las carpetas) del directorio especificado.
Aleida
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro.
En esta línea de la macro cambia "C:\trabajo\" por el nombre de tu Directorio:
Set carpeta = fso.getfolder("C:\trabajo\")
Los nombres quedarán en la columna A de la hoja activa.
Sub Listar_Subcarpetas()
Set fso = CreateObject("scripting.filesystemobject")
Set carpeta = fso.getfolder("C:\trabajo\")
Set subcarpetas = carpeta.subfolders
i = 2
Columns("A").ClearContents
For Each nombre In subcarpetas
Range("A" & i).Value = nombre
i = i + 1
Next
MsgBox "Fin"
End Sub