Jump to content

formula para cambiar numero de archivo por otro numero


Recommended Posts

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.

post-43906-145877004544_thumb.jpg

Link to comment
Share on other sites

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

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy