Cum să mutați anumite fișiere dintr-un dosar în altul în Excel?
Presupunând că am un folder mare care conține tipuri de fișiere, cum ar fi docx, jpg, xlsx, etc. Acum, vreau să mut anumite tipuri de fișiere specifice din folder într-un alt folder nou, fără a muta unul câte unul manual. Aveți idei bune pentru a rezolva această sarcină în Excel?
Mutați fișiere specifice dintr-un folder în alt folder cu cod VBA
Mutați fișiere specifice dintr-un folder în alt folder cu cod VBA
Pentru a muta toate tipurile specifice de fișiere dintr-un dosar în altul cât de repede doriți, următorul cod VBA vă poate ajuta, vă rugăm să faceți acest lucru:
1. Țineți apăsat ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.
Cod VBA: Mutați anumite tipuri de fișiere dintr-un dosar în altul:
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
notițe: În codul de mai sus, „* .xlsx *""* .jpg"în scenariu: xExtArr = Array ("*. xlsx *", "* .jpg") sunt tipurile de fișiere pe care doriți să le mutați, le puteți schimba la altele sau puteți adăuga alte tipuri de fișiere după cum aveți nevoie.
3. Apoi apăsați F5 pentru a rula acest cod și a apărut o fereastră pentru a vă reaminti să selectați folderul original din care doriți să mutați fișierele, a se vedea captura de ecran:
4. Apoi apasa OKși apare o altă fereastră, vă rugăm să alegeți folderul de destinație în care doriți să mutați fișierele, vedeți captura de ecran:
5. Apoi faceți clic pe OK, va apărea o casetă de prompt pentru a vă reaminti câte fișiere au fost mutate, închideți-o și puteți vedea fișierele jpg specifice, fișierele xlsx au fost mutate în folderul specificat, a se vedea captura de ecran:
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!