重命名多个工作簿而不打开该工作簿

Question

我的文件夹中有一些工作簿，我想更改它们的名称而不打开它们。

通过某些功能，我选择了它们的旧名称并在excel单元格中添加了新名称。例子

AA1-\ ABC \ Working File \ 2020-07-17.xlsx AB 1-\ ABC \ Working File \ New_2020-07-17.xlsx

然后一直到空白行

你能帮我做同样的事情吗？

Answer 1

在VBA中使用名称功能

Sub Rename()
    For r = 1 To 1000  'each row, use for to prevent endless loop
        If (Sheets(1).Range("AA" + CStr(r)).Cells(1).Value) = "" Then Exit For
        'rename file
        Name Sheets(1).Range("AA" + CStr(r)).Cells(1).Value As Sheets(1).Range("AB" + CStr(r)).Cells(1).Value
    Next
End Sub