formula para cambiar numero de archivo por otro numero

carlop55 · el 12 de abril

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.

rulesagain · el 12 de abril

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]