Как переименовать сразу несколько файлов из папки в Excel?
Возможно, большинство из нас сталкивалось с этой проблемой: необходимо переименовать множество файлов в папке. Переименование имён файлов по одному свело бы нас с ума, если бы в этой папке находились сотни или даже тысячи файлов. Существуют ли удобные функции для решения этой задачи?
Шаг 1: Выведите все имена файлов из определённой папки на лист с помощью Kutools для Excel
Шаг 2: Переименуйте несколько файлов из папки в Excel с помощью кода VBA
Выведите все имена файлов из определённой папки на лист с помощью Kutools для Excel
Если вам нужно переименовать несколько файлов, сначала перечислите их текущие имена в столбце листа, а рядом укажите новые имена, на которые хотите их заменить. Чтобы быстро вывести все файлы на лист, воспользуйтесь функцией Kutools для Excel — Список имен файлов.
После установки Kutools для Excelвыполните следующие действия: ()Бесплатно скачать Kutools для Excel сейчас)
1. Нажмите KUTOOLS PLUS > Импорт/экспорт > Список имен файлов, см. снимок экрана:
2. В диалоговом окне Список имен файлов нажмите кнопку 
, чтобы выбрать папку с файлами, которые нужно вывести, затем в списке Тип файла выберите пункт Все файлы. См. снимок экрана:
3. Затем нажмите кнопку ОК, и все имена файлов вместе с некоторыми их атрибутами появятся на новом листе в виде столбца. Теперь вы можете удалить ненужные столбцы, оставив только столбец Имя файла (см. снимок экрана):
Нажмите, чтобы узнать больше об этой функции Список имен файлов…
Бесплатно скачать 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. Затем нажмите кнопку ОК, и все старые имена файлов немедленно заменятся новыми. См. снимки экрана:
 |  |  |
Примечания:
1. При указании старых и созданных файлов обязательно включайте расширение файла.
2. В приведённом выше коде ссылка A:A указывает на исходный список имён файлов, подлежащих переименованию, а ссылка B содержит новые имена файлов. При необходимости вы можете изменить эти ссылки.
Демонстрация: Переименование нескольких файлов из папки в Excel
См. также:
Как создать последовательность листов на основе диапазона ячеек в Excel?
Как выполнить пакетное переименование листов в Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек