Jak przenieść określone pliki z jednego folderu do drugiego w programie Excel?
Przypuśćmy, że mam duży folder zawierający rodzaje plików, takie jak docx, jpg, xlsx itp., Jak pokazano na zrzucie ekranu. Teraz chcę przenieść określone typy plików z folderu do innego nowego folderu bez ręcznego przenoszenia jednego po drugim. Czy masz jakieś dobre pomysły na rozwiązanie tego zadania w programie Excel?
Przenieś określone pliki z jednego folderu do innego folderu za pomocą kodu VBA
Przenieś określone pliki z jednego folderu do innego folderu za pomocą kodu VBA
Aby przenieść wszystkie określone typy plików z jednego folderu do drugiego tak szybko, jak chcesz, poniższy kod VBA może ci pomóc, wykonaj następujące czynności:
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: Przenieś określone typy plików z jednego folderu do drugiego:
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: W powyższym kodzie „* .xlsx *""* .jpgw scenariuszu: xExtArr = Array ("*. xlsx *", "* .jpg") to typy plików, które chcesz przenieść, możesz je zmienić na inne lub dodać inne, jeśli potrzebujesz.
3. Następnie naciśnij F5 klucz do uruchomienia tego kodu i wyskoczyło okno przypominające o wybraniu oryginalnego folderu, z którego chcesz przenieść pliki, zobacz zrzut ekranu:
4. Następnie kliknij OKi pojawi się kolejne okno, wybierz folder docelowy, do którego chcesz przenieść pliki, zobacz zrzut ekranu:
5. A następnie kliknij OK, pojawi się okno zachęty, aby przypomnieć ci, ile plików zostało przeniesionych, zamknij je i możesz zobaczyć określone pliki jpg, xlsx zostały przeniesione do określonego folderu, patrz zrzut ekranu:
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!