¿Cómo renombrar todos los archivos de imagen de una carpeta según una lista de celdas en Excel?
¿Ha necesitado alguna vez renombrar varias imágenes de una carpeta según una lista de nombres en una hoja de Excel? Hacerlo una por una puede llevar mucho tiempo, pero con la ayuda de códigos VBA podrá automatizar el proceso rápidamente.
Renombrar Todos los Archivos de Imagen en una carpeta
Renombrar Todos los Archivos de Imagen en una carpeta
Para renombrar Todos los Archivos de Imagen en una carpeta especificada, siga estos pasos:
Paso 1: Importe los nombres originales de los archivos desde la carpeta a una hoja de Excel
1. Pulse las teclas «Alt + F11» para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en «Insertar» > «Módulo» y pegue el siguiente código en el script.
VBA: Recuperar nombres de imágenes desde 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, ".gif") + 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. Pulse la tecla "F5" para ejecutar el código y aparecerá un cuadro de diálogo que le recordará seleccionar una celda en la que mostrar la lista de nombres. Vea la captura de pantalla:
4. Haga clic en «Aceptar» y seleccione la carpeta específica cuyos nombres de imagen desea listar en la hoja de trabajo actual. Vea la captura de pantalla:
5. Haga clic en «Aceptar». Los nombres de las imágenes ya aparecen en la hoja de cálculo actual.
Paso 2: Renombrar los archivos de imagen según una nueva Lista de nombres
1. Pulse las teclas «Alt + F11» para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en «Insertar» > «Módulo» y pegue el siguiente código en el script.
VBA: Renombrar archivos de imagen en una carpeta
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 Sub3. Pulse la tecla "F5" para ejecutar el código y aparecerá un cuadro de diálogo que le recordará que seleccione los nombres originales de las imágenes que desea reemplazar. Vea la captura de pantalla:
4. Haga clic en «Aceptar» y seleccione el nuevo nombre con el que desea reemplazar los nombres de las imágenes en el segundo cuadro de diálogo. Vea la captura de pantalla:
5. Haga clic en «Aceptar» y aparecerá un cuadro de diálogo informándole de que los nombres de las imágenes se han reemplazado correctamente.
6. Haga clic en «Aceptar» y los nombres de las imágenes de la carpeta se reemplazarán por los nuevos nombres indicados en las celdas de la hoja.
 |
 |
 |
Artículos relacionados:
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos