如何基于Excel中的列表將文件從一個(gè)文件夾復(fù)制或移動(dòng)到另一個(gè)文件夾？

如果您在工作表的一列中有文件名列表，并且這些文件位于您的Computor的文件夾中。 但是，現(xiàn)在，您需要將這些名稱已在工作表中列出的文件從其原始文件夾移動(dòng)或復(fù)制到另一個(gè)文件，如下圖所示。 您如何在Excel中盡快完成此任務(wù)？

使用VBA代碼基于Excel中的列表將文件從一個(gè)文件夾復(fù)制或移動(dòng)到另一個(gè)文件夾

使用VBA代碼基于Excel中的列表將文件從一個(gè)文件夾復(fù)制或移動(dòng)到另一個(gè)文件夾

若要基于文件名列表將文件從一個(gè)文件夾移動(dòng)到另一個(gè)文件夾，請(qǐng)按照以下VBA代碼進(jìn)行操作：

1。 按住 Alt + F11鍵 鍵，然后打開 Microsoft Visual Basic應(yīng)用程序 窗口。

2。 點(diǎn)擊 插頁 > 模塊，然后將以下VBA代碼粘貼到“模塊窗口”中。

VBA代碼：根據(jù)Excel中的列表將文件從一個(gè)文件夾移動(dòng)到另一個(gè)文件夾

Sub movefiles()Updateby ExtendofficeDim xRg As Range, xCell As RangeDim xSFileDlg As FileDialog, xDFileDlg As FileDialogDim xSPathStr As Variant, xDPathStr As VariantDim xVal As StringOn Error Resume NextSet xRg = Application.InputBox("Please select the file names:", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)If xRg Is Nothing Then Exit SubSet xSFileDlg = Application.FileDialog(msoFileDialogFolderPicker)xSFileDlg.Title = " Please select the original folder:"If xSFileDlg.Show <> -1 Then Exit SubxSPathStr = xSFileDlg.SelectedItems.Item(1) & ""Set xDFileDlg = Application.FileDialog(msoFileDialogFolderPicker)xDFileDlg.Title = " Please select the destination folder:"If xDFileDlg.Show <> -1 Then Exit SubxDPathStr = xDFileDlg.SelectedItems.Item(1) & ""For Each xCell In xRgxVal = xCell.ValueIf TypeName(xVal) = "String" And xVal <> "" ThenFileCopy xSPathStr & xVal, xDPathStr & xValKill xSPathStr & xValEnd IfNextEnd SubCopy

3。 然后按 F5 鍵運(yùn)行此代碼，然后會(huì)彈出一個(gè)提示框，提醒您選擇包含文件名的單元格，請(qǐng)參見屏幕截圖：

4。 然后點(diǎn)擊 OK 按鈕，然后在彈出的窗口中，選擇包含您要移動(dòng)的文件的文件夾，請(qǐng)參見屏幕截圖：

5。 然后點(diǎn)擊 OK，在另一個(gè)彈出的窗口中繼續(xù)選擇要在其中找到文件的目標(biāo)文件夾，請(qǐng)參見屏幕截圖：

6。 最后點(diǎn)擊 OK 關(guān)閉窗口，現(xiàn)在，文件已根據(jù)工作表列表中的文件名移動(dòng)到您指定的另一個(gè)文件夾中，請(qǐng)參見屏幕截圖：

備注：如果您只想將文件復(fù)制到另一個(gè)文件夾，但保留原始文件，請(qǐng)使用以下VBA代碼：

VBA代碼：根據(jù)Excel中的列表將文件從一個(gè)文件夾復(fù)制到另一個(gè)文件夾

Sub copyfiles()Updateby ExtendofficeDim xRg As Range, xCell As RangeDim xSFileDlg As FileDialog, xDFileDlg As FileDialogDim xSPathStr As Variant, xDPathStr As VariantDim xVal As StringOn Error Resume NextSet xRg = Application.InputBox("Please select the file names:", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)If xRg Is Nothing Then Exit SubSet xSFileDlg = Application.FileDialog(msoFileDialogFolderPicker)xSFileDlg.Title = "Please select the original folder:"If xSFileDlg.Show <> -1 Then Exit SubxSPathStr = xSFileDlg.SelectedItems.Item(1) & ""Set xDFileDlg = Application.FileDialog(msoFileDialogFolderPicker)xDFileDlg.Title = "Please select the destination folder:"If xDFileDlg.Show <> -1 Then Exit SubxDPathStr = xDFileDlg.SelectedItems.Item(1) & ""For Each xCell In xRgxVal = xCell.ValueIf TypeName(xVal) = "String" And xVal <> "" ThenFileCopy xSPathStr & xVal, xDPathStr & xValEnd IfNextEnd SubCopy

最佳辦公生產(chǎn)力工具

將小時(shí)轉(zhuǎn)化為分鐘 Kutools for Excel!

準(zhǔn)備好增強(qiáng)您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時(shí)間的工具。 簡(jiǎn)化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗(yàn) Excel！

為什么需要 Kutools for Excel