hola quisiera saber si mediante este ejemplo de datos adjuntos en esta hoja excel se puede reemplazar los datos en forma masiva mediante alguna formula por ejemplo:

carpeta cualquiera que contiene archivos de fotos enumeradas asi, (101.JPG, 102.jpg, 103.jpg, 105.jpg. etc ) y que mediante una accion se pueda cambiar quede asi 7.991.437-k.jpg en el fondo quiero renombrar una gran cantidad de archivos cambiandole el numero por el rut (numero unico de carne para los chilenos). la esencia de mi consulta es poderle poner el rut a cada foto que se encuentra en una carpeta mediante una formula que me permita llevarme los datos que se encuentra en una hoja excel. gracias por su innegable ayuda.

Te adjunto la macro RENOMBRAR_ARCHIVOS que hace lo siguiente:

Renombra todos los archivos de la columna 1 con el nombre de la columna 2, y deja un indicador del resultado de la operación en la columna 3 ("OK"= Operación correcta, " "=Archivo no encontrado)

CÓDIGO: SELECCIONAR TODO

Dim Objeto_Ficheros As Object

Dim Lista_Ficheros As Object

Dim Ficheros As Object

Dim Fichero As Object


Sub RENOMBRAR_ARCHIVOS()

'--------------------------------------------------------------

Set Objeto_Ficheros = CreateObject("Scripting.FileSystemObject")

Set Lista_Ficheros = Objeto_Ficheros.GetFolder(ThisWorkbook.Path & "\")

Set Ficheros = Lista_Ficheros.Files

'--------------------------------------------------------------

x = 1

While ActiveSheet.Cells(x, 1) <> ""

    If ActiveSheet.Cells(x, 3) <> "OK" Then

       For Each Fichero In Ficheros

           If UCase(Fichero) = UCase(ThisWorkbook.Path & "\" & ActiveSheet.Cells(x, 1)) Then

              Fichero.Copy ThisWorkbook.Path & "\" & ActiveSheet.Cells(x, 2), True

              Fichero.Delete

              ActiveSheet.Cells(x, 3) = "OK"

              Exit For

           End If

       Next

    End If

x = x + 1

Wend

End Sub[/CODE]

(Autor: Macro Antonio)

Nota: El libro que contenga esta macro y los archivos a renombrar, deben estar en el mismo directorio

acá otra solución

https://www.ayudaexcel.com/foro/macros-programacion-vba-10/solucionado-renombrar-directorio-18174/

Espero que sea lo que necesitas

Saludos

:encouragement: Wil

debo probar esta formula pero en forma visual como debo hacerlo porfa gracias