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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Примітки:

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

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

Демонстрація: перейменуйте кілька файлів папки в Excel

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

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

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