Перейти к основному содержанию

Как переименовать несколько файлов в папке в Excel?

Возможно, большинство из нас страдает от этой проблемы, когда нам нужно переименовать несколько файлов в папке, переименование имен файлов по одному сведет нас с ума, если в этой папке есть сотни или тысячи файлов. Есть ли у нас какие-нибудь хорошие функции для решения этой задачи?

Список всех имен файлов из определенной папки на листе с помощью kutools for Excel

Переименовать несколько файлов в папке в Excel с кодом VBA


Если есть несколько файлов, которые вы хотите переименовать, сначала вы можете перечислить старые имена файлов в столбце рабочего листа, а затем ввести новые имена файлов, которые вы хотите заменить. Чтобы быстро перечислить все файлы на листе, вы можете использовать Kutools for ExcelАвтора Список имен файлов утилита.

После установки Kutools for Excel, пожалуйста, сделайте следующее :( Бесплатная загрузка Kutools для Excel сейчас )

1. Нажмите Кутулс Плюс > Импорт Экспорт > Список имен файлов, см. снимок экрана:

2. В Список имен файлов диалоговое окно, нажмите документ переименовать несколько файлов-1 кнопку, чтобы выбрать папку с файлами, в которой вы хотите отобразить файлы, а затем нажмите Все файлы из Тип файлов, см. снимок экрана:

документ переименовать несколько файлов-1

3. Затем нажмите OK кнопки, все имена файлов были перечислены в столбце нового рабочего листа, а также некоторые атрибуты файла, и теперь вы можете удалить другие ненужные столбцы и оставить только Имя файла столбец, см. снимок экрана:

документ переименовать несколько файлов-1

Нажмите, чтобы узнать больше об этой функции списка имен файлов…

Бесплатная загрузка Kutools для Excel сейчас


После перечисления всех исходных имен файлов в одном столбце A вы должны ввести новые имена файлов в столбце B, как показано на следующем снимке экрана:

документ переименовать несколько файлов-1

И здесь я расскажу о коде 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 ключ для запуска этого кода, и в ЛИСТАТЬ СПИСКИ В окне выберите папку, в которой вы хотите изменить имена файлов, см. снимок экрана:

документ переименовать несколько файлов-1

4, Затем нажмите OK, все старые имена файлов были немедленно заменены новыми именами файлов. Смотрите скриншоты:

документ переименовать несколько файлов-1 2 документ переименовать несколько файлов-1

Ноты:

1. Когда вы перечисляете старые и новые имена файлов, расширение файла должно быть включено.

2. В приведенном выше коде ссылка A: указывает на старый список имен файлов, который вы хотите переименовать, и ссылку B содержит новые имена файлов, которые вы хотите использовать, вы можете изменить их по своему усмотрению


Kutools for Excel: с более чем 300 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 30 дней. Загрузите и бесплатную пробную версию прямо сейчас!

Статьи по теме:

Как создать рабочие листы последовательности из диапазона ячеек в Excel?

Как переименовать несколько листов в Excel?

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (38)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Great! it work for me
This comment was minimized by the moderator on the site
The above stated code does not detect native language file names in Hindi or Marathi - example "HIN-MALE-CH - 7 - कार"
Here the code does not detect "कार"
Any way to handle this issue?
This comment was minimized by the moderator on the site
Sziasztok!
Ha kép nevébe "/" jelet akarok rakni, akkor min kell változtatnom?
Ha benne van a "/" jel akkor nekem nem működik.

Köszönöm
Andor
This comment was minimized by the moderator on the site
Hello, Benedeczki,

Under normal circumstances, the file name cannot contain the /\:*?<>” symbol, so if your picture name contains the / symbol, the code cannot run normally.
You'd better to remove the / symbol from the file name.
Thank you!
This comment was minimized by the moderator on the site
wow, useful and very helpful. BIG THANKS :)
This comment was minimized by the moderator on the site
Sub RenameMultipleFiles()
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
If .Show = -1 Then
selectDirectory = .SelectedItems(1)
dFileList = Dir(selectDirectory & Application.PathSeparator & "*")

Do Until dFileList = ""
curRow = 0
On Error Resume Next
curRow = Application.Match(dFileList, Range("A:A"), 0)
If curRow > 0 Then
Name selectDirectory & Application.PathSeparator & dFileList As _
selectDirectory & Application.PathSeparator & Cells(curRow, "B").Value
End If

dFileList = Dir
Loop
End If
End With
End Sub

this formula does not rename1st document
This comment was minimized by the moderator on the site
Love this so much! Is there a way to use Kutools to edit metadata tags for music similar to this with filenames? Would love being able to mass edit song tags through Excel rather than on iTunes or other third party song tag editors. Thank you!
This comment was minimized by the moderator on the site
okay Thank you
This comment was minimized by the moderator on the site
Hello. I did this for a couple of files and it worked successfully. The next few files i tried, did not work. There were a few formulas added to the new names, could that be the issue?
This comment was minimized by the moderator on the site
Very helpful. Thank you!
This comment was minimized by the moderator on the site
great, worked great for me
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations