使用 Excel VBA 重命名文件

Question

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

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

Xyz.jpg       >  Driving.jpg

123.jpg       >  Sunset.jpg

我知道在 VBA 中执行此操作应该很容易，但不确定如何操作。任何帮助将不胜感激。

Answer 1

我认为您可以这样做，使用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