Saltar al contenido

Recommended Posts

publicado

Hola buenos días.

Con la siguiente macro listo de una carpeta raíz y los archivos con su ruta que se encuentran dentro de subcarpetas  y en otra columna el nombre del archivo.

Debido a que mis rutas son largas me gustaría poder agregar a mi lista el nombre de las 2 carpetas donde se encuentra cada archivo listado.

ejemplo: \DIRECT\1. carpetaUSB\Letters\ Letter - Comparative Reports.docx

debería extraer =1. carpetaUSB\Letters\

Son las 2 ultimas carpetas de la ubicación de mi archivo.

Para así conocer la carpeta en la que se encuentra, sin perderme en la ruta completa del archivo.

Muchas gracias

Mariano

 

P extraer nombre de carpeta.xlsm

publicado (editado)

Te dejo esta UDF que hace lo que quieres.

Function ExtraerCarpetas(Ruta As String) As String
Carpetas = Split(Ruta, "\")
ExtraerCarpetas = Carpetas(UBound(Carpetas) - 2) & "\" & Carpetas(UBound(Carpetas) - 1) & "\"
End Function

Revisa las fórmulas de la columna D.

 

P extraer nombre de carpeta.xlsm

Editado el por Antoni

Conéctate para comentar

Podrás dejar un comentario después de conectarte



Conéctate ahora
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.