Note: The other languages of the website are Google-translated. Back to English

¿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:

archivos de importación de documentos 1

5. Y luego haz clic OK botón, y obtendrá el siguiente resultado:

archivos de importación de documentos 2

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 archivos de importación de documentos 5 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 .

archivos de importación de documentos 4

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:

archivos de importación de documentos 6

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

Kutools for Excel: con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. ¡Descarga y prueba gratis ahora!

Artículos relacionados:

¿Cómo enumerar todos los archivos en carpetas y subcarpetas en una hoja de trabajo?

¿Cómo enumerar todos los nombres de archivo en una carpeta y crear hipervínculos para ellos en Excel?


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.
pestaña kte 201905

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!
officetab parte inferior
Comentarios (14)
5 clasificado de 5 · 1 calificaciones
Este comentario fue minimizado por el moderador en el sitio
Oye,
Tengo una hoja de ecxel que tiene algunos nombres de productos, y también tengo una carpeta que tiene algunos archivos pdf con el mismo nombre que en los datos de la celda, por ejemplo, si el valor de la celda A2 es apple1, el nombre del archivo PDF es apple1.pdf, quiero saber qué nombre Falta el archivo, ¿podemos obtenerlo en Excel?
Este comentario fue minimizado por el moderador en el sitio
Hola Myk,
Primero, puede aplicar el código anterior para insertar los nombres de archivo en la hoja de trabajo, enumerar las dos columnas de nombres de archivo en una hoja de trabajo y luego puede usar la función Seleccionar celdas iguales y diferentes de Kutools para identificar y resaltar los nombres de archivo que faltan, ver captura de pantalla :

Por favor, inténtalo, ¡gracias!
Este comentario fue minimizado por el moderador en el sitio
¡Muy útil, gracias!
Este comentario fue minimizado por el moderador en el sitio
Apakah bisa merename file dengan excel?
terimakasih sangat membantu perkerjaan saya,
Este comentario fue minimizado por el moderador en el sitio
saya coba yg pake vba di run bisa tapi pas di step browser nya bukan oke tapi open terus sampai ke file tertentu dan ketika di klik malah run time 26 ruta no encontrada bisa bantu kenapa itu bisa terjadi?
Este comentario fue minimizado por el moderador en el sitio
Gracias. fue genial
Este comentario fue minimizado por el moderador en el sitio
Para el código de VBA, ¿cómo obtendría también la fecha de modificación?
Este comentario fue minimizado por el moderador en el sitio
Hola,
Agregue la columna de fecha de modificación para los nombres de archivo importados, aplique el siguiente código VBA, inténtelo, ¡espero que pueda ayudarlo!

Sub GetFileList()
Dim xFSO como objeto
Dim xFolder como objeto
Dim xFile como objeto
Atenuar xFiDialog como FileDialog
Atenuar xPath como cadena
Dim i As Integer
Establecer xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
Si xFiDialog.Show = -1 Entonces
xPath = xFiDialog.SelectedItems(1)
Si terminar
Establecer xFiDialog = Nada
Si xPath = "" Entonces Salir de Sub
Establecer xFSO = CreateObject("Scripting.FileSystemObject")
Establecer xFolder = xFSO.GetFolder(xPath)
ActiveSheet.Cells(1, 1) = "Nombre de la carpeta"
ActiveSheet.Cells(1, 2) = "Nombre de archivo"
ActiveSheet.Cells(1, 3) = "Extensión de archivo"
ActiveSheet.Cells(1, 4) = "Fecha de última modificación"
i = 1
Para cada xFile en 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)
ActiveSheet.Cells(i, 4) = CDate(xFile.datelastmodified)
Siguiente
End Sub
Este comentario fue minimizado por el moderador en el sitio
¿Hay alguna manera de poner la ruta de la carpeta ya en el código?
Este comentario fue minimizado por el moderador en el sitio
Quiero mencionar solo el nombre de la carpeta. ¿Qué es el código vba para eso?
Este comentario fue minimizado por el moderador en el sitio
¿Quiero agregar una tabla, solo el nombre de la carpeta y los datos modificados también?
Este comentario fue minimizado por el moderador en el sitio
Hola,
¿Desea enumerar todos los nombres de carpeta de una carpeta principal específica? Por favor, da tu problema más detallado.
Este comentario fue minimizado por el moderador en el sitio
Otro método fácil está ahí. Simplemente copie la ruta del directorio donde ha guardado los documentos y pegue ese enlace en el navegador (chrome/mozilla). Obtendrá la lista de nombres y simplemente copie y pegue en Excel. ¡Salud!
Este comentario fue minimizado por el moderador en el sitio
muy útil. Tnx mucho
5 clasificado de 5
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL