Windows下用Excel配合Rename命令批量重命名文件

1、打开命令行工具，cd到要批量重命名文件的目录，用 dir /b>rename.xls，dir的参数可以百度一下

1.png

2、用Excel打开rename.xls，查看代码或按Alt+F11，打开VBA

2.png

3、打开VBA的菜单：工具->引用，引用Microsoft VBScript Regular Expressions 5.5

3.png

4、在工程里插入模块，编写代码并保存，如：

Function Rename(txt As String) As String
    Dim reg As New RegExp
    reg.Pattern = "\d{1,2}_(.*)"
    
    Dim mh As MatchCollection, m As Match
    Set mh = reg.Execute(txt)
    For Each m In mh
        Rename = m.SubMatches.Item(0)
    Next
End Function

4.png

5、然后在Excel第二列第一行插入 =Rename(A1) ，拖拽填充整列；在第三列第一行插入 ="ren """&A1&""" """&B1&"""" ，（Excel里转义用双引号），同样拖拽填充整列

5.png

6、选中第三列，复制到记事本，保存为rename.bat，放到需要批量重命名的目录

7、双击执行rename.bat，即可完成批量重命名