Как переименовать несколько файлов в папке в Excel?
Возможно, большинство из нас страдает от этой проблемы, когда нам нужно переименовать несколько файлов в папке, переименование имен файлов по одному сведет нас с ума, если в этой папке есть сотни или тысячи файлов. Есть ли у нас какие-нибудь хорошие функции для решения этой задачи?
Список всех имен файлов из определенной папки на листе с помощью kutools for Excel
Переименовать несколько файлов в папке в Excel с кодом VBA
Список всех имен файлов из определенной папки на листе с помощью kutools for Excel
Если есть несколько файлов, которые вы хотите переименовать, сначала вы можете перечислить старые имена файлов в столбце рабочего листа, а затем ввести новые имена файлов, которые вы хотите заменить. Чтобы быстро перечислить все файлы на листе, вы можете использовать Kutools for ExcelАвтора Список имен файлов утилита.
После установки Kutools for Excel, пожалуйста, сделайте следующее :( Бесплатная загрузка Kutools для Excel сейчас )
1. Нажмите Кутулс Плюс > Импорт Экспорт > Список имен файлов, см. снимок экрана:
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: указывает на старый список имен файлов, который вы хотите переименовать, и ссылку B содержит новые имена файлов, которые вы хотите использовать, вы можете изменить их по своему усмотрению
Демонстрация: переименование нескольких файлов в папке в Excel
Статьи по теме:
Как создать рабочие листы последовательности из диапазона ячеек в Excel?
Как переименовать несколько листов в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!