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

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

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

使用VBA代碼將特定文件從一個文件夾移動到另一個文件夾驚人的！ 在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！每天節省50％的時間，并減少數千次鼠標單擊！

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

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

2。 點擊 插頁 > 模塊，然后將以下代碼粘貼到 模塊 窗口。

VBA代碼：將特定類型的文件從一個文件夾移動到另一文件夾：

Sub MoveFiles()Updateby ExtendofficeDim xFd As FileDialogDim xTFile As StringDim xExtArr As VariantDim xExt As VariantDim xSPath As StringDim xDPath As StringDim xSFile As StringDim xCount As LongSet xFd = Application.FileDialog(msoFileDialogFolderPicker)xFd.Title = "Please select the original folder:"If xFd.Show = -1 ThenxSPath = xFd.SelectedItems(1)ElseExit SubEnd IfIf Right(xSPath, 1) <> "" Then xSPath = xSPath + ""xFd.Title = "Please select the destination folder:"If xFd.Show = -1 ThenxDPath = xFd.SelectedItems(1)ElseExit SubEnd IfIf Right(xDPath, 1) <> "" Then xDPath = xDPath + ""xExtArr = Array("*.xlsx*", "*.jpg")For Each xExt In xExtArrxTFile = Dir(xSPath & xExt)Do While xTFile <> ""xSFile = xSPath & xTFileFileCopy xSFile, xDPath & xTFileKill xSFilexTFile = DirxCount = xCount + 1LoopNextMsgBox "Total number of moved files is: " & xCount, vbInformation, "Kutools for Excel"End SubCopy

備注：在上面的代碼中，“* .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