有的时候，我们需要批量修改文件名称。比如批量在文件名称后添加固定信息。这时如果逐个文件名去修改就比较麻烦了。

但是在Excel中更改文字是比较快捷的。可以按照一定规律，利用Excel的快速录入功能。即使没有一定的规律，在Excel里修改，再统一保存比逐个去修改快得多。

摘自：小林子-Office中国

批量修改文件名效果图：

批量修改文件名动画图：

    批量修改文件名VBA代码

    Dim filePath As Variant            '定义filepath为变量     Dim obj As Object                  '定义obj为变量对象     Dim fld, ff, gg                    '定义fld,ff,gg为变量     Sub getpath()         Range("A2:C1000").ClearContents               '清空A2：C1000列         On Error Resume Next         Dim shell As Variant         Set shell = CreateObject("Shell.Application")         Set filePath = shell.BrowseForFolder(&O0, "选择文件夹", &H1 + &H10, "")   '获取文件夹路径地址         Set shell = Nothing       If filePath Is Nothing Then                 '检测是否获得有效路径，如取消直接跳出程序            Exit Sub         Else            gg = filePath.Items.Item.path       End If         Set obj = CreateObject("Scripting.FileSystemObject")   '定义变量         Set fld = obj.getfolder(gg)                            '获取路径          For Each ff In fld.Files                   '遍历文件夹里文件             m = m + 1             Cells(m + 1, 1) = ff.Name             Cells(m + 1, 2) = "→"             Cells(m + 1, 3) = ff.Name           Next     End Sub          Sub renamefile()          On Error Resume Next          If [a2] = "" Then MsgBox "请点击第一步": Exit Sub           For Each ff In fld.Files                 '遍历文件夹里的所有文件             m = m + 1            ff.Name = Cells(m + 1, 3)              '将实际文件名改成目录中C列的对应文件名           Next           MsgBox "改名已完成，请检查", vbOKOnly     End Sub