Excel批量改名技巧：PowerQuery自动重命名方法

本文详细介绍了如何利用Excel的Power Query结合PowerShell、CMD批处理或VBA三种方式，高效、安全地实现大批量文件的自动化重命名——Power Query负责智能提取文件路径、清洗原始名称并生成规范的新文件名及源/目标路径对照表，再通过外部脚本或内置VBA直接调用系统级文件操作命令，彻底摆脱手动重命名的低效与易错困境，特别适合财务、行政、数据运营等需频繁整理报表、合同、扫描件等批量文档的职场用户快速落地应用。

如果您需要在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方法完成重命名。

文中关于的知识介绍，希望对你的学习有所帮助！若是受益匪浅，那就动动鼠标收藏这篇《Excel批量改名技巧：PowerQuery自动重命名方法》文章吧，也可关注golang学习网公众号了解相关技术文章。