在日常工作中,修改文件名称是平常的事情,如果只是修改一两个文件名,直接重命名鼠标点一点就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原创,欢迎关注,带你一起长知识!
,Copyright © 2008-2022 秒下下载站
m.down10s.com .All Rights Reserved