如何在Excel中将特定文件从一个文件夹移动到另一个文件夹？

网友投稿 257 2024-01-06

如何在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 多种场景中的工作。

📈 卓越的数据处理能力：合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力！