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

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

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

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

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

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

安裝后 Kutools for Excel，請執行以下操作：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()Updateby20141124Dim xDir As StringDim xFile As StringDim xRow As LongWith Application.FileDialog(msoFileDialogFolderPicker).AllowMultiSelect = FalseIf .Show = -1 ThenxDir = .SelectedItems(1)xFile = Dir(xDir & Application.PathSeparator & "*")Do Until xFile = ""xRow = 0On Error Resume NextxRow = Application.Match(xFile, Range("A:A"), 0)If xRow > 0 ThenName xDir & Application.PathSeparator & xFile As _xDir & Application.PathSeparator & Cells(xRow, "B").ValueEnd IfxFile = DirLoopEnd IfEnd WithEnd SubCopy

3。 粘貼代碼后，請按 F5 鍵來運行此代碼，然后在 瀏覽 窗口中，選擇要在其中更改文件名的文件夾，請參見屏幕截圖：

4。 然后點擊 OK，所有舊文件名都立即被新文件名替換。 查看屏幕截圖：

筆記：

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

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

演示：重命名Excel中一個文件夾的多個文件 Kutools for Excel：具有300多個方便的Excel加載項，可以在內，沒有任何限制。 立即下載并！

相關文章：

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

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

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel