如何在Excel中重新命名資料夾中的多個檔案？

您是否曾經遇到過需要快速有效地重新命名資料夾中多個檔案的情況？當處理大量檔案時，手動重新命名每個檔案可能既費時又容易出錯。幸運的是，有一個快速解決方案，它利用了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:A表示舊名稱，B列表示新名稱。

步驟 3

然後點選F5執行模組。然後選擇包含檔案的資料夾，然後點選“確定”以完成任務。

F5 > 選擇資料夾 > 確定。

這就是如何在Excel中重新命名資料夾中的多個檔案。

結論

在本教程中，我們使用了一個簡單的示例來演示如何在Excel中重新命名資料夾中的多個檔案，以突出顯示特定資料集。

更新於： 2023年9月27日

640 次檢視

開啟您的 職業生涯

透過完成課程獲得認證

開始學習
廣告