Come spostare file specifici da una cartella all'altra in Excel?
Supponiamo di avere una cartella di grandi dimensioni che contiene tipi di file, come docx, jpg, xlsx, ecc.Come mostrato nella seguente schermata. Ora, voglio spostare alcuni tipi di file specifici dalla cartella a un'altra nuova cartella senza spostarli manualmente uno per uno. Hai qualche buona idea per risolvere questo compito in Excel?
Sposta file specifici da una cartella a un'altra cartella con codice VBA
Sposta file specifici da una cartella a un'altra cartella con codice VBA
Per spostare tutti i tipi specifici di file da una cartella all'altra alla velocità che desideri, il seguente codice VBA potrebbe aiutarti, per favore fai come segue:
1. Tieni premuto ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.
Codice VBA: sposta tipi specifici di file da una cartella a un'altra:
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
Note:: Nel codice sopra, "* .xlsx *""* .jpg"nello script: xExtArr = Array ("*. xlsx *", "* .jpg") sono i tipi di file che desideri spostare, puoi cambiarli con altri o aggiungere altri tipi di file di cui hai bisogno.
3. Quindi premere F5 chiave per eseguire questo codice e una finestra è spuntata per ricordarti di selezionare la cartella originale da cui vuoi spostare i file, vedi screenshot:
4. Quindi fare clic OKe viene visualizzata un'altra finestra, scegli la cartella di destinazione in cui desideri spostare i file, vedi screenshot:
5. E poi clicca OK, verrà visualizzata una finestra di messaggio per ricordarti quanti file sono stati spostati, chiudilo e puoi vedere lo specifico jpg, i file xlsx sono stati spostati nella cartella specificata, vedi screenshot:
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!