Как переместить определенные файлы из одной папки в другую в 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

Примечание: В приведенном выше коде "*.xlsx*", "*.jpg" в строке: xExtArr = Array("*.xlsx*", "*.jpg") — это типы файлов, которые вы хотите переместить; вы можете изменить их на другие или добавить другие типы файлов по мере необходимости.

3. Затем нажмите клавишу F5, чтобы запустить этот код, и появится окно, напоминающее вам выбрать исходную папку, из которой вы хотите переместить файлы, см. скриншот:

4. Затем нажмите OK, и появится еще одно окно, выберите целевую папку, куда вы хотите переместить файлы, см. скриншот:

5. Затем нажмите OK, появится диалоговое окно, сообщающее вам, сколько файлов было перемещено, закройте его, и вы увидите, что конкретные файлы jpg, xlsx были перемещены в указанную папку, см. скриншот: