Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo importar múltiples nombres de archivos en celdas en Excel?

Supongamos que tiene una carpeta con cientos de archivos y ahora desea importar estos nombres de archivos en las celdas de una hoja de trabajo. Copiar y pegar uno por uno pasará 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.

Importar varios nombres de archivos en celdas de la hoja de trabajo con código VBA

Importar varios nombres de archivos en celdas de la hoja de trabajo con Kutools para Excel

Ficha Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil ...
Kutools for Excel trae las características avanzadas de 300 a Excel y aumenta su productividad en 80%
  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células 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 Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Kutools funciona con Office 2007-2019 y 365. Es compatible con todos los idiomas y es muy fácil de instalar o implementar. Funciones completas de prueba gratuita de 60-day.

Importar varios nombres de archivos en celdas de la hoja de trabajo con código VBA


El siguiente código de VBA puede ayudarlo a importar los nombres de los archivos, las extensiones de archivo y el nombre de la carpeta en las celdas de la hoja de trabajo, por favor siga los siguientes pasos:

1. Inicie una nueva hoja de trabajo en la que desee importar los nombres de los archivos.

2. Mantenga presionado 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 Módulo Ventana.

Código de VBA: importe varios nombres de archivo en celdas de la hoja de cálculo

Sub GetFileList()
'updateby Extendoffice 20150909
    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 desplegable Examinar, elija la carpeta en la que desea importar el formulario de nombres de archivo, vea la captura de pantalla:

doc import filenames 1

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

doc import filenames 2

Nota: Si hay subcarpetas dentro de su carpeta específica, los nombres de archivo en las subcarpetas no se importarán.


Importar varios nombres de archivos en 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 útiles complementos de Excel, de prueba sin límite en días 60.

Después de instalar Kutools for Excel, haz lo siguiente:

1. Hacer clic Empresa > Import / Export > Lista de nombre de archivo, mira la captura de pantalla:

doc import filenames 3

2. En la Lista de nombre de archivo cuadro de diálogo, realice las siguientes operaciones:

(1.) Clic doc import filenames 5 para seleccionar la carpeta con los archivos que desea importar;

(2.) Verificar Incluir archivos en subdirectorios para importar los nombres de archivo de las subcarpetas;

(3.) Especifique el tipo de archivo que desea importar en Tipo de archivos sección;

(4.) Seleccione una unidad de tamaño de archivo que desee mostrar desde Unidad de tamaño de archivo sección;

(5.) Si desea hipervincular los nombres y carpetas de los archivos, verifique Crear hipervínculos opción.

doc import filenames 4

3. Después de finalizar la configuración, haga clic OK y los nombres de archivo tanto en la carpeta como en las subcarpetas se importan en una nueva hoja de trabajo como se muestra a continuación.

doc import filenames 6

Consejos: Si solo desea importar un nombre de archivo especificado de 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 de 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 nombre de archivo ...

Descargue y pruebe de forma gratuita Kutools for Excel Now!


Demostración: Importe múltiples nombres de archivo en celdas de la hoja de trabajo con Kutools para Excel

Kutools for Excel: con más de 200 útiles complementos de Excel, de prueba sin límite en días 60. Descargar y prueba gratis ahora!


Artículos relacionados:

¿Cómo hacer una lista de todos los archivos en la carpeta 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?


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células 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 Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. Funciones completas de prueba gratuita de 60-day.
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

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    amit kuamr sahu · 9 days ago
    i want to add table,only folder name,and data modified as well?
  • To post as a guest, your comment is unpublished.
    amit kumar sahu · 9 days ago
    i want to mention only folder name.what is vba code for that.
  • To post as a guest, your comment is unpublished.
    lu · 1 months ago
    is there a way to put the folder path already in the code?
  • To post as a guest, your comment is unpublished.
    J · 7 months ago
    For the VBA code, how would you pull in the date modified as well?
    • To post as a guest, your comment is unpublished.
      skyyang · 7 months ago
      Hello,
      Add the date modified column for the imported filenames, please apply the following VBA code, please try it, hope it can help you!

      Sub GetFileList()
      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"
      ActiveSheet.Cells(1, 4) = "Date last modified"
      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)
      ActiveSheet.Cells(i, 4) = CDate(xFile.datelastmodified)
      Next
      End Sub
  • To post as a guest, your comment is unpublished.
    kaka · 8 months ago
    Thanks. It was awesome
  • To post as a guest, your comment is unpublished.
    dimas · 11 months ago
    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 path not found bisa bantu kenapa itu bisa terjadi?
  • To post as a guest, your comment is unpublished.
    agiltriyasmoko · 1 years ago
    Apakah bisa merename file dengan excel?
    terimakasih sangat membantu perkerjaan saya,
  • To post as a guest, your comment is unpublished.
    Carrin · 1 years ago
    Very helpful, thank you!
  • To post as a guest, your comment is unpublished.
    Myk · 1 years ago
    Hey,
    I have a ecxel sheet which have some product names, and also have a folder which have some pdf files named same as in cell data, like if cell A2 value is apple1, Pdf file name is apple1.pdf, i want to know which name file is missing, can we get that in excel somwhow..
    • To post as a guest, your comment is unpublished.
      Parkash · 1 years ago
      copy folder name into excel
      see this https://youtu.be/fQDnLhSFQKs
      and then simple use ture/False functation
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hello,Myk,
      First, you can apply the above code to insert the filenames into the worksheet, list the two columns of filenames into one worksheet, and then you can use the Select Same & Different cells feature of Kutools to identify and highlight the missing filenames, see screenshot:

      Please try it, thank you!