Переименование файлов с помощью Excel VBA

Question

Вот что мне нужно сделать. У меня есть эти две колонки в листе Excel. С именами файлов. Первый столбец имеет текущее имя файла, а второй столбец содержит имена, которые я хочу переименовать файлы. Мне нужно использовать это, поскольку в переименовании нет шаблона. Например, ниже может быть набор файлов ...

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

Xyz.jpg       >  Driving.jpg

123.jpg       >  Sunset.jpg

Я знаю, что это должно быть легко сделать в VBA, но не совсем уверен, как. Любая помощь будет высоко ценится.

Answer 1

Я думаю, что вы могли бы сделать что-то подобное, используя функцию Name для переименования файлов, однако вам, вероятно, нужно убедиться, что в 2 столбцах указан полный путь к файлу, то есть "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