Ver originales (Francés)

Nombrar archivos en masa a partir de una lista

Philobae Mensajes publicados 1 Estado Miembro -  
contrariness Mensajes publicados 344 Fecha de registro   Estado Miembro Última intervención   -
Hola,
Aquí está mi problema:
Por un lado tengo una gran cantidad de archivos (800) que tienen cada uno un nombre específico y por otro lado un archivo de Excel que contiene la lista de estos archivos en un campo y en otro campo un nuevo nombre que me gustaría asignar a cada archivo.
¿Existe alguna forma de renombrar automáticamente estos archivos?
Gracias.

5 respuestas

  1.
    pilas31 Mensajes publicados 1878 Estado Colaborador 648
     
    Hola,

    Aquí tienes un ejemplo de macro que hace el trabajo: 
    Sub Renombra_fich()
    Dim Ruta As String
    Ruta = "C:\Users\.....\"
    For linea = 1 To 800
    Name Ruta & Cells(linea, 1) As Ruta & Cells(linea, 2)
    Next linea
    End Sub

    En Ruta hay que poner la ruta del directorio que contiene los archivos a renombrar.
    En mi ejemplo, el nombre antiguo (con la extensión) se encuentra en la columna A y el nuevo nombre (siempre con la extensión) en la columna B.
    Solo hay que adaptarlo.
    Quizás agregar una gestión de errores si un archivo no existe.
    ¡Hasta luego!
    Atentamente,
    12