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

假设我有一个包含多种文件的大文件夹，例如 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

备注：在上述代码中，脚本 xExtArr = Array("*.xlsx*", "*.jpg") 中的 "*.xlsx*" 和 "*.jpg" 是您要移动的文件类型，您可以根据需要更改或添加其他文件类型。

3. 然后按 F5 键运行此代码，会弹出一个窗口，提示您选择要从中移动文件的原始文件夹，见截图：

4. 然后单击“确定”，会弹出另一个窗口，请选择要将文件移动到的目标文件夹，见截图：

5. 然后单击“确定”，会弹出一个提示框，告知您已移动了多少文件，关闭它，您可以看到特定的 jpg、xlsx 文件已被移动到指定的文件夹中，见截图：