poner link en nombre de carpetas y subcarpetas

MarianoCruz · el 6 de mayo

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

JSDJSD · el 6 de mayo

Tu archivo esta vacio

MarianoCruz · el 6 de mayo

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

JSDJSD · el 6 de mayo

Será esto lo que necesitas ?

JSDJSD · el 6 de mayo

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

MarianoCruz · el 6 de mayo

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

JSDJSD · el 6 de mayo

Mañana te lo miro

MarianoCruz · el 6 de mayo

hace 27 minutos , JSDJSD dijo:

Mañana te lo miro

Muchas gracias!

JSDJSD · el 7 de mayo

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

JSDJSD · el 7 de mayo

El archivo

Extraer nombre de carpetas y subcarpetas1.xlsm

MarianoCruz · el 7 de mayo

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