修改用户文件夹名称_批量修改图片文件名称，我用了一天累得头晕眼花，同事只用了30秒...

在日常工作中，修改文件名称是平常的事情，如果只是修改一两个文件名，直接重命名鼠标点一点就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里面了(下图红框处)

第二个大步骤：用ren命令修改文件名

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原创，欢迎关注，带你一起长知识！