¿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:
Note: 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:
Tips: 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
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!