我批量更改了图像文件的名称. 使用一天后，我头晕目眩，而我的同事只花了30秒

在日常工作中，通常会修改文件名. 如果只想修改一个或两个文件名，则可以直接重命名鼠标，然后单击“确定”. 但是，如果修改量很大，例如，如果您要修改1000张图片的名称并将当前月份的月份添加到图片的原始名称，则此工作量将非常大. 这是在30秒内完成这项工作的方法.

第一步: 您需要分批获取原始文件名

所有图片都放在一个名为“图片”的文件夹中，如下图所示

有很多方法可以批量获取文件名，本文是使用VBA完成的

1. 创建一个新的Excel工作簿-打开工作簿-将鼠标放在工作表名称上修改照片，然后单击鼠标右键单击以查看代码

2. 将代码复制到VBA编辑界面，如下图所示

复制以下代码（黑色粗体部分）↓↓↓↓↓↓↓↓

子批次获取文件名（）

Dim ss $，n％，fd，t $

范围（“ a1: a60000”）. ClearContents的空优先

[a1] =“原始文件名”

设置fd = Application.FileDialog（msoFileDialogFolderPicker）'运行用户以选择文件夹

如果fd.Show = -1那么

t = fd.SelectedItems（1）'记录此文件夹的名称

其他

退出Sub'否则退出程序

如果结束

ss = Dir（t＆“ \”）

做

n = n +1

像元（n + 1，1）= ss

ss = Dir

循环直到ss =“”

MsgBox“快速学习Excel会提示您程序已完成！”

结束子

使用代码的注意事项: （这不是代码，请不要在此处复制）

（1）每次运行该代码时，该代码都会清除A列，因此无需手动删除原始数据.

（2）要修改的文件放置在一个文件夹下，请勿放置在该文件夹下的子文件夹中，否则它将不会被写入Excel.

3. 运行代码并批量获取文件夹下的所有文件名

如下所示，单击绿色三角形以运行代码

这时，选择文件所在的文件夹路径，然后单击“确定”.

看到提示时，此文件夹下的所有文件名均已写入Excel（下面的红色框）

第二步: 使用ren命令修改文件名

1. 写人命令

如果在所有文件名前面加上“ April”一词，请在Excel的C2单元格中输入“ April”和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的文件

在所有图片的名称之前立即添加单词“ April”

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/ruanjian/article-194870-1.html