Как да преименувам няколко файла от папка в Excel?
Може би повечето от нас страдат от този проблем, че трябва да преименуваме няколко файла в папка, преименуването на имената на файлове едно по едно ще ни направи луди, ако има стотици или хиляди файлове в тази папка. Има ли добри функции, за да се справим с тази задача?
Избройте всички имена на файлове от конкретна папка в работен лист с kutools за Excel
Преименувайте няколко файла на папка в Excel с VBA код
Избройте всички имена на файлове от конкретна папка в работен лист с kutools за Excel
Ако има няколко файла, които искате да преименувате, първо можете да изброите старите имена на файлове в колона на работния лист и след това да въведете новите имена на файлове, с които искате да замените. За да изброите бързо всички файлове в работния лист, можете да използвате Kutools за ExcelЕ Списък с имена на файлове полезност.
След инсталиране Kutools за Excel, моля, направете следното:( Безплатно изтегляне Kutools за Excel сега )
1. Щракнете Kutools плюс > Внос износ > Списък с имена на файлове, вижте екранна снимка:
2. В Списък с имена на файлове кликнете върху 
бутон, за да изберете файловата папка, в която искате да изброите файловете, и след това щракнете Всички файлове от Тип файлове, вижте екранна снимка:
3, След това кликнете OK всички имена на файлове са изброени в колона на нов работен лист, както и някои файлови атрибути и сега можете да изтриете други нежелани колони и да оставите само Име на файла колона, вижте екранна снимка:
Кликнете, за да научите повече за тази функция за списък с имена на файлове...
Безплатно изтегляне Kutools за Excel сега
Преименувайте няколко файла на папка в Excel с VBA код
След като изброите всички оригинални имена на файлове в една колона A, трябва да въведете нови имена на файлове в колона B, както е показано на следната екранна снимка:
И тук ще говоря за VBA код, който може да ви помогне да замените старите имена на файлове с новите имена на файлове наведнъж. Моля, направете следните стъпки:
1. Задръжте натиснат ALT + F11 ключове и отваря Прозорец на Microsoft Visual Basic за приложения.
2. Щракнете Поставете > Модулии поставете следния макрос в Прозорец на модула.
VBA код: Преименувайте няколко файла в папка
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. След като поставите кода, моля, натиснете F5 ключ за изпълнение на този код и в паса прозорец, изберете папката, в която искате да промените имената на файловете, вижте екранната снимка:
4, И после щракнете върху OK, всички стари имена на файлове са незабавно заменени с новите имена на файлове. Вижте екранни снимки:
 |
 |
 |
Забележки:
1. Когато изброявате вашите стари и нови имена на файлове, разширението на файла трябва да бъде включено.
2. В горния код препратката A:A показва стария списък с имена на файлове, които искате да преименувате, и препратка B съдържа новите имена на файлове, които искате да използвате, можете да ги промените според вашите нужди
Демонстрация: Преименувайте множество файлове от папка в Excel
Още по темата:
Как да създадете работни листове с последователност от диапазон от клетки в Excel?
Как да преименувам няколко работни листа в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
