¿Cómo importar varios nombres de archivos en celdas en Excel?
Supongamos que tiene una carpeta con cientos de archivos y ahora desea importar estos nombres de archivo en celdas de una hoja de trabajo. Copiar y pegar uno por uno tomará mucho tiempo, en este artículo, hablaré sobre algunos trucos rápidos para ayudarlo a importar múltiples nombres de archivos de una carpeta a una hoja de trabajo.
Importe varios nombres de archivos en celdas de la hoja de trabajo con código VBA
Importe varios nombres de archivos en las celdas de la hoja de trabajo con Kutools para Excel
Importe varios nombres de archivos en celdas de la hoja de trabajo con código VBA
El siguiente código VBA puede ayudarlo a importar los nombres de archivo, extensiones de archivo y nombre de carpeta en las celdas de la hoja de trabajo, siga los siguientes pasos:
1. Inicie una nueva hoja de trabajo en la que desee importar los nombres de archivo.
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.
Código VBA: importe varios nombres de archivo en celdas de la hoja de trabajo
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. Entonces presione F5 para ejecutar este código, y en la ventana emergente Examinar, elija la carpeta en la que desea importar el formulario de nombres de archivo, vea la captura de pantalla:
5. Y luego haz clic OK botón, y obtendrá el siguiente resultado:
Nota:： Si hay subcarpetas dentro de su carpeta específica, los nombres de archivo en las subcarpetas no se importarán.
Importe varios nombres de archivos en las celdas de la hoja de trabajo con Kutools para Excel
Si necesita importar los nombres de los archivos tanto en la carpeta como en las subcarpetas, no se preocupe, con Kutools for Excel, Lista de nombre de archivo utilidad, puede importar fácilmente todos los nombres de archivo en la carpeta específica, incluidas las subcarpetas.
| Kutools for Excel : con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. |
Después de instalar Kutools for Excel, haga lo siguiente:
1. Hacer clic Kutools Más> Importación y exportación > Lista de nombre de archivo, ver captura de pantalla:
2. En la Lista de nombre de archivo cuadro de diálogo, realice las siguientes operaciones:
(1.) Haga clic en 
botón para seleccionar la carpeta con los archivos que desea importar;
(2.) Comprobar Incluir archivos en subdirectorios para importar los nombres de archivo de las subcarpetas;
(3.) Especifique el tipo de archivos que desea importar en el Tipo de archivos sección;
(4.) Seleccione una unidad de tamaño de archivo que desee mostrar de la Unidad de tamaño de archivo sección;
(5.) Si desea vincular los nombres de archivo y carpetas, marque Crea hipervínculos .
3. Después de finalizar la configuración, haga clic en OK , y los nombres de archivo tanto en la carpeta como en las subcarpetas se importan a una nueva hoja de trabajo como se muestra en la siguiente captura de pantalla:
Consejos: Si solo desea importar un nombre de archivo de tipo específico desde una carpeta específica, puede verificar Especificar opción en el Lista de nombre de archivo cuadro de diálogo y escriba la extensión del archivo en él, luego solo importará los nombres de archivo de tipo especificado tanto de la carpeta como de las subcarpetas.
Haga clic para obtener más información sobre esta función de lista de nombres de archivo ...
¡Descargue y pruebe Kutools para Excel ahora!
Demostración: importe varios nombres de archivos en las celdas de la hoja de trabajo con Kutools para Excel
Artículos relacionados:
¿Cómo enumerar todos los archivos en carpetas y subcarpetas en una hoja de trabajo?
Las mejores herramientas de productividad de oficina
Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%
- Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
- Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
- Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas 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 Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
- Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
- Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
- Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
- Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
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!
