使用 Excel VBA 重命名文件

这就是我需要做的。我在 Excel 工作表中有这两列。带文件名。第一列包含当前文件名，第二列包含我想要将文件重命名为的名称。我需要使用它，因为重命名没有模式。例如，下面可能是一组文件......

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

Xyz.jpg       >  Driving.jpg

123.jpg       >  Sunset.jpg

我知道在 VBA 中应该很容易做到这一点，但不完全确定如何做。任何帮助将非常感激。

我认为你可以做这样的事情，使用Name函数来重命名文件，但是，您可能需要确保两列具有完整的文件路径，即“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