Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

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

Para su trabajo diario, es posible que deba importar múltiples nombres de archivo de una carpeta a una hoja de cálculo, y crear hipervínculos para cada archivo para que se abra el archivo de manera rápida y fácil. Tal vez, puede copiar y pegar los nombres de los archivos y crear un hipervínculo uno por uno manualmente, pero perderá mucho tiempo si hay cientos de archivos en la carpeta. Hoy, hablaré sobre algunos métodos rápidos e interesantes para hacer frente a este trabajo.

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


Enumere todos los archivos en una carpeta y cree hipervínculos para ellos de una vez:

Con Kutools for Excel's Lista de nombre de archivo utilidad, puede enumerar todos los archivos de una carpeta que incluye las subcarpetas en una hoja de trabajo lo antes posible.

archivos de lista doc

Kutools for Excel: con más de 200 útiles complementos de Excel, de prueba sin límite en días 60. Descargar y prueba gratis ahora!



Para enumerar y crear un hipervínculo con archivos de una carpeta, el siguiente código de VBA puede hacerte un favor.

1. Activa una nueva hoja de trabajo para poner el resultado.

2. Mantenga presionado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

3. Hacer clic recuadro > Móduloy pegue el siguiente código en Módulo Ventana.

VBA: enumere todos los nombres de archivo en una carpeta y cree hipervínculos

Sub Example1()
'Update 20150831
    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. Entonces presione F5 clave para ejecutar este código, y elija la carpeta en la que desea listar los archivos del Buscar ventana, ver captura de pantalla:

doc list crea hipervínculos 1

5. Después de especificar la carpeta, haga clic OK botón, y todos los archivos en la carpeta específica se han enumerado en la hoja de trabajo activa con hipervínculos, ver captura de pantalla:

doc list crea hipervínculos 2

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


Para enumerar todos los archivos en una carpeta y sus subcarpetas y crear hipervínculos para cada archivo, Kutools for Excel, Lista de nombre de archivo puede hacerte un favor Con esta función, todos los archivos en la carpeta y subcarpetas se enumerarán a la vez con algunos atributos, como el nombre del archivo, el tamaño del archivo, la hora creada, la carpeta que lo contiene, etc.

Kutools for Excel : con más de 300 útiles complementos de Excel, de prueba sin límite en días 60.

Si tienes instalado Kutools for ExcelPor favor, haz los siguientes pasos:

1. Hacer clic Empresa > Import / Export > Lista de nombre de archivo, mira la captura de pantalla:

doc list crea hipervínculos 3

2. En el Lista de nombre de archivo cuadro de diálogo, realice las siguientes operaciones:

(1.) Clic doc list crea hipervínculos 5 para seleccionar la carpeta en la que desea listar los nombres de los archivos;

(2.) Marque Include archivos en subdirectorios si desea listar nombres de archivos dentro de subcarpetas;

(3.) Especifique los tipos de archivo que desea buscar y enumere debajo del Tipo de archivos sección;

(4.) Seleccione la unidad de tamaño de archivo que desea visualizar;

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

Descarga Kutools para Excel ahora!

3. Luego haga clic Ok y todos los archivos en la carpeta y subcarpetas se han enumerado en una nueva hoja de trabajo con los hipervínculos que necesita, vea la captura de pantalla:

doc list crea hipervínculos 6

Haga clic para obtener más información sobre la utilidad Lista de nombres de archivo ...

Descargue y pruebe de forma gratuita Kutools for Excel Now!


Kutools for Excel: con más de 200 útiles complementos de Excel, de prueba sin límite en días 60. Descargar y prueba gratis ahora!


Artículo relacionado:

¿Cómo hacer una lista de todos los archivos en la carpeta y subcarpetas en una hoja de trabajo?


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. Funciones completas de prueba gratuita de 60-day.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ellie · 6 months ago
    How would I change this code to have it list folder names rather than file names? And how would I change it to check subfolders for files?
    • To post as a guest, your comment is unpublished.
      skyyang · 6 months ago
      Hi, Ellie,
      To list all folder and subfolder names from a directory, the below VBA code can help you, please try, hopt it can help you.

      Sub FolderNames()
      Application.ScreenUpdating = False
      Dim xPath As String
      Dim xWs As Worksheet
      Dim fso As Object, j As Long, folder1 As Object
      With Application.FileDialog(msoFileDialogFolderPicker)
      .Title = "Choose the folder"
      .Show
      End With
      On Error Resume Next
      xPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
      Application.Workbooks.Add
      Set xWs = Application.ActiveSheet
      xWs.Cells(1, 1).Value = xPath
      xWs.Cells(2, 1).Resize(1, 5).Value = Array("Path", "Dir", "Name", "Date Created", "Date Last Modified")
      Set fso = CreateObject("Scripting.FileSystemObject")
      Set folder1 = fso.getFolder(xPath)
      getSubFolder folder1
      xWs.Cells(2, 1).Resize(1, 5).Interior.Color = 65535
      xWs.Cells(2, 1).Resize(1, 5).EntireColumn.AutoFit
      Application.ScreenUpdating = True
      End Sub
      Sub getSubFolder(ByRef prntfld As Object)
      Dim SubFolder As Object
      Dim subfld As Object
      Dim xRow As Long
      For Each SubFolder In prntfld.SubFolders
      xRow = Range("A1").End(xlDown).Row + 1
      Cells(xRow, 1).Resize(1, 5).Value = Array(SubFolder.Path, Left(SubFolder.Path, InStrRev(SubFolder.Path, "\")), SubFolder.Name, SubFolder.DateCreated, SubFolder.DateLastModified)
      Next SubFolder
      For Each subfld In prntfld.SubFolders
      getSubFolder subfld
      Next subfld
      End Sub
  • To post as a guest, your comment is unpublished.
    jms · 8 months ago
    "VBA: List all filenames in a folder and create hyperlinks" is great! It works perfectly! Thank you for posting! One question... Now that you told us how to add links from folder, is it possible to use those links to get information from say one or two different sheets in each of the files listed? They would be the same cells for each of the files we now have a list for. This would help create a comprehensive contents with active links to otherwise unintelligible file names.
  • To post as a guest, your comment is unpublished.
    alice · 1 years ago
    Great thanks although can not view the files in the selected directory as barry said, it creates hyperlinks for all files in that directory anyway.
  • To post as a guest, your comment is unpublished.
    Chaudhary Mubashir · 1 years ago
    Awesome ..thanks a lot. It really saved my time.
  • To post as a guest, your comment is unpublished.
    barry · 3 years ago
    Running the VBA code listed above, shows the selected directory is empty, when it is full of Excel files.