¿Cómo importar varios nombres de archivo a las celdas en Excel?
Supongamos que tienes una carpeta con cientos de archivos, y ahora quieres importar estos nombres de archivo a las celdas de una hoja de cálculo. Copiar y pegar uno por uno llevará mucho tiempo; en este artículo, hablaré sobre algunos trucos rápidos para ayudarte a importar múltiples nombres de archivo desde una carpeta a una hoja de cálculo.
Importar múltiples nombres de archivo en las celdas de la hoja de cálculo con código VBA
Importar múltiples nombres de archivo en las celdas de la hoja de cálculo con Kutools para Excel
Importar múltiples nombres de archivo en las celdas de la hoja de cálculo con código VBA
El siguiente código VBA puede ayudarte a importar los nombres de archivo, extensiones de archivo y el nombre de la carpeta en las celdas de la hoja de cálculo. Por favor, sigue los siguientes pasos:
1. Abre una nueva hoja de cálculo donde deseas importar los nombres de archivo.
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.
Código VBA: Importar múltiples nombres de archivo en las celdas de la hoja de cálculo
Sub GetFileList()
'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)
ActiveSheet.Cells(1, 1) = "Folder name"
ActiveSheet.Cells(1, 2) = "File name"
ActiveSheet.Cells(1, 3) = "File extension"
i = 1
For Each xFile In xFolder.Files
i = i + 1
ActiveSheet.Cells(i, 1) = xPath
ActiveSheet.Cells(i, 2) = Left(xFile.Name, InStrRev(xFile.Name, ".") - 1)
ActiveSheet.Cells(i, 3) = Mid(xFile.Name, InStrRev(xFile.Name, ".") + 1)
Next
End Sub
4. Luego presiona la tecla F5 para ejecutar este código, y en la ventana Examinar que aparece, selecciona la carpeta desde la cual deseas importar los nombres de archivo, como se muestra en la captura de pantalla:
5. Luego haz clic en el botón Aceptar, y obtendrás el siguiente resultado:
Nota: Si hay subcarpetas dentro de tu carpeta específica, los nombres de archivo en las subcarpetas no serán importados.
Importar múltiples nombres de archivo en las celdas de la hoja de cálculo con Kutools para Excel
Si necesitas importar los nombres de archivo tanto de la carpeta como de las subcarpetas, no te preocupes, con la utilidad Lista de Nombres de Archivos de Kutools para Excel, puedes importar fácilmente todos los nombres de archivo en la carpeta específica, incluidas las subcarpetas.
Después de instalar 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, realiza las siguientes operaciones:
(1.) Haz clic en el botón para seleccionar la carpeta con los archivos que deseas importar;
(2.) Marca Incluir archivos en subdirectorios para importar los nombres de archivo de las subcarpetas;
(3.) Especifica el tipo de archivo que deseas importar en la sección Tipo de archivo;
(4.) Selecciona una unidad de tamaño de archivo que deseas mostrar en la sección Unidad de tamaño de archivo;
(5.) Si deseas crear hipervínculos para los nombres de archivo y carpetas, marca la opción Crear hipervínculos.
3. Después de finalizar la configuración, haz clic en el botón Aceptar, y los nombres de archivo tanto de la carpeta como de las subcarpetas se importarán en una nueva hoja de cálculo, como se muestra en la siguiente captura de pantalla:
Consejos: Si solo deseas importar nombres de archivo de un tipo específico desde una carpeta específica, puedes marcar la opción Especificar en el cuadro de diálogo Lista de Nombres de Archivos e ingresar la extensión del archivo. Entonces, solo se importarán los nombres de archivo del tipo especificado tanto de la carpeta como de las subcarpetas.
¡Descarga y prueba gratis Kutools para Excel ahora!
Artículos relacionados:
¿Cómo listar todos los archivos en una carpeta y subcarpetas en una hoja de cálculo?
¿Cómo listar todos los nombres de archivo en una carpeta y crear hipervínculos para ellos en Excel?
Las mejores herramientas de productividad para Office
Impulsa al máximo tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para potenciar la productividad y ahorrar tiempo.Haz clic aquí para obtener la función que más necesitas...
Office Tab aporta una interfaz de pestañas a Office y hace tu trabajo mucho más sencillo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en vez de en nuevas ventanas.
- ¡Aumenta tu productividad hasta un50% y reduce cientos de clics de ratón cada día!