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. NAVEGACION RAPIDA >Enumere los nombres de imágenes de una carpeta en Excel con VBA >Enumere los nombres de las imágenes o los nombres de archivo de formato específico de una carpeta en Excel con la Lista de nombres de archivo >Descargar archivo de muestra

En Excel, no hay una función incorporada que pueda enumerar automáticamente todos los nombres de imagen de una carpeta que elija en una celda de una hoja, pero aquí tengo un código VBA que puede ayudarlo a resolver rápidamente este trabajo.

1. En Excel, luego presione otro + F11 llaves para abrir Microsoft Visual Basic para aplicaciones ventana.

2. En la ventana emergente, haga clic en recuadro > Módulo para crear un nuevo script de módulo.

3. Copie el código siguiente y péguelo en la nueva ventana del script del 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. Prensa F5 , luego aparece un cuadro de diálogo para que seleccione una celda para colocar los nombres de las imágenes.

5. Hacer clic en OK para continuar seleccionando la carpeta en la que desea enumerar los nombres de las imágenes en el cuadro de diálogo Examinar.

6. Hacer clic en OK, ahora todos los nombres de las imágenes en la carpeta seleccionada se han incluido en Excel.

Nota: En el código de VBA, puede jpg / png /… en la cadena de código Si InStr (1, xFileName, ".jpg") + InStr (1, xFileName, ".png") + InStr (1, xFileName, ".img") + InStr (1, xFileName, ".ioc") + InStr (1, xFileName, ".bmp") > 0 Entonces a la extensión de archivo que necesita, por ejemplo, si desea enumerar los nombres de archivo del archivo en formato doc, solo cambie la cadena de código a Si InStr (1, xFileName, ".doc")> 0 Entonces.

Si generalmente necesita enumerar uno o todos los nombres de archivo de los formatos de una carpeta en la celda de Excel en su trabajo diario, el código es complejo y no es fácil de manejar, pero, con la siguiente forma, puede resolver este trabajo rápidamente.

¿Quiere tener un aumento de sueldo y mucho tiempo para acompañar a la familia? Office Tab mejora su eficiencia en un 50% en Microsoft Office trabajando ahora mismo Increíble, trabajar con dos o más documentos es más fácil y rápido que trabajar con uno. En comparación con los navegadores más conocidos, la herramienta con pestañas de Office Tab es más potente y eficiente. Reduzca cientos de clics del mouse y la escritura en el teclado todos los días para usted, diga adiós a la mano del mouse ahora. Si normalmente trabaja en varios documentos, Office Tab le ahorrará mucho tiempo. 30-día de prueba gratis, No se requiere tarjeta de crédito. Leer MasDescargar gratis ahora

Aquí hay una utilidad: Lista de nombre de archivo in Kutools for Excel, Que puede

>> enumere todos los nombres de archivo en todos los formatos de archivo de una carpeta en una nueva hoja;

>> enumere los nombres de archivo en uno o varios formatos de archivo que especifique en Excel;

>> enumere los nombres de los archivos, incluidas las subcarpetas y los archivos y carpetas ocultos en Excel.

Pase gratuito Diga adiós a la mano del ratón y a la espondilosis cervical ahora

300 herramientas avanzadas de Kutools para resolver Excel 80% Tareas de Excel en segundos, sáquelo de los miles de clics del mouse.

Maneje fácilmente 1500 escenarios de trabajo, no necesita perder tiempo buscando soluciones, tenga mucho tiempo para disfrutar de su vida. Mejore la productividad del 80% para más de 110000 personas altamente efectivas todos los días, por supuesto incluyéndolo a usted. Ya no debe ser atormentado por fórmulas dolorosas y VBA, dele a su cerebro un descanso y un estado de ánimo de trabajo alegre. Prueba gratuita de 30 días con todas las funciones, devolución de dinero de 30 días sin motivos. Un cuerpo mejor crea una vida mejor.

Leer Mas Descargar Ahora

Después de instalar Kutools para Excel de forma gratuita, haga lo siguiente:

1. Habilite el libro de trabajo cuyos nombres de archivo desea incluir, luego haga clic en Kutools Más > Import / Export > Lista de nombre de archivo.

2. En el Lista de nombre de archivo diálogo, en primer lugar, haga clic en  para seleccionar una carpeta en la que desea enumerar sus nombres de archivo, luego puede marcar las casillas de verificación de Incluir archivos en subdirectorios y Incluir archivos y carpetas ocultos como necesites.

3. Luego seleccione el formato de archivo en el que desea listar los nombres Tipo de archivos .

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

cheque Algunos opción, y seleccione el formato de archivo específico en el que desea enumerar los nombres de archivo de la lista desplegable, luego enumerará todos los nombres de archivo del formato de archivo que elija en la lista desplegable

cheque Especificar opción, luego escriba las extensiones de archivo (usando una coma para separarlas) desea enumerar los nombres de archivo en el cuadro de texto, luego solo enumerará los nombres de archivo con las extensiones de archivo de entrada en Excel

4. Elija la unidad de tamaño que necesite de la lista desplegable en Unidad de tamaño de archivo sección, si desea crear un enlace a los nombres de archivo, marque Crea hipervínculos .

5. Hacer clic en Ok, se creará una nueva hoja para enumerar los nombres de los archivos y cierta información del archivo.

Consejo: si desea enumerar todos los nombres de las hojas en Excel, puede aplicar Kutools para Excel ' Crear lista de nombres de hojas utilidad, creará una nueva hoja para enumerar todos los nombres de hojas enlazables.

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

Herramientas de productividad recomendadas

Pestaña de Office: exploración, edición y administración de documentos con pestañas en Microsoft Office 2019-2003 y Office 365

Descargar gratis

Un complemento profesional para acelerar Excel 2019-2007, reduce las horas de tareas a segundos

Este complemento incluye docenas de grupos profesionales, con más de 300 opciones que automatizarán la mayoría de sus tareas diarias en Excel y aumentarán su productividad al menos en un 50%. Como grupos de opciones de un clic y conversiones por lotes.
¡Ahora es tu oportunidad de acelerarte con Kutools para Excel!

Descargar gratis