Kako premakniti določene datoteke iz ene mape v drugo v Excelu?
Recimo, da imam veliko mapo, ki vsebuje vrste datotek, kot so docx, jpg, xlsx itd., Kot je prikazano na sliki spodaj. Zdaj želim premakniti nekatere določene vrste datotek iz mape v drugo novo mapo, ne da bi jih premaknili ročno. Ali imate kakšno dobro idejo za rešitev te naloge v Excelu?
Premaknite določene datoteke iz ene mape v drugo mapo s kodo VBA
Premaknite določene datoteke iz ene mape v drugo mapo s kodo VBA
Če želite vse določene vrste datotek premakniti iz ene mape v drugo, kakor hitro želite, vam bo morda v pomoč naslednja koda VBA, naredite naslednje:
1. Drži ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.
Koda VBA: premaknite določene vrste datotek iz ene mape v drugo:
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
Opombe: V zgornji kodi "* .xlsx *""* .jpg"v skriptu: xExtArr = matrika ("*. xlsx *", "* .jpg") so vrste datotek, ki jih želite premakniti, jih lahko spremenite v druge ali po potrebi dodate druge vrste datotek.
3. Nato pritisnite F5 tipko za zagon te kode in pojavilo se bo okno, ki vas bo opozorilo, da izberete izvirno mapo, iz katere želite premakniti datoteke, glejte posnetek zaslona:
4. Nato kliknite OKin prikaže se novo okno, izberite ciljno mapo, kamor želite premakniti datoteke, glejte sliko zaslona:
5. In nato kliknite OK, se bo pojavilo pozivno polje, ki vas bo opozorilo, koliko datotek je bilo premaknjenih, zaprite ga in vidite določene datoteke jpg, xlsx so bile premaknjene v določeno mapo, glejte posnetek zaslona:
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!