Подтвердить что ты не робот

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

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

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

Xyz.jpg       >  Driving.jpg

123.jpg       >  Sunset.jpg

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

4b9b3361

ОТВЕТЫ

Ответ 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