如何在 Excel 中重命名文件夹中的多个文件?

ms excelmicrosoft technologiesadvanced excel function

您是否遇到过需要快速有效地重命名文件夹中的多个文件的情况?处理大量文件时，手动重命名每个文件可能非常耗时且容易出错。幸运的是，有一个利用 Microsoft Excel 功能的快速解决方案。

在本教程中，我们将逐步指导您如何使用 Excel 重命名文件夹中的多个文件。读完本文后，您将掌握一种简单高效的快速重命名文件的方法。

重命名文件夹中的多个文件

在这里，我们将首先创建一个 VBA 模块，然后选择文件夹来完成任务。让我们通过一个简单的过程来学习如何在 Excel 中重命名文件夹中的多个文件。

步骤 1

假设有一个 Excel 工作表，其中包含新名称和旧名称的列表，如下图所示。

首先，右键单击工作表名称，然后选择"查看代码"以打开 VBA 应用程序。

步骤 2

然后点击"插入"，选择"模块"，然后将以下代码复制到文本框中。

插入 > 模块 > 复制。

代码

Sub RenameFiles()
Dim xDir As String
Dim xFile As String
Dim xRow As Long
With Application.FileDialog(msoFileDialogFolderPicker)
   .AllowMultiSelect = False
If .Show = -1 Then
   xDir = .SelectedItems(1)
   xFile = Dir(xDir & Application.PathSeparator & "*")
   Do Until xFile = ""
      xRow = 0
      On Error Resume Next
      xRow = Application.Match(xFile, Range("A:A"), 0)
      If xRow > 0 Then
         Name xDir & Application.PathSeparator & xFile As _
         xDir & Application.PathSeparator & Cells(xRow, "B").Value
      End If
      xFile = Dir
   Loop
End If
End With
End Sub

代码中 A 列表示旧名称，B 列表示新名称。