excel批量修改文件名
时间: 2023-09-30 13:03:18 浏览: 57
你可以使用 Excel VBA 来批量修改文件名。以下是一个示例代码,你可以根据自己的需求进行修改和适配:
```vba
Sub RenameFiles()
Dim oldPath As String
Dim newPath As String
Dim newName As String
Dim i As Integer
' 设置旧文件路径
oldPath = "D:\OldPath\"
' 循环遍历 Excel 表格中的每一行,从第2行开始
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
' 获取新文件路径和新文件名
newPath = "D:\NewPath\" ' 设置新文件路径
newName = Cells(i, 1).Value ' 文件名在第1列
' 检查文件是否存在
If Dir(oldPath & newName) <> "" Then
' 修改文件名
Name oldPath & newName As newPath & newName
Cells(i, 2).Value = "修改成功" ' 在第2列标记为成功
Else
Cells(i, 2).Value = "文件不存在" ' 在第2列标记为文件不存在
End If
Next i
End Sub
```
在上述代码中,我假设你的文件名数据存储在 Excel 的第1列,从第2行开始。你需要将旧文件路径和新文件路径分别设置为正确的路径。代码会逐行读取 Excel 数据,并尝试将旧文件路径下的文件重命名为新文件路径下的对应文件名。
请确保在修改文件名前备份好原始文件,在运行代码之前先进行测试,以免造成不可逆的损失。