Перейти до основного матеріалу

Як перейменувати кілька файлів папки в Excel?

Можливо, більшість із нас страждає від цієї проблеми, що нам потрібно перейменовувати декілька файлів у папці; перейменування імен файлів одне за одним зводить нас з розуму, якщо в цій папці є сотні чи тисячі файлів. Чи є якісь хороші функції для вирішення цього завдання?

Перерахуйте всі імена файлів із певної папки на аркуші за допомогою Kutools для Excel

Перейменуйте кілька файлів папки в Excel за допомогою коду VBA


Якщо є кілька файлів, які потрібно перейменувати, спочатку можна вказати старі імена файлів у стовпці аркуша, а потім ввести нові імена файлів, якими потрібно замінити. Щоб швидко перерахувати всі файли на аркуші, ви можете використовувати Kutools для ExcelАвтора Список імен файлів утиліта

після установки Kutools для Excel, будь ласка, зробіть наступне :( Безкоштовно завантажте Kutools для Excel зараз )

1. Клацання Kutools Plus > Імпорт-експорт > Список імен файлів, див. скріншот:

2, в Список імен файлів діалогове вікно натисніть кнопку doc-rename-multiple-files-1 , щоб вибрати папку файлів, до якої потрібно перерахувати файли, а потім натисніть Всі файли від Тип файлів, див. скріншот:

doc-rename-multiple-files-1

3. Потім натисніть OK кнопки, усі імена файлів були перелічені в стовпці нового аркуша, а також деякі атрибути файлів, і тепер ви можете видалити інші небажані стовпці і лише залишити File Name стовпець, див. скріншот:

doc-rename-multiple-files-1

Натисніть, щоб дізнатися більше про цю функцію списку імен файлів…

Безкоштовно завантажте Kutools для Excel зараз


Після перерахування всіх оригінальних імен файлів в одному стовпці A, і ви повинні ввести нові імена файлів у стовпці B, як показано на наступному знімку екрана:

doc-rename-multiple-files-1

І тут я розповім про код VBA, який може допомогти вам замінити старі імена файлів одразу новими. Будь ласка, виконайте такі дії:

1. Утримуйте клавішу ALT + F11 і відкриває Вікно Microsoft Visual Basic для програм.

2. Клацання Insert > Модуліта вставте наступний макрос у Вікно модуля.

Код 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 ключ для запуску цього коду, а в перегорнути вікно, виберіть папку, в якій ви хочете змінити імена файлів, див. знімок екрана:

doc-rename-multiple-files-1

4. А потім клацніть OK, всі старі імена файлів були негайно замінені новими. Дивіться скріншоти:

doc-rename-multiple-files-1 2 doc-rename-multiple-files-1

Примітки:

1. Коли ви перелічуєте свої старі та нові імена файлів, розширення файлу має бути включене.

2. У наведеному вище коді посилання A: A вказує на старий список імен файлів, який потрібно перейменувати, та посилання B містить нові імена файлів, які ви хочете використовувати, ви можете змінити їх за вашими потребами


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

Статті по темі:

Як створити робочі аркуші послідовностей з ряду комірок у Excel?

Як перейменувати кілька робочих аркушів у Excel?

Найкращі інструменти продуктивності офісу

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

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 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