¿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 varios nombres de archivo de una carpeta a una hoja de trabajo y crear hipervínculos para cada archivo para abrir el archivo de forma rápida y sencilla. Tal vez, pueda copiar y pegar los nombres de archivo y crear un hipervínculo uno por uno manualmente, pero esto 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.
Enumere todos los nombres de archivo en una carpeta y cree hipervínculos con código VBA
Enumere todos los nombres de archivo en una carpeta y cree hipervínculos con Kutools para Excel
Enumere todos los nombres de archivo en una carpeta y cree hipervínculos con código VBA
Para enumerar y crear hipervínculos con archivos de una carpeta, el siguiente código VBA puede hacerle un favor.
1. Active una nueva hoja de trabajo para poner el resultado.
2. Mantenga pulsado 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 el Módulo Ventana.
VBA: enumere todos los nombres de archivo en una carpeta y cree 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. Entonces presione F5 para ejecutar este código y elija la carpeta en la que desea enumerar los archivos de la Explorar ventana, ver captura de pantalla:
5. Después de especificar la carpeta, haga clic en OK , y todos los archivos en la carpeta específica se han enumerado en la hoja de trabajo activa con hipervínculos, vea la captura de pantalla:
Note: Si hay subcarpetas en su carpeta específica, los archivos en las subcarpetas no aparecerán en la lista.
Enumere todos los nombres de archivo en una carpeta y cree hipervínculos con Kutools para Excel
Para enumerar todos los archivos de 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 carpetas y subcarpetas se enumerarán a la vez con algunos atributos, como el nombre del archivo, el tamaño del archivo, la hora de creación, la carpeta que contiene, etc.
Kutools for Excel : con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. |
Si tienes instalado Kutools for Excel, siga los siguientes pasos:
1. Hacer clic Kutools Más > Importación y exportación > Lista de nombre de archivo, ver captura de pantalla:
2. En el Lista de nombre de archivo cuadro de diálogo, realice las siguientes operaciones:
(1.) Haga clic en botón para seleccionar la carpeta en la que desea enumerar los nombres de archivo;
(2.) Comprobar Incluir archivos en subdirectorios si desea enumerar los nombres de archivo dentro de las subcarpetas, marque Incluir archivos y carpetas ocultos si desea enumerar los archivos ocultos;
(3.) Especifique los tipos de archivo que desea buscar y enumere en el Tipo de archivos sección;
(4.) Seleccione la unidad de tamaño de archivo que desea mostrar;
(5.) Comprobar Crea hipervínculos en la parte inferior izquierda del cuadro de diálogo.
3. Luego haga clic Ok , y todos los archivos de la carpeta y subcarpetas se han enumerado en una nueva hoja de trabajo con los hipervínculos que necesita, vea la captura de pantalla:
Haga clic para conocer más detalles sobre la utilidad Lista de nombre de archivo ...
¡Descargue y pruebe Kutools para Excel ahora!
Demostración: enumere todos los nombres de archivo en una carpeta y cree hipervínculos con Kutools para Excel
Artículo relacionado:
¿Cómo enumerar todos los archivos en carpetas y subcarpetas en una hoja de trabajo?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!