Hogyan lehet bizonyos fájlokat áthelyezni egyik mappából a másikba az Excelben?
Tegyük fel, hogy van egy nagy mappám, amely különféle fájlokat tartalmaz, például docx, jpg, xlsx stb. Most néhány konkrét fájltípust szeretnék áthelyezni a mappából egy másik új mappába anélkül, hogy manuálisan egyenként áthelyezném őket. Van valami jó ötlete a feladat Excelben történő megoldására?
Konkrét fájlokat helyezhet át egyik mappából egy másik VBA kóddal ellátott mappába
Konkrét fájlokat helyezhet át egyik mappából egy másik VBA kóddal ellátott mappába
Ha az összes meghatározott fájltípust egyik mappából a másikba szeretné áthelyezni, amilyen gyorsan csak akarja, a következő VBA-kód segíthet, kérjük, tegye a következőket:
1. Lefog ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA kód: Bizonyos típusú fájlok áthelyezése egyik mappából egy másikba:
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
Megjegyzések: A fenti kódban "* .xlsx *""* .jpg"a szkriptben: xExtArr = Tömb ("*. xlsx *", "* .jpg") az áthelyezni kívánt fájltípusok, megváltoztathatja őket másokra, vagy más fájltípusokat is felvehet, ha szükséges.
3. Ezután nyomja meg a gombot F5 gomb a kód futtatásához, és egy ablak jelent meg, amely emlékeztet arra, hogy válassza ki az eredeti mappát, ahonnan a fájlokat áthelyezni szeretné, lásd a képernyőképet:
4. Ezután kattintson OK, és egy másik ablak jelenik meg, kérjük, válassza ki a célmappát, ahová át szeretné helyezni a fájlokat, lásd a képernyőképet:
5. Kattintson a gombra OK, megjelenik egy prompt doboz, amely emlékezteti Önt, hogy hány fájl került áthelyezésre, zárja be, és láthatja, hogy az adott jpg, xlsx fájlok átkerültek a megadott mappába, lásd a képernyőképet:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!