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:
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
