Jak zmienić nazwę wielu plików folderu w programie Excel?
Być może większość z nas cierpi z powodu tego problemu, że musimy zmienić nazwy wielu plików w folderze, a zmiana nazw plików jedna po drugiej doprowadzi nas do szaleństwa, jeśli w tym folderze są setki lub tysiące plików. Czy są dla nas jakieś dobre funkcje, aby poradzić sobie z tym zadaniem?
Wyświetl wszystkie nazwy plików z określonego folderu w arkuszu za pomocą kutools dla programu Excel
Zmień nazwę wielu plików folderu w programie Excel za pomocą kodu VBA
Wyświetl wszystkie nazwy plików z określonego folderu w arkuszu za pomocą kutools dla programu Excel
Jeśli istnieje wiele plików, których nazwy chcesz zmienić, najpierw możesz wyświetlić listę starych nazw plików w kolumnie arkusza, a następnie wprowadzić nowe nazwy plików, które chcesz zastąpić. Aby szybko wyświetlić listę wszystkich plików w arkuszu, możesz użyć rozszerzenia Kutools dla programu Excel'S Lista nazw plików użyteczność.
Po zainstalowaniu Kutools dla programu Excelwykonaj następujące czynności :( Bezpłatne pobieranie Kutools dla programu Excel teraz )
1. Kliknij Kutools Plus > Import Eksport > Lista nazw plikówzobacz zrzut ekranu:
2, w Lista nazw plików okno dialogowe, kliknij 
, aby wybrać folder plików, w którym chcesz wyświetlić listę plików, a następnie kliknij Wszystkie pliki z Typ plikówzobacz zrzut ekranu:
3. Następnie kliknij OK przycisk, wszystkie nazwy plików zostały wymienione w kolumnie nowego arkusza, a także niektóre atrybuty plików, a teraz możesz usunąć inne niechciane kolumny i pozostawić tylko Nazwa pliku kolumna, patrz zrzut ekranu:
Kliknij, aby dowiedzieć się więcej o tej funkcji listy nazw plików…
Bezpłatne pobieranie Kutools dla programu Excel teraz
Zmień nazwę wielu plików folderu w programie Excel za pomocą kodu VBA
Po wypisaniu wszystkich oryginalnych nazw plików w jednej kolumnie A i powinieneś wpisać nowe nazwy plików w kolumnie B, jak pokazano na poniższym zrzucie ekranu:
Tutaj opowiem o kodzie VBA, który może pomóc w natychmiastowej zamianie starych nazw plików na nowe. Wykonaj następujące czynności:
1. Przytrzymaj ALT + F11 klucze i otwiera plik Okno Microsoft Visual Basic for Applications.
2. Kliknij wstawka > Modułi wklej następujące makro w Okno modułu.
Kod VBA: zmień nazwę wielu plików w folderze
Sub RenameFiles()
'Updateby20141124
Dim xDir As String
Dim xFile As String
Dim xRow As Long
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
If .Show = -1 Then
xDir = .SelectedItems(1)
xFile = Dir(xDir & Application.PathSeparator & "*")
Do Until xFile = ""
xRow = 0
On Error Resume Next
xRow = Application.Match(xFile, Range("A:A"), 0)
If xRow > 0 Then
Name xDir & Application.PathSeparator & xFile As _
xDir & Application.PathSeparator & Cells(xRow, "B").Value
End If
xFile = Dir
Loop
End If
End With
End Sub
3. Po wklejeniu kodu naciśnij F5 klucz do uruchomienia tego kodu oraz w Przeglądaj wybierz folder, w którym chcesz zmienić nazwy plików, zobacz zrzut ekranu:
4. A następnie kliknij OK, wszystkie stare nazwy plików zostały natychmiast zastąpione nowymi. Zobacz zrzuty ekranu:
 |
 |
 |
Uwagi:
1. Gdy wymieniasz stare i nowe nazwy plików, należy podać rozszerzenie pliku.
2. W powyższym kodzie odniesienie Odp .: A wskazuje starą listę nazw plików, której nazwę chcesz zmienić, i do której należy się odwoływać B zawiera nowe nazwy plików, których chcesz użyć, możesz je zmienić według potrzeb
Demo: zmień nazwę wielu plików w folderze w programie Excel
Podobne artykuły:
Jak tworzyć arkusze sekwencji z zakresu komórek w programie Excel?
Jak zmienić nazwę wielu arkuszy w programie Excel?
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!
