¿Cómo listar todos los nombres de archivo en una carpeta y crear hipervínculos para ellos en Excel?

En tu trabajo diario, puede que necesites importar múltiples nombres de archivo desde una carpeta a una hoja de cálculo y crear hipervínculos para cada archivo, de modo que puedas abrir el archivo rápidamente y fácilmente. Tal vez puedas copiar y pegar los nombres de archivo y crear un hipervínculo para cada uno manualmente, pero esto te hará perder mucho tiempo si hay cientos de archivos en la carpeta. Hoy, te hablaré sobre algunos métodos rápidos e interesantes para manejar esta tarea.

Listar todos los nombres de archivo en una carpeta y crear hipervínculos con código VBA

Listar todos los nombres de archivo en una carpeta y crear hipervínculos con Kutools para Excel

Listar todos los nombres de archivo en una carpeta y crear hipervínculos con código VBA

Para listar y crear hipervínculos con archivos de una carpeta, el siguiente código VBA puede ayudarte.

1. Activa una nueva hoja de cálculo para poner el resultado.

2. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

VBA: Listar todos los nombres de archivo en una carpeta y crear hipervínculos

Sub Example1()
'Updateby Extendoffice
    Dim xFSO As Object 
    Dim xFolder As Object
    Dim xFile As Object
    Dim xFiDialog As FileDialog
    Dim xPath As String
    Dim I As Integer
    Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFiDialog.Show = -1 Then
        xPath = xFiDialog.SelectedItems(1)
    End If
    Set xFiDialog = Nothing
    If xPath = "" Then Exit Sub
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    For Each xFile In xFolder.Files
        I = I + 1
        ActiveSheet.Hyperlinks.Add Cells(I, 1), xFile.Path, , , xFile.Name
    Next
End Sub

4. Luego presiona la tecla F5 para ejecutar este código, y selecciona la carpeta desde la que deseas listar los archivos en la ventana Examinar, ver captura de pantalla:

5. Después de especificar la carpeta, haz clic en el botón Aceptar, y todos los archivos en la carpeta específica se habrán listado en la hoja de cálculo activa con hipervínculos, ver captura de pantalla:

Nota: Si hay subcarpetas en tu carpeta específica, los archivos en las subcarpetas no se listarán.

Listar todos los nombres de archivo en una carpeta y crear hipervínculos con Kutools para Excel

Para listar todos los archivos tanto en una carpeta como en sus subcarpetas y crear hipervínculos para cada archivo, la Lista de Nombres de Archivos de Kutools para Excel puede ayudarte. Con esta función, todos los archivos en la carpeta y subcarpetas se listarán de una vez con algunos atributos, como nombre de archivo, tamaño de archivo, hora de creación, carpeta que contiene, entre otros.

Si has instalado Kutools para Excel, por favor sigue los siguientes pasos:

1. Haz clic en Kutools Plus > Importar y Exportar > Lista de Nombres de Archivos, ver captura de pantalla:

2. En el cuadro de diálogo Lista de Nombres de Archivos, por favor realiza las siguientes operaciones:

(1.) Haz clic en el botón para seleccionar la carpeta desde la que deseas listar los nombres de archivo;

(2.) Marca Incluir archivos en subdirectorios si deseas listar nombres de archivo dentro de subcarpetas, marca Incluir archivos y carpetas ocultos si deseas listar los archivos ocultos;

(3.) Especifica los tipos de archivo que deseas encontrar y listar bajo la sección Tipo de archivo;

(4.) Selecciona la unidad de tamaño de archivo que deseas mostrar;

(5.) Marca Crear hipervínculos en la parte inferior izquierda del cuadro de diálogo.

¡Descarga Kutools para Excel ahora!

3. Luego haz clic en el botón Aceptar, y todos los archivos en la carpeta y subcarpetas se habrán listado en una nueva hoja de cálculo con los hipervínculos que necesitas, ver captura de pantalla:

Haz clic para conocer más detalles sobre la utilidad Lista de Nombres de Archivos…

¡Descarga y prueba gratis Kutools para Excel ahora!

Demostración: Listar todos los nombres de archivo en una carpeta y crear hipervínculos con Kutools para Excel

Artículo relacionado:

¿Cómo listar todos los archivos en una carpeta y subcarpetas en una hoja de cálculo?