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

也许我们大多数人都遇到过这样的问题：需要重命名文件夹中的多个文件，如果文件夹中有成百上千个文件，逐个重命名文件名会让我们抓狂。那么有没有什么好方法可以帮助我们完成这个任务呢？

步骤1：使用Kutools for Excel将特定文件夹中的所有文件名列举到工作表中

步骤2：使用VBA代码在Excel中重命名文件夹中的多个文件

使用Kutools for Excel将特定文件夹中的所有文件名列举到工作表中

如果有多个文件需要重命名，首先，可以将旧文件名列举在工作表的一列中，然后输入想要替换的新文件名。为了快速列出工作表中的所有文件，可以使用Kutools for Excel的文件名列表工具。

安装Kutools for Excel后，请按照以下步骤操作：（ 立即免费下载Kutools for Excel ）

1. 点击Kutools Plus > 导入与导出 > 文件名列表，参见截图：

2在 文件名列表 对话框中，点击 按钮选择要列出文件的文件夹，然后点击 所有文件 从 文件类型，参见截图：

3. 然后点击确定按钮，所有文件名都已列在一个新工作表的一列中，同时还会列出一些文件属性，现在您可以删除不需要的其他列，只保留文件名列，参见截图：

点击了解更多关于此文件名列表功能的信息…

立即免费下载Kutools for Excel

使用VBA代码在Excel中重命名文件夹中的多个文件

在A列中列出所有原始文件名后，您应该在B列中输入新的文件名，如下图所示：

在这里，我将介绍一个VBA代码，它可能帮助您一次性用新文件名替换旧文件名。请按照以下步骤操作：

1. 按住 ALT + F11键，打开Microsoft Visual Basic for Applications窗口。

2. 点击 插入 > 模块，并将以下宏粘贴到模块窗口中。

VBA代码：重命名文件夹中的多个文件

Sub RenameFiles()
'Updateby20141124
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

3. 粘贴代码后，请按F5键运行此代码，在 浏览窗口中，选择要更改文件名的文件夹，参见截图：

4. 然后点击确定，所有旧文件名都会立即被新文件名替换。参见截图：

注意：

1. 列出旧文件名和新文件名时，必须包含文件扩展名。

2. 在上述代码中，引用A:A表示要重命名的旧文件名列表，引用B包含要使用的新文件名，您可以根据需要进行更改。

演示：在Excel中重命名文件夹中的多个文件

相关文章：

如何在Excel中从单元格区域创建序列工作表？

如何在Excel中批量重命名多个工作表？