在日常工作中，修改文件名称是平常的事情，如果只是修改一两个文件名，直接重命名鼠标点一点就OK了。但是如果修改的数量非常大，比如说要修改1000张图片名称，在图片原名称上加上当月月份，那这个工作量就非常大了。下面就分享如果在30秒内完成这项工作的方法。
第一个大步骤：需要批量获取原文件名称所有的图片都放在一个叫“图片”的文件夹里面，如下图所示
批量获取文件名的方法有很多，本文是用VBA来完成
1、新建一张Excel工作簿——打开工作簿——鼠标放在工作表名上点击鼠标右键——点击查看代码
2、将代码复制到VBA编辑界面里，如下图所示位置
复制下面的代码(黑色加粗部分)↓↓↓↓↓↓↓↓
Sub 批量获取文件名()
Dim ss$, n%, fd, t$
Range("a1:a60000").ClearContents '先清空
[a1] = "原文件名"
Set fd = Application.FileDialog(msoFileDialogFolderPicker) '运行用户选择一个文件夹
If fd.Show = -1 Then
t = fd.SelectedItems(1) '记录这个文件夹名称
Else
Exit Sub '否则就退出程序
End If
ss = Dir(t & "\")
Do
n = n 1
Cells(n 1, 1) = ss
ss = Dir
Loop Until ss = ""
MsgBox "快学Excel提示您，程序运行完毕！"
End Sub
使用代码注意：(这里不是代码、请不要复制到这里哦)
（1）代码每次运行的时候都会清空A列，所以不用手动去删除原有的数据。
（2）需要修改的文件放在一个文件夹下面，不要放在这个文件夹下面的子文件夹，否则不会写入到Excel中。
3、运行代码，批量获取文件夹下面所有文件名
如下图所示，点击这个绿色三角，运行代码
此时选择文件所在的文件夹路径，然后点击确认。
当看到提示的时候，这个文件夹下面的所有文件名已经被写入到Excel里面了(下图红框处)
1、写ren命令
如果把所有的文件名前面统一加上4月这两个字，那么在Excel的C2单元格输入="4月"&A2，然后公式向下填充，这样就得到了新的文件名。
现在可以开始写ren命令了，语法：ren 空格 原文件名 空格 新文件名
在D2单元格输入="ren "&A2&" "&C2 然后公式向下填充
这里需要注意：
（1）这里所有的双引号都需要在英文输入法状态下输入，否则会报错
（2）"ren "这里，n后面我是加了一个空格的，不要少了这个空格
2、把命令复制到TXT文件，然后另存为bat格式并运行
在文件夹里面新建一个txt文件，也就是文本文档
打开文本文档，把ren命令复制到里面
然后点击另存为，路径还是这个文件夹，把TXT后缀名删除，改成bat，点击保存
这里需要注意：
（1）改后缀名的时候不要把那个“点”删掉了，只是把“点”后面txt换成bat
（2）上图红框处，如果这里默认不是ANSI，请手动选择ANSI，否则ren命令无效。很多人操作步骤没有问题，但是修改文件名不成功，问题就在这里。
然后双击后缀名为bat的文件
所有图片名称的前面瞬间加上4月这两个字
好了关于如何批量修改文件名称就分享到这里。
如果这篇文章能帮助到你，请帮忙点赞、收藏、转发。
本文由快学Excel原创，欢迎关注，带你一起长知识！
,
