Hur flyttar man specifika filer från en mapp till en annan i Excel?

Om jag antar att jag har en stor mapp som innehåller typer av filer, såsom docx, jpg, xlsx, etc. som följande skärmdump visas. Nu vill jag flytta några specifika filtyper från mappen till en annan ny mapp utan att flytta en efter en manuellt. Har du några bra idéer för att lösa denna uppgift i Excel?

Flytta specifika filer från en mapp till en annan mapp med VBA-kod

Flytta specifika filer från en mapp till en annan mapp med VBA-kod

För att flytta alla specifika filtyper från en mapp till en annan så snabbt du vill kan följande VBA-kod hjälpa dig, gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.

VBA-kod: Flytta specifika typer av filer från en mapp till en annan:

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

Anmärkningar: I ovanstående kod, "* .xlsx *""* .jpg"i manuset: xExtArr = Array ("*. xlsx *", "* .jpg") är de filtyper du vill flytta, kan du ändra dem till andra eller lägga till andra filtyper efter behov.

3. Tryck sedan på F5 nyckel för att köra den här koden och ett fönster dök upp för att påminna dig om att välja den ursprungliga mappen där du vill flytta filerna från, se skärmdump:

4. Klicka sedan OK, och ett annat fönster dyker upp, välj destinationsmapp där du vill flytta filerna till, se skärmdump:

5. Och klicka sedan på OK, kommer en snabbruta att dyka upp för att påminna dig om hur många filer som har flyttats, stäng den och du kan se den specifika jpg, xlsx-filer har flyttats till den angivna mappen, se skärmdump: