Jak přesunout konkrétní soubory z jedné složky do druhé v aplikaci Excel?
Předpokládejme, že mám velkou složku, která obsahuje druhy souborů, jako jsou docx, jpg, xlsx atd., Jak je znázorněno na následujícím obrázku. Nyní chci přesunout některé konkrétní typy souborů ze složky do jiné nové složky, aniž bych jeden po druhém ručně přesunul. Máte nějaké dobré nápady, jak tento úkol vyřešit v aplikaci Excel?
Přesuňte konkrétní soubory z jedné složky do jiné složky pomocí kódu VBA
Přesuňte konkrétní soubory z jedné složky do jiné složky pomocí kódu VBA
Chcete-li přesunout všechny konkrétní typy souborů z jedné složky do druhé co nejrychleji, může vám pomoci následující kód VBA, udělejte to takto:
1. Udržet si ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: Přesuňte konkrétní typy souborů z jedné složky do jiné:
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
Poznámka: Ve výše uvedeném kódu, “* .xlsx *""* .jpg"ve skriptu: xExtArr = Array ("*. xlsx *", "* .jpg") jsou typy souborů, které chcete přesunout, můžete je změnit na jiné nebo podle potřeby přidat další typy souborů.
3. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a vyskočilo okno, které vám připomene, abyste vybrali původní složku, ze které chcete soubory přesunout, viz screenshot:
4. Pak klikněte na tlačítko OKa vyskočí další okno, vyberte prosím cílovou složku, kam chcete soubory přesunout, viz screenshot:
5. A pak klikněte na tlačítko OK, vyskočí okno s výzvou, které vám připomene, kolik souborů bylo přesunuto, zavřete jej a uvidíte konkrétní soubory jpg, soubory xlsx byly přesunuty do určené složky, viz screenshot:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!