如何在 Excel 中將特定檔案從一個資料夾移動到另一個資料夾？

作者Xiaoyang修改日期2024-08-12

假設我有一個大型資料夾，裡面包含各種類型的檔案，例如 .docx、。jpg、。xlsx 等（如下方截圖所示）。現在，我想將其中特定類型的檔案自動移動到一個新建的資料夾，而不必逐一手動搬移。您是否知道如何在 Excel 中輕鬆完成這項任務？

將特定檔案從一個資料夾移動到另一個資料夾

使用 VBA 程式碼將特定檔案從一個資料夾移動到另一個資料夾

使用 VBA 程式碼將特定檔案從一個資料夾移動到另一個資料夾

若要快速將所有特定檔案類型從一個資料夾移至另一個資料夾，以下 VBA 程式碼或許能協助您，請依照下列步驟操作：

1. 按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 點選插入＞模組，並將下列程式碼貼到模組視窗中。

VBA 程式碼：將特定檔案類型從一個資料夾移動到另一個資料夾：

Sub MoveFiles()
'Updateby Extendoffice
    Dim xFd As FileDialog
    Dim xTFile As String
    Dim xExtArr As Variant
    Dim xExt As Variant
    Dim xSPath As String
    Dim xDPath As String
    Dim xSFile As String
    Dim xCount As Long
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Please select the original folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xFd.Title = "Please select the destination folder:"
    If xFd.Show = -1 Then
        xDPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xDPath, 1) <> "\" Then xDPath = xDPath + "\"
    xExtArr = Array("*.xlsx*", "*.jpg")
    For Each xExt In xExtArr
        xTFile = Dir(xSPath & xExt)
        Do While xTFile <> ""
            xSFile = xSPath & xTFile
            FileCopy xSFile, xDPath & xTFile
            Kill xSFile
            xTFile = Dir
            xCount = xCount + 1
        Loop
    Next
    MsgBox "Total number of moved files is: " & xCount, vbInformation, "Kutools for Excel"
End Sub

注意：在上述程式碼中，“*.xlsx*" 與 “*.jpg" 是由腳本中的 xExtArr = Array("*.xlsx*", "*.jpg") 所指定的檔案類型。您可依需求更改為其他副檔名，或新增更多檔案類型！

3. 接著按下 F5 鍵執行此程式碼，隨即會彈出視窗提示您選取欲搬移檔案的原始資料夾，請參閱截圖：

選取要從中移動檔案的原始資料夾

4. 然後點選確定，將會再彈出另一個視窗，請選擇欲搬移檔案的目標資料夾，請參閱截圖：

選擇要將檔案移動到的目的資料夾

5. 接著點選確定，會出現提示方塊告知您已成功搬移多少個檔案，關閉該提示後，即可看到指定的 jpg、xlsx 檔案已移至目標資料夾，請參閱截圖：

特定檔案已一次性移動完成

太神奇了！在 Excel 中使用高效 Tabs，就像 Chrome、Edge、Firefox 和 Safari 一樣！
每天為您節省 50% 的時間，並減少數千次滑鼠點擊！

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多