Excel批量改名技巧：PowerQuery自动化操作

小伙伴们有没有觉得学习文章很有意思？有意思就对了！今天就给大家带来《Excel批量改名技巧 Power Query自动化操作》，以下内容将会涉及到，若是在学习中对其中部分知识点有疑问，或许看了本文就能帮到你！

可借助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方法完成重命名。

今天关于《Excel批量改名技巧：PowerQuery自动化操作》的内容介绍就到此结束，如果有什么疑问或者建议，可以在golang学习网公众号下多多回复交流；文中若有不正之处，也希望回复留言以告知！