首先通过VBA创建FileSystemObject对象，再设定目标文件夹路径并读取Excel中A列旧名与B列新名的映射关系，循环判断文件是否存在后执行重命名，同时可添加前缀、后缀或批量修改名称，确保无冲突且程序稳定运行。
如果您需要在Excel中处理大量文件并统一修改其名称，可以通过VBA编写脚本实现对指定文件夹内文件的批量重命名。该方法适用于需要根据特定规则或数据列表自动更改文件名的场景。
本文运行环境：联想ThinkPad X1 Carbon，Windows 11。
一、使用VBA读取文件列表并批量重命名
通过Excel VBA调用FileSystemObject对象，可以扫描指定文件夹中的所有文件，并根据Excel表格中的新名称逐一进行重命名操作。
1、打开Excel文件，按Alt + F11进入VBA编辑器界面。
2、插入一个新模块，选择“插入”菜单下的“模块”选项。
3、在模块中输入以下代码：
Set fso = CreateObject("Scripting.FileSystemObject")用于创建文件系统对象，以便访问文件和文件夹信息。
4、设定目标文件夹路径，例如：folderPath = "C:\MyFiles\"，确保该路径末尾包含反斜杠。
5、使用循环语句遍历Excel列中的旧名称与新名称，查找对应文件并执行重命名。
二、基于Excel数据映射表重命名文件
当存在多个文件需按照预定义名称更改时，可在Excel工作表中建立两列：A列为原始文件名（含扩展名），B列为新文件名。VBA脚本将依据此映射关系完成重命名。
1、在Sheet1中填写A列原始文件名，B列对应的新名称。
2、编写VBA代码读取每一行数据，如：oldName = Cells(i, 1).Value 和 newName = Cells(i, 2).Value。
3、判断目标文件是否存在，使用条件语句：If fso.FileExists(folderPath & oldName) Then。
4、执行重命名操作：fso.GetFile(folderPath & oldName).Name = newName。
5、添加错误处理机制，跳过不存在或已被占用的文件名，避免程序中断。
三、添加文件名前缀或后缀
若所有文件需统一增加标识符，可通过VBA自动为每个文件名添加指定前缀或后缀，提高命名一致性。
1、在Excel中设置要添加的字符串，例如前缀“报告_”或后缀“_已完成”。
2、编写循环结构读取文件夹内所有文件名。
3、使用字符串连接操作：newFileName = "前缀_" & file.Name 或 newFileName = Replace(file.Name, ".", "_副本.")。
4、检查新名称是否已存在，防止重名冲突。
5、调用Rename方法完成更名：file.Name = newFileName。
