Skip to main content

¿Cómo importar varios nombres de archivo a las celdas en Excel?

Author: Xiaoyang Last Modified: 2025-08-06

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:

vba code to select the folder to import the file names from

5. Luego haz clic en el botón Aceptar, y obtendrás el siguiente resultado:

all file names are listed

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.

Kutools para Excel ofrece más de 300 funciones avanzadas para simplificar tareas complejas, potenciando la creatividad y la eficiencia. Integrado con capacidades de inteligencia artificial, Kutools automatiza las tareas con precisión, haciendo que la gestión de datos sea sencilla. Información detallada de Kutools para Excel...  Prueba gratuita...

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:

click Filename List feature of kutools

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

(1.) Haz clic browse button 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.

set options in the dialog box

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:

the filenames both in folder and subfolders are imported into a new worksheet

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

🤖 Asistente de IA de Kutools: Revoluciona el análisis de datos basado en: Ejecución inteligente |Generar código |Crear fórmulas personalizadas |Analizar datos y generar gráficos |Invocar funciones mejoradas
Funciones populares: Buscar, resaltar o marcar duplicados | Eliminar filas en blanco | Combinar columnas o celdas sin perder datos | Redondear...
Super BUSCARV: Búsqueda con múltiples criterios | Búsqueda de múltiples valores | Búsqueda en varias hojas | Coincidencia difusa....
Lista desplegable avanzada: Crea rápidamente listas desplegables | Lista desplegable dependiente | Lista desplegable con selección múltiple....
Administrador de columnas: Agregar un número específico de columnas | Mover columnas | Cambiar la visibilidad de columnas ocultas | Comparar rangos y columnas...
Funciones destacadas: Cuadrícula de enfoque | Vista de diseño | Barra de fórmulas mejorada | Administrador de libros y hojas de cálculo | Biblioteca de AutoTexto | Selector de fechas | Combinar Datos | Encriptar/Descifrar celdas | Enviar correo electrónico por lista | Super Filtro | Filtro especial (filtro negrita/cursiva/tachado...)...
Top15 conjuntos de herramientas:12 herramientas de texto (Agregar texto, Eliminar caracteres, ...) | Más de50 tipos de gráficos (Diagrama de Gantt, ...) | Más de40 fórmulas prácticas (Calcular edad basada en la fecha de nacimiento, ...) |19 herramientas de inserción (Insertar código QR, Insertar imagen desde ruta, ...) |12 herramientas de conversión (Convertir a palabras, Conversión de moneda, ...) |7 herramientas de combinar y dividir (Combinar filas avanzado, Dividir celdas, ...) | ... y mucho más
Utiliza Kutools en tu idioma preferido: ¡compatible con Inglés, Español, Alemán, Francés, Chino y más de40 idiomas adicionales!

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!