Aquí es lo que debo hacer. Tengo estos dos columnas en una hoja de excel. Con los nombres de archivo. La primera columna tiene el actual nombre de archivo y la segunda columna tiene los nombres que desea que los archivos se ha cambiado el nombre. Necesito usar esto como que no hay patrón en el cambio de nombre. Por ejemplo, el siguiente puede ser un conjunto de archivos …

Current Name >  Rename To
---------------------------
Abc.jpg       >   Dinner.jpg

Xyz.jpg       >  Driving.jpg

123.jpg       >  Sunset.jpg

Sé que debe ser fácil de hacer esto en VBA, pero no exactamente seguro de cómo. Cualquier ayuda sería muy apreciada.

OriginalEl autor redGREENblue | 2011-09-22

1 Comentario

  1. 38

    Creo que se podría hacer algo como esto, el uso de la Name función para cambiar el nombre de los archivos, sin embargo, usted probablemente tendrá que asegurarse de que el 2 columnas tienen el archivo completo de ruta de acceso, es decir, «C:\Temp\ABC.jpg»

    Dim Source As Range
    Dim OldFile As String
    Dim NewFile As String
    
    Set Source = Cells(1, 1).CurrentRegion
    
    For Row = 1 To Source.Rows.Count
        OldFile = ActiveSheet.Cells(Row, 1)
        NewFile = ActiveSheet.Cells(Row, 2)
    
        ' rename files
        Name OldFile As Newfile
    
    Next
    +1. Puede ser vale la pena agregar un cheque en blanco y nombres de archivo duplicados

    OriginalEl autor PaulStock

Dejar respuesta

Please enter your comment!
Please enter your name here