Renommer des Fichiers avec Excel VBA

Voici ce que je dois faire. J'ai ces deux colonnes dans une feuille excel. Avec les noms de fichiers. La première colonne a le nom de fichier courant et la deuxième colonne contient les noms, je veux les fichiers à renommer. J'ai besoin de l'utiliser comme il n'y a pas de modèle de changement de nom. Par exemple, le dessous peut être un ensemble de fichiers ...

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

Xyz.jpg       >  Driving.jpg

123.jpg       >  Sunset.jpg

Je sais qu'il doit être facile de le faire en VBA, mais pas exactement comment. Toute aide serait grandement appréciée.

OriginalL'auteur redGREENblue | 2011-09-22

34

Je pense que vous pourriez faire quelque chose comme cela, à l'aide de la Name fonction pour renommer les fichiers, cependant, vous aurez probablement besoin de assurez-vous que les 2 colonnes ont le chemin de fichier complet, c'est à dire "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. Peut être intéressant d'ajouter une case de vide et de noms de fichier en double

OriginalL'auteur PaulStock

Vous devez vous connecter pour publier un commentaire.