我的文件夹中有一些工作簿,我想更改它们的名称而不打开它们。
通过某些功能,我选择了它们的旧名称并在excel单元格中添加了新名称。例子
AA1-\ ABC \ Working File \ 2020-07-17.xlsx AB 1-\ ABC \ Working File \ New_2020-07-17.xlsx
然后一直到空白行
你能帮我做同样的事情吗?
答案 0 :(得分:-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