Renommer des fichiers avec Excel VBA
Voici ce que je dois faire. J'ai ces deux colonnes dans une feuille Excel. Avec des noms de fichiers. La première colonne a le nom de fichier actuel et la deuxième colonne a les noms auxquels je veux que les fichiers soient renommés. Je dois l'utiliser car il n'y a pas de modèle de changement de nom. Par exemple, ce qui suit 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 devrait être facile de le faire dans VBA, mais je ne sais pas exactement comment. Toute aide serait très appréciée.
Je pense que vous pourriez faire quelque chose comme ça, en utilisant la fonction Name pour renommer les fichiers, cependant, vous devrez probablement vous assurer que les 2 colonnes ont le chemin complet du fichier, 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