使用Excel VBA重命名文件

Question

使用Excel VBA重命名文件

23

我需要做的是，在Excel表格中有这两列内容，第一列是现有文件名，第二列是我想要将文件重命名为的名称。由于没有重命名的模式，所以我需要使用这个。例如，下面可能是一组文件...

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

Xyz.jpg       >  Driving.jpg

123.jpg       >  Sunset.jpg

我知道在 VBA 中应该很容易实现这个，但确切的方法我不太确定。非常感谢任何帮助。

- redGREENblue

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- PaulStock · Accepted Answer

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