当面需要对文件/文件夹修改成特定的名称,手工输入只方便处理个位数的文件,一旦超过5个文件/文件夹需要修改名称,使用程序肯定是更简便的方法
一、批量重命名文件名称
1.得到指定文件夹下的所有文件名,在Excel中用“&”连接文件夹路径得到完整路径,推荐这篇这边文章:一个小技巧教你批量提取文件名称
2.输入修改后的文件路径及文件名
3.批量修改
代码如下:
Sub Rename()
Dim i As Long
For i = 2 To Range("a65536").End(3).Row
oldName = Range("a" & i).Text
newName = Range("b" & i).Text
Name oldName As newName
Next
MsgBox "已完成文件重命名。"
End Sub
二、批量重命名文件夹方法一
1.得到指定文件夹下的所有文件夹名称
代码如下:
Sub 提取指定文件夹内文件夹名字()
Dim Fso, Fld
Dim Arr(1 To 999), k%
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Fld = Fso.GetFolder(CreateObject("Shell.Application").BrowseForFolder(0, "请选择文件夹", 0, "").Self.Path & "")
For Each fd In Fld.SubFolders
k = k + 1
Arr(k) = fd.Name
Next
[a2].Resize(k) = Application.Transpose(Arr)
End Sub
2.输入修改后的文件名
3.批量修改
代码如下:
Sub Rename()
For i = 1 To Range("a65536").End(3).Row
Shell "c:\windows\system32\cmd.exe /c ren D:\示例\" & Range("a" & i) & " " & Range("b" & i) & ""
Next
End Sub
注意:红色的地址需要更换
批量重命名文件夹方法二:
1.在Excel文件中添加一列,输入“ren”,利用公式给文件名添加引号
2.新建txt文件,复制Excel除开第一行标题的数据,粘贴到txt文件内,保存后修改txt文件后缀为bat,双击运行即可
关注微信公众号,领取更多干货