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 cambiar el nombre de todos los nombres de las imágenes en una carpeta según una lista de celdas en Excel?

¿Alguna vez ha tratado de cambiar el nombre de las imágenes según una lista de celdas en la hoja? Si es así, ¿tiene algún truco para manejar el trabajo rápidamente sin cambiar el nombre de uno por uno? En este artículo, presento dos códigos VBA para manejar rápidamente este trabajo en Excel.

Cambiar el nombre de todos los nombres de las imágenes en una carpeta


Lista de nombre de archivo

¿Alguna vez ha encontrado un problema que enumera todos los archivos de información de una carpeta a una hoja? Aquí el Lista de nombre de archivo of Kutools foro Excel puede enumerar toda la información de los archivos, incluidos el nombre del archivo, la ruta del archivo, el tamaño del archivo, etc. de una carpeta a una hoja, y también, puede especificar el estilo de archivo que desea enumerar de una carpeta.
lista de archivos doc

Cambiar el nombre de todos los nombres de las imágenes en una carpeta


Para cambiar el nombre de todos los nombres de las imágenes en una carpeta específica, primero debe listar los nombres originales en la hoja.

1. Prensa Alt + F11 teclas para habilitar el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Módulo y pegue el código debajo del script.

VBA: Obtiene los nombres de las imágenes de una carpeta

Sub PictureNametoExcel()
'UpdatebyExtendoffice201709027
    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

3. Prensa F5 tecla para ejecutar el código, y aparece un cuadro de diálogo para recordarle que seleccione una celda para generar la lista de nombres. Ver captura de pantalla:
doc cambiar el nombre de la imagen en una carpeta 1

4. Hacer clic OK y para seleccionar la carpeta especificada cuyos nombres de imagen debe listar en la hoja de trabajo actual. Ver captura de pantalla:
doc cambiar el nombre de la imagen en una carpeta 2

5. Hacer clic OK. Los nombres de las imágenes se han enumerado en la hoja activa.

Entonces puedes cambiar el nombre de las imágenes.

1. Prensa Alt + F11 teclas para habilitar el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Módulo y pegue el código debajo del script.

VBA: consigue cambiar el nombre de las imágenes

Sub RenameFile()
'UpdatebyExtendoffice20170927
    Dim I As Long
    Dim xLastRow As Long
    Dim xAddress As String
    Dim xRgS, xRgD As Range
    Dim xNumLeft, xNumRight As Long
    Dim xOldName, xNewName As String
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRgS = Application.InputBox("Select Original Names(Single Column):", "KuTools For Excel", xAddress, , , , , 8)
    If xRgS Is Nothing Then Exit Sub
    Set xRgD = Application.InputBox("Select New Names(Single Column):", "KuTools For Excel", , , , , , 8)
    If xRgD Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    xLastRow = xRgS.Rows.Count
    Set xRgS = xRgS(1)
    Set xRgD = xRgD(1)
    For I = 1 To xLastRow
        xOldName = xRgS.Offset(I - 1).Value
        xNumLeft = InStrRev(xOldName, "\")
        xNumRight = InStrRev(xOldName, ".")
        xNewName = xRgD.Offset(I - 1).Value
        If xNewName <> "" Then
            xNewName = Left(xOldName, xNumLeft) & xNewName & Mid(xOldName, xNumRight)
            Name xOldName As xNewName
        End If
    Next
    MsgBox "Congratulations! You have successfully renamed all the files", vbInformation, "KuTools For Excel"
    Application.ScreenUpdating = True
End Sub

3. Prensa F5 tecla para ejecutar el código, y aparece un cuadro de diálogo para recordarle que seleccione los nombres de las imágenes originales que desea reemplazar. Ver captura de pantalla:
doc cambiar el nombre de la imagen en una carpeta 3

4. Hacer clic OKy seleccione los nuevos nombres que desea reemplazar los nombres de las imágenes dentro del segundo cuadro de diálogo. Ver captura de pantalla:
doc cambiar el nombre de la imagen en una carpeta 4

5. Hacer clic OK, aparece un cuadro de diálogo para recordarle que los nombres de las imágenes se han reemplazado con éxito.
doc cambiar el nombre de la imagen en una carpeta 5

6. Haga clic en Aceptar y los nombres de las imágenes hayan sido reemplazados por las celdas en la hoja.

doc cambiar el nombre de la imagen en una carpeta 6
flecha doc abajo
doc cambiar el nombre de la imagen en una carpeta 7

Artículos relativos


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.
    Sam Jones · 1 years ago
    Hi, i've tried using this however running the 'PictureNametoExcel' macro only returns the first photo file path name. The other photos in the folder wont be listed. Any help would be greatly appreciated.

    Side note: I've tested the 'RenameFile' Macro and that works perfectly

    Thanks
    Sam