如何在Excel中重命名一個文件夾的多個文件？

可能我們大多數人都遭受這個問題的困擾，因為我們需要在一個文件夾中重命名多個文件，如果該文件夾中有成百上千個文件，那麼一一重命名文件名會使我們發瘋。 我們有什麼好的職能來處理這項任務嗎？

步驟 1：使用 kutools for Excel 列出工作表中特定資料夾中的所有檔案名

步驟2：使用VBA程式碼重新命名Excel中資料夾的多個文件

使用kutools for Excel列出工作表中特定文件夾中的所有文件名

如果有多個文件要重命名，首先，您可以在工作表的列中列出舊文件名，然後輸入要替換的新文件名。 要快速列出工作表中的所有文件，您可以使用 Excel的Kutools“ 文件名列表 效用。

安裝後 Excel的Kutools，請執行以下操作： 立即免費下載Kutools for Excel )

1。 點擊 Kutools 加 > 進出口 > 文件名列表，請參見屏幕截圖：

2。 在 文件名列表 對話框，單擊 按鈕選擇要列出文件的文件夾，然後單擊 所有文件 來自 檔案類型，請參見屏幕截圖：

3。 然後點擊 OK 按鈕，所有文件名都已列在新工作表的列中，以及一些文件屬性，現在，您可以刪除其他不需要的列，而只保留 文件名 列，請參見屏幕截圖：

單擊以了解有關此文件名列表功能的更多信息…

立即免費下載Kutools for Excel

使用VBA代碼重命名Excel中一個文件夾的多個文件

在 A 列中列出所有原始檔名後，您應該在 B 列中鍵入新檔名，如下圖所示：

在這裡，我將討論一個VBA代碼，該代碼可以幫助您立即用新文件名替換舊文件名。 請執行以下步驟：

1。 按住 ALT + F11 鍵，然後打開 Microsoft Visual Basic應用程序窗口.

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。 然後點擊 OK，所有舊文件名都立即被新文件名替換。 查看屏幕截圖：

注意：

1.當您列出新舊文件名時，必須包含文件擴展名。

2.在上面的代碼中，參考 答： 表示要重命名的舊文件名列表，並引用 B 包含您要使用的新文件名，您可以根據需要進行更改

演示：重命名Excel中一個文件夾的多個文件

相關文章：

如何從Excel中的一系列單元格創建序列工作表？

如何在Excel中重命名多個工作表？