如何在Excel中將特定文件從一個文件夾移動到另一個文件夾？

網友投稿 407 2025-03-31

如何在Excel中將特定文件從一個文件夾移動到另一個文件夾？

假設，我有一個大文件夾，其中包含各種文件，例如docx，jpg，xlsx等，如下面的屏幕快照所示。現在，我想將某些特定的文件類型從文件夾移動到另一個新文件夾，而無需手動一個個地移動。您有什么好主意可以解決Excel中的此任務嗎？

使用VBA代碼將特定文件從一個文件夾移動到另一個文件夾

驚人的！在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！ 每天節省50％的時間，并減少數千次鼠標單擊！

若要將所有特定類型的文件從一個文件夾快速移動到另一個文件夾，以下VBA代碼可能會為您提供幫助：

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

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

Copy

備注：在上面的代碼中，“* .xlsx *“”* .jpg在腳本中： xExtArr = Array（“ *。xlsx *”，“ * .jpg”） 是您要移動的文件類型，您可以將它們更改為其他文件類型或根據需要添加其他文件類型。

3。然后按 F5 鍵運行此代碼，并彈出一個窗口，提醒您選擇要從中移動文件的原始文件夾，請參見屏幕截圖：

4。然后點擊 OK，然后會彈出另一個窗口，請選擇要將文件移動到的目標文件夾，請參見屏幕截圖：

5。然后點擊 OK，將彈出一個提示框，提醒您已移動了多少文件，將其關閉，您可以看到特定的jpg，xlsx文件已移動到指定的文件夾，請參見屏幕截圖：

最佳辦公生產力工具

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

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

為什么需要 Kutools for Excel

??? 超過 300 項強大功能: Kutools 包含 300 多項高級功能，可簡化您在 1500 多種場景中的工作。

?? 卓越的數據處理能力：合并單元格、刪除重復項并執行高級數據轉換 - 所有這些都不費吹灰之力！