可借助Power Query生成重命名清单，再通过PowerShell、CMD批处理或VBA三种方式批量修改文件名：Power Query负责提取路径与构造新名，PowerShell调用Move-Item，CMD生成ren命令，VBA用FSO.MoveFile直接执行。
如果您需要在Excel中批量修改大量文件的名称，但手动重命名效率低下且容易出错，则可以借助Power Query实现自动化处理。以下是完成此任务的具体步骤：
一、准备文件路径与原始文件名列表
Power Query无法直接修改操作系统中的文件名，因此需先获取目标文件夹内所有文件的完整路径及当前名称，再通过外部脚本或Excel联动方式触发重命名操作。本方法以生成标准化新文件名并导出重命名指令为核心。
1、新建Excel工作簿，进入“数据”选项卡，点击“获取数据”→“从文件”→“从文件夹”。
2、在弹出窗口中选择目标文件夹，点击“确定”，Power Query将自动加载该目录下所有文件的元数据表。
3、在查询编辑器中，保留“Name”（原始文件名）、“Folder Path”（文件夹路径）两列，删除其他无关列。
4、添加自定义列，命名为“新文件名”，使用公式如：Text.Replace([Name],"旧关键词","新关键词") 或 "Report_" & Date.ToText(DateTime.LocalNow(),"yyyyMMdd") & "_" & Number.ToText([Index]) & ".xlsx" 生成符合规范的新名称。
二、生成带完整路径的新文件名清单
为确保后续可执行重命名，必须构造包含源路径与目标路径的对照表，以便配合PowerShell或批处理调用。
1、新增列“源完整路径”，公式为：[Folder Path] & [Name]。
2、新增列“目标完整路径”，公式为：[Folder Path] & [新文件名]。
3、选中“源完整路径”和“目标完整路径”两列，右键→“复制”。
4、粘贴至新工作表，保存为CSV格式，供外部脚本读取。
三、使用PowerShell脚本执行批量重命名
Excel本身不具备文件系统写入权限，需借助PowerShell调用系统命令完成实际重命名动作。该脚本读取Excel导出的CSV对照表，逐行执行Move-Item指令。
1、打开记事本，输入以下内容：
$csv = Import-Csv "C:\path\to\rename_list.csv"
foreach ($row in $csv) { Move-Item -Path $row."源完整路径" -Destination $row."目标完整路径" -Force }
2、将上述代码中“C:\path\to\rename_list.csv”替换为实际CSV文件的绝对路径。
3、将文件另存为“RenameFiles.ps1”，注意编码选择UTF-8无BOM。
4、以管理员身份运行PowerShell，执行：Set-ExecutionPolicy RemoteSigned -Scope CurrentUser，解除脚本运行限制。
5、执行：.\RenameFiles.ps1。
四、利用Excel公式+CMD批处理间接实现
若受限于环境无法运行PowerShell，可生成标准CMD命令行语句，在Windows资源管理器地址栏中直接执行。
1、在Excel中新增列“CMD命令”，输入公式：="ren """&A2&""""&" """&C2&""" "（假设A列为源完整路径，C列为目标文件名）。
2、将整列“CMD命令”复制，粘贴至记事本，另存为“rename.bat”，编码为ANSI。
3、将该BAT文件置于待重命名文件所在同一父目录下。
4、双击运行BAT文件，系统将按顺序执行所有ren命令。
五、通过VBA调用FSO对象完成重命名
VBA具备FileSystemObject对象，可在Excel内部直接操作文件系统，无需导出中间文件。
1、按Alt+F11打开VBA编辑器，插入新模块。
2、粘贴以下代码：
Sub BatchRenameFiles()
Dim fso As Object, oldPath As String, newPath As String
Set fso = CreateObject("Scripting.FileSystemObject")
For i = 2 To Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
oldPath = Sheets(1).Cells(i, 1).Value
newPath = Sheets(1).Cells(i, 2).Value
If fso.FileExists(oldPath) Then fso.MoveFile oldPath, newPath
Next i
End Sub
3、确保Sheet1的A列含源完整路径，B列含目标完整路径。
4、运行宏，VBA将逐行调用FSO.MoveFile方法完成重命名。
