{"id":16206,"date":"2021-07-23T20:10:41","date_gmt":"2021-07-24T01:10:41","guid":{"rendered":"https:\/\/www.perucontable.com\/excelcontable\/?p=16206"},"modified":"2023-11-14T22:07:29","modified_gmt":"2023-11-15T03:07:29","slug":"listar-archivos-de-carpetas-y-subcarpetas-con-macro-vba","status":"publish","type":"post","link":"https:\/\/www.perucontable.com\/excelcontable\/listar-archivos-de-carpetas-y-subcarpetas-con-macro-vba\/","title":{"rendered":"LISTAR ARCHIVOS DE CARPETAS Y SUBCARPETAS CON MACRO VBA"},"content":{"rendered":"
\n
\"\"<\/figure><\/div>\n\n\n

Es bastante frecuenta tener que listar los archivos y subcarptetas de un directorio, tambi\u00e9n es com\u00fan listar archivos en un combobox; con el objeto de ser usado en una macro, este ejemplo precisamente hace eso Lista los archivos y subcarpetas<\/strong> de Windows, presionando el bot\u00f3n que se encuentra en el ejemplo, que se puede descargar desde el link del final, se corre una macro que lo que hace es listar todas las carpetas y subcarpetas <\/strong>que se encuentran en el directorio seleccionado, en este caso el listado se copia en una hoja de Excel, no obstante tambi\u00e9n se podr\u00eda agregar la lista de archivos y subcarptetas a un combobox.<\/p>\n\n\n\n

ARCHIVOS DE CARPETA Y SUBCARPETAS<\/strong><\/h2>\n\n\n\n

Como ejemplo utilizaremos una estructura de archivos como la siguiente:<\/p>\n\n\n

\n
\"\"<\/figure><\/div>\n\n\n

Se ha colocado la carpeta principal directamente en la unidad C: de mi equipo de manera que la ruta para dicha carpeta ser\u00e1 C:\\Carpeta.<\/p>\n\n\n\n

La carpeta principal contiene 5 archivos y 2 subcarpetas. Cada una de las subcarpetas contiene 5 archivos a la vez por lo que en total tenemos 15 archivos entre la carpeta principal y las  subcarpetas. Nuestro objetivo ser\u00e1 crear una macro para listar todos los archivos tanto de la carpeta principal como de sus subcarpetas.<\/p>\n\n\n\n

EL OBJETO FILESYSTEMOBJECT<\/strong><\/h2>\n\n\n\n

El objeto FilsSystemObject<\/em> es de gran utilidad para tener acceso al sistema de archivos de cualquier equipo. Este objeto nos permite manipular archivos, carpetas, sus rutas de acceso e inclusive podemos obtener informaci\u00f3n del sistema de archivos. Para crear este tipo de objeto en VBA utilizamos la siguiente instrucci\u00f3n:<\/p>\n\n\n\n

Set fs = CreateObject(\"Scripting.FileSystemObject\")<\/code><\/p>\n\n\n\n

Con esta instrucci\u00f3n habremos creado un objeto FileSystemObject<\/em> el cual podremos acceder a  trav\u00e9s de la variable fs. A lo largo del c\u00f3digo de nuestra macro utilizar\u00e9 algunos m\u00e9todos del objeto FileSystemObject<\/em> y para cada uno dar\u00e9 una breve explicaci\u00f3n que te permita comprender su funcionamiento.<\/p>\n\n\n\n

MACRO PARA LISTAR ARCHIVOS DE CARPETAS Y SUBCARPETAS<\/strong><\/h2>\n\n\n\n

A continuaci\u00f3n se encuentra el c\u00f3digo de la macro que crea un listado de los archivos contenidos en la carpeta y subcarpetas.<\/p>\n\n\n

\n
\"\"<\/figure><\/div>\n\n\n

En la secci\u00f3n 1 de c\u00f3digo observar\u00e1s la declaraci\u00f3n de las variables utilizadas en la macro as\u00ed como la creaci\u00f3n del objeto FilsSystemObject<\/em> y su asignaci\u00f3n a la variable fs. La secci\u00f3n 2 analiza el par\u00e1metro ruta<\/em> de la subrutina para saber si dicha cadena de texto est\u00e1 vac\u00eda y en tal caso salir del procedimiento. De lo contrario se revisa que dicha ruta<\/em> termine con una diagonal invertida y de no ser as\u00ed se hace una concatenaci\u00f3n de dicho car\u00e1cter.<\/p>\n\n\n\n

El objetivo del c\u00f3digo de la secci\u00f3n 3 es el de crear un objeto de tipo Folder<\/em> que nos permita analizar el contenido de la carpeta. Esto se logra utilizando el m\u00e9todo GetFolder<\/em> del objeto FileSystemObject<\/em> y el resultado es guardado en la variable carpeta<\/em>. Es con el uso del m\u00e9todo GetFolder<\/em> que podemos obtener un error en VBA en caso de que la ruta indicada sea inv\u00e1lida por lo que he agregado la instrucci\u00f3n On Error GoTo<\/em> para que en caso de obtener un error, la macro ejecute el c\u00f3digo de la etiqueta ErrHandler<\/em> que se encuentra al final del c\u00f3digo y que imprimir\u00e1 el mensaje \u201cRuta inexistente\u201d.<\/p>\n\n\n\n

En la secci\u00f3n 4 utilizamos la instrucci\u00f3n For Each<\/em> para recorrer todos los archivos devueltos por el m\u00e9todo Files<\/em> y que est\u00e1n contenidos en la carpeta principal. Para cada archivo encontrado se concatena su ruta y su nombre y se asigna al valor de la celda activa. Posteriormente activamos la celda inferior a la celda activa de manera que la selecci\u00f3n quede lista para el siguiente archivo.<\/p>\n\n\n\n

La secci\u00f3n 5 obtiene las subcarpetas con el m\u00e9todo SubFolders<\/em> y para cada una de ellas se vuelve a ejecutar la macro Mostrar_Archivos<\/em> lo cual ocasionar\u00e1 que se repita todo el proceso hasta imprimir todos los archivos contenidos en cada una de ellas.<\/p>\n\n\n\n

Finalmente la secci\u00f3n 6 se encarga de auto ajustar el ancho de la columna de la celda activa de manera que se puedan visualizar correctamente todos los nombres de archivos. Finalmente se ejecuta la instrucci\u00f3n Exit Sub<\/em> para salir del procedimiento.<\/p>\n\n\n\n

EJECUTANDO LA MACRO<\/strong><\/h2>\n\n\n\n

Para probar esta macro se agrego un bot\u00f3n ActiveX a la hoja y colocar\u00e9 el siguiente c\u00f3digo en su evento Click:<\/p>\n\n\n

\n
\"Listar<\/figure><\/div>\n\n\n

Utilizamos la funci\u00f3n InputBox<\/em> para permitir al usuario que ingrese la ruta de la carpeta de la cual se desean mostrar los archivos.<\/p>\n\n\n\n

Para iniciar la prueba debo seleccionar la celda donde deseo que se listen los archivos ya que la macro comenzar\u00e1 a insertar los nombres a partir de la celda activa. Posteriormente hago clic en el bot\u00f3n y se mostrar\u00e1 el cuadro de di\u00e1logo solicitando la ruta de la carpeta.<\/p>\n\n\n

\n
\"\"<\/figure><\/div>\n\n\n

Ingreso la ruta de la carpeta que contiene los archivos y al hacer clic en el bot\u00f3n Aceptar se ejecutar\u00e1 la macro y obtendremos el siguiente resultado.<\/p>\n\n\n

\n
\"Listar<\/figure><\/div>\n\n\n

Si se compara el contenido de las celdas de la columna A con los archivos mostrados en la imagen al inicio de este blog podr\u00e1s comprobar que se han listado todos los archivos de la carpeta principal y de sus subcarpetas.<\/p>\n\n\n\n

Art\u00edculo que te recomendamos leer:<\/strong>
IMPRIMIR P\u00c1GINAS PARES O IMPARES EN EXCEL<\/a><\/strong><\/p>\n\n\n\n

\u00bfQu\u00e9 te pareci\u00f3 nuestra blog? Com\u00e9ntanos.<\/strong><\/p>\n","protected":false},"excerpt":{"rendered":"

Es bastante frecuenta tener que listar los archivos y subcarptetas de un directorio, tambi\u00e9n es com\u00fan listar archivos en un combobox; con el objeto de ser usado en una macro, este ejemplo precisamente hace eso Lista los archivos y subcarpetas de Windows, presionando el bot\u00f3n que se encuentra en el ejemplo, que se puede descargar desde el link […]<\/p>\n","protected":false},"author":2,"featured_media":16219,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[108,67,25],"tags":[],"yst_prominent_words":[329,414],"_links":{"self":[{"href":"https:\/\/www.perucontable.com\/excelcontable\/wp-json\/wp\/v2\/posts\/16206"}],"collection":[{"href":"https:\/\/www.perucontable.com\/excelcontable\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.perucontable.com\/excelcontable\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.perucontable.com\/excelcontable\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.perucontable.com\/excelcontable\/wp-json\/wp\/v2\/comments?post=16206"}],"version-history":[{"count":6,"href":"https:\/\/www.perucontable.com\/excelcontable\/wp-json\/wp\/v2\/posts\/16206\/revisions"}],"predecessor-version":[{"id":16834,"href":"https:\/\/www.perucontable.com\/excelcontable\/wp-json\/wp\/v2\/posts\/16206\/revisions\/16834"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.perucontable.com\/excelcontable\/wp-json\/wp\/v2\/media\/16219"}],"wp:attachment":[{"href":"https:\/\/www.perucontable.com\/excelcontable\/wp-json\/wp\/v2\/media?parent=16206"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.perucontable.com\/excelcontable\/wp-json\/wp\/v2\/categories?post=16206"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.perucontable.com\/excelcontable\/wp-json\/wp\/v2\/tags?post=16206"},{"taxonomy":"yst_prominent_words","embeddable":true,"href":"https:\/\/www.perucontable.com\/excelcontable\/wp-json\/wp\/v2\/yst_prominent_words?post=16206"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}