Hola buenas tardes:

Tengo una hoja en excel donde listo el nombre de las carpetas que están dentro de una carpeta raíz,por medio de una macro, este me es funcional ya que en ella tambien me lista "subcarpetas" y otras carpeta por columnas.

es funcional para conocer las carpetas que existen dentro de esa ruta.

Pero por mis labores debo estar revisando diferentes documentos en cada una de estas carpetas y regresar.(dentro del explorador de windows).

Esta misma macro seria muy útil que directamente desde esta lista poder abrir cada carpeta o subcarpeta, ya sea con un link  en cada carpeta y subcarpeta.

Espero me puedan ayudar con esta parte, muchas gracias.

 

Mariano

Extraer nombre de carpetas y subcarpetas - copia.xlsm

Tu archivo esta vacio

hace 24 minutos , JSDJSD dijo:

Tu archivo esta vacio

Una disculpa, envío el archivo con los datos ejemplo

Extraer nombre de carpetas y subcarpetas1.xlsm

Será esto lo que necesitas ?

Option Explicit

Dim FileSystemObject As Object

Sub ListOfFoldersAndFiles()
    Dim LookInTheFolder As String
    Dim searchfolders As Object
    Dim i As Long
    
    ' Limpiar contenido de la hoja
    Hoja1.Cells.Clear
    
    ' Escribir títulos en negrita
    With Hoja1.Range("B1:D1")
        .Value = Array("Subcarpetas", "Archivos", "Hipervínculos")
        .Font.Bold = True
    End With

    i = 2
    LookInTheFolder = "C:\Users\JSD\Desktop\fotosvehiculos" ' Modifica según la ruta
    Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
    Set searchfolders = FileSystemObject.GetFolder(LookInTheFolder)
    
    ListWithin searchfolders, i
    Hoja1.Columns("B:D").AutoFit
End Sub

Sub ListWithin(folder As Object, ByRef i As Long)
    Dim subfolder As Object
    Dim file As Object
    
    ' Listar subcarpetas
    For Each subfolder In folder.SubFolders
        Cells(i, 2) = subfolder.Path
        i = i + 1
        ListWithin subfolder, i
    Next subfolder
    
    ' Listar archivos en la carpeta actual
    For Each file In folder.Files
        Cells(i, 3) = file.Path
        Cells(i, 4).Formula = "=HYPERLINK(""" & file.Path & """)"
        i = i + 1
    Next file
End Sub

 

Extraer nombre de carpetas y subcarpetas1.xlsm

Ahora mismo, JSDJSD dijo:

Será esto lo que necesitas ?

Hola JSDJSD

Muchas gracias por tu atención, lo que necesito es de una carpeta raiz extraer solo los nombres de las carpetas y subcarpetas que tenga. como tal en la macro de mi archivo.

Lo que necesitaría es poder acceder a esas carpetas o subcarpetas con un link y me lleve a la carpeta o subcarpeta

Y trabajar directamente desde la hoja de excel.

Los archivos no me importan

Gracias

 

Mañana te lo miro

hace 27 minutos , JSDJSD dijo:

Mañana te lo miro

Muchas gracias!

Si no entendí mal esto es lo que necesitas verdad ?

El archivo

Extraer nombre de carpetas y subcarpetas1.xlsm

hace 2 horas, JSDJSD dijo:

El archivo

Extraer nombre de carpetas y subcarpetas1.xlsm 27.79 kB · 1 descarga

Hola JSDJSD:

Muchísimas gracias por atender mi necesidad, si lo que busco.

Pero debido a que las rutas de mis carpetas y subcarpetas son largas necesitaba que solo me mostrara el nombre de la carpeta, No como tal la ruta. Ya que  por la amplitud de ruta en mi hoja tendria que revisar cada uno.

Lo de la apertura al seleccionarlo esta perfecto.

Este es un ejemplo de como me sale:

C:\Users\Mariano\CarpetaGoo\Mariano Cruz\DRPRO DISTRITO\9. SunnyGrand\Dossier BiPAP\2. Información Tecnologia y Cientifica\150. Clinical studies\Annex 1 Literature Search Protocol and Report -SOTA Por eso la idea de mostrar solo nombre de carpeta. Trate de cambiar: subfolder.Path por subfolder.Name. y si me muestra el nombre. Pero ya no abre las carpetas. Muchas gracias Mariano

A ver si ahora triunfamos ¡¡

Sería esto lo que necesitas ?

hace 2 horas, JSDJSD dijo:

Sería esto lo que necesitas ?

Hola buenas tardes!

 

Muchas gracias, justo lo que necesito.

Si es la funcion que necesito.

Gracias por tu atención y ayuda!

Mariano

Pues entonces, prueba y comenta

Extraer nombre de carpetas y subcarpetas1.xlsm