¿Cómo enumerar rápidamente los nombres de las imágenes/nombres de archivos de una carpeta en las celdas de Excel?

En este tutorial, proporcionaré algunos trucos para enumerar rápidamente todos los nombres de imágenes o nombres de archivos de una carpeta específica en una hoja de Excel, como se muestra en la captura de pantalla. NAVEGACIÓN RÁPIDA >Enumerar nombres de imágenes de una carpeta en Excel con VBA >Enumerar nombres de imágenes o nombres de archivos de un formato específico de una carpeta en Excel con Lista de Nombres de Archivos >Descargar archivo de ejemplo

En Excel, no hay una función integrada que pueda enumerar automáticamente todos los nombres de imágenes de una carpeta que elijas en una celda de una hoja, pero aquí tengo un código VBA que puede ayudarte a resolver rápidamente esta tarea.

1. En Excel, luego presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana emergente, haz clic en Insertar > Módulo para crear un nuevo script de Módulo.

3. Copia el siguiente código y pégalo en la ventana del nuevo script de Módulo.

Sub PictureNametoExcel()
'UpdatebyExtendoffice 
    Dim I As Long
    Dim xRg As Range
    Dim xAddress As String
    Dim xFileName As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a cell to place name list:", "Kutools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xRg = xRg(1)
    xRg.Value = "Picture Name"
    With xRg.Font
    .Name = "Arial"
    .FontStyle = "Bold"
    .Size = 10
    End With
    xRg.EntireColumn.AutoFit
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    I = 1
    If xFileDlg.Show = -1 Then
        xFileDlgItem = xFileDlg.SelectedItems.Item(1)
        xFileName = Dir(xFileDlgItem & "\")
        Do While xFileName <> ""
            If InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".ioc") + InStr(1, xFileName, ".bmp") > 0 Then
                xRg.Offset(I).Value = xFileDlgItem & "\" & xFileName
                I = I + 1
            End If
            xFileName = Dir
        Loop
    End If
    Application.ScreenUpdating = True
End Sub

4. Presiona F5 tecla, luego aparecerá un cuadro de diálogo para que selecciones una celda donde colocar los nombres de las imágenes.

5. Haz clic en Aceptar para continuar seleccionando la carpeta de la que deseas enumerar los nombres de las imágenes en el cuadro de diálogo Examinar.

6. Haz clic en Aceptar, ahora todos los nombres de las imágenes en la carpeta seleccionada se han enumerado en Excel.

Nota: En el código VBA, puedes cambiar jpg/png/… en la cadena de código If InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".ioc") + InStr(1, xFileName, ".bmp") > 0 Then al formato de archivo que necesites, por ejemplo, si quieres enumerar nombres de archivos en formato doc, solo cambia la cadena de código a If InStr(1, xFileName, ".doc") > 0 Then.

Si normalmente necesitas enumerar uno o todos los formatos de nombres de archivos de una carpeta en una celda de Excel en tu trabajo diario, el código es complejo y no es fácil de manejar, pero, con el siguiente método, puedes resolver rápidamente esta tarea.

¿Quieres un aumento de sueldo y más tiempo para estar con tu familia? Office Tab mejora tu eficiencia en un 50% mientras trabajas en Microsoft Office ahora mismo. Increíble, trabajar en dos o más documentos es más fácil y rápido que hacerlo en uno. Comparado con navegadores conocidos, la herramienta de pestañas en Office Tab es más potente y eficiente. Reduce cientos de clics del ratón y pulsaciones de teclado cada día, di adiós al síndrome del túnel carpiano. Si sueles trabajar en varios documentos a la vez, Office Tab será un gran ahorro de tiempo para ti. Prueba gratuita de 30 días, no se requiere tarjeta de crédito. Leer másDescarga gratuita ahora

Aquí hay una utilidad – Lista de Nombres de Archivos en Kutools para Excel, que puede

>> enumerar todos los nombres de archivos en todos los formatos de una carpeta en una nueva hoja;

>> enumerar los nombres de archivos en uno o varios formatos que especifiques en Excel;

>> enumerar nombres de archivos incluyendo subcarpetas y archivos y carpetas ocultas en Excel.

Prueba Gratuita Dile Adiós a la Mano de Ratón y a la Espondilosis Cervical Ahora

300 herramientas avanzadas de Kutools para Excel resuelven 80% tareas de Excel en segundos, sacándote de miles de clics de ratón.

Maneja fácilmente 1500 escenarios de trabajo, no es necesario perder tiempo buscando soluciones, teniendo más tiempo para disfrutar de tu vida. Mejora 80% la productividad para más de 110000 personas altamente efectivas cada día, por supuesto incluyéndote a ti. Ya no serás atormentado por fórmulas dolorosas y VBA, dale un descanso a tu cerebro y disfruta de un ambiente de trabajo alegre. 30-día de prueba gratuita con todas las funciones, 30-día de devolución del dinero sin preguntas. Un Mejor Cuerpo Crea Una Mejor Vida.

Leer Más Descargar Ahora

Después de instalar gratuitamente Kutools para Excel, por favor haz lo siguiente:

1. Habilita el libro en el que deseas enumerar los nombres de los archivos, luego haz clic en Kutools Plus > Importar/Exportar > Lista de Nombres de Archivos.

2. En el Lista de Nombres de Archivos cuadro de diálogo, primero, haz clic  para seleccionar una carpeta de la que deseas enumerar sus nombres de archivos, luego puedes marcar las casillas de Incluir archivos en subdirectorios y Incluir archivos y carpetas ocultos según sea necesario.

3. Luego selecciona el formato de archivo que deseas enumerar los nombres en la sección Tipo de archivo.

Marcar la opción Todos los archivos, enumerará todos los nombres de archivos en todos los formatos en la carpeta seleccionada

Marcar la opción Comunes, y selecciona el formato de archivo específico del que deseas enumerar los nombres de archivo desde la lista desplegable, luego enumerará todos los nombres de archivo del formato que elijas en la lista desplegable

Marcar la opción Especificar, luego escribe las extensiones de archivo (usando comas para separarlas) de las que deseas enumerar los nombres de archivo en el cuadro de texto, luego solo enumerará los nombres de archivo con las extensiones de archivo ingresadas en Excel

4. Elige la unidad de tamaño que necesites desde la lista desplegable en la sección Unidad de tamaño de archivo, si deseas crear un vínculo a los nombres de archivo, marca la opción Crear hipervínculos.

5. Haz clic en Aceptar, se creará una nueva hoja para enumerar los nombres de archivo y alguna información del archivo.

Consejo: si deseas enumerar todos los nombres de hojas en Excel, puedes aplicar la herramienta Crear Lista de Nombres de Hojas de Kutools para Excel, creará una nueva hoja para enumerar todos los nombres de hojas enlazables.

Kutools para Excel:+ herramientas útiles y prácticas, simplificando las tareas complicadas en Excel en unos pocos clics.