Как переименовать файлы согласно таблице excel

Данная команда позволяет массово переименовывать файлы в любой папке Вашего ПК непосредственно из MS Excel.

Чтобы воспользоваться данной командой создайте в своей рабочей книге MS Excel список файлов, которые вы хотите переименовать (так это можно сделать быстро):

Пропишите рядом со «старыми» именами файлов — «новые» имена (так можно быстро добавить год к названию файлов):

Затем выделите диапазон ячеек со старыми и новыми названиями файлов, перейдите во вкладку «ЁXCEL» Главного меню, нажмите кнопку «Файлы» и выберите команду «Переименовать файлы«:

В открывшемся диалоговом окне укажите папку, в которой расположены файлы для переименования и нажмите :

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

Отмена этой операции не предусмотрена, но вы легко можете вернуть «старые» названия файлов. Для этого поменяйте столбцы с «новыми» и «старыми» названиями файлов местами (так это можно сделать быстро):

И повторите операцию по переименованию. «Старые» названия файлов будут возвращены.

Добавить комментарий

Источник

В этом посте я расскажу, как за два нажатия и полминуты вашего времени переименовать файлы в папке на компьютере согласно данным из таблицы Microsoft Excel.

Когда это может пригодиться

Наверное, первый вопрос, который возникает в голове: «А зачем?». Мне такой сценарий тоже никогда в голову не приходил, пока в Сети я не нашёл вопрос от владельца интернет-магазина.

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

Для этого нужно в таблице Excel подготовить список артикулов, а затем сфотографировать все товары в том же порядке, что данные в таблице. А затем просто автоматически переименовать их.

Переименовываем файлы

Скачайте файл Rename the Multiple files.xlsm по ссылке в конце статьи и откройте его.

В файле есть три основных поля:

Первое — список файлов из папки, которые нужно переименовать.
Второе — новое название для файлов, включая расширение.
Третье — путь до папки с файлами.

Теперь приступим к переименованию. Для этого положите все файлы, которые нужно переименовать в отдельную папку, а в файле Rename the Multiple files в ячейке Folder Path укажите путь до этой папки, и нажмите кнопку Get Information.

После этого в столбце Current Name появится список файлов из папки. В столбце New Name укажите новое название для файлов, и нажмите кнопку Rename the File. И готово, все файлы переименованы.

Заветный файлик спрятан под катом 👇 (нажми кнопку Подписаться).

Теги:
Windows
Microsoft Excel

Источник

Содержание

Как переименовать файлы согласно таблице MS Excel
Когда это может пригодиться
Переименовываем файлы
Пакетное переименование файлов
Данная функция является частью надстройки MulTEx
Как переименовать файлы согласно таблице excel
Как переименовать файлы согласно таблице MS Excel
Когда это может пригодиться
Переименовываем файлы
Групповое переименование файлов. Универсальная утилита в Excel.

Как переименовать файлы согласно таблице MS Excel

Когда это может пригодиться

Переименовываем файлы

Скачайте файл Rename the Multiple files.xlsm по ссылке в конце статьи и откройте его.

В файле есть три основных поля:

Первое — список файлов из папки, которые нужно переименовать.
Второе — новое название для файлов, включая расширение.
Третье — путь до папки с файлами.

Заветный файлик спрятан под катом 👇 (нажми кнопку Подписаться).

Источник

Пакетное переименование файлов

Данная функция является частью надстройки MulTEx

Описание, установка, удаление и обновление
Полный список команд и функций MulTEx
Часто задаваемые вопросы по MulTEx
Скачать MulTEx

Вызов команды:
MulTEx -группа Специальные —Особые возможности —Пакетное переименование файлов

Данная команда поможет быстро переименовать сразу множество указанных файлов. Можно назначить переименование с нумерацией или на основании списка. Файлы могут быть любого типа — Excel, Word, картинки, текстовые и т.д.

Просматривать файлы:

только выбранные — после нажатия кнопки ОК появится диалоговое окно, в котором необходимо выбрать файлы для переименования
все в папке — после нажатия кнопки ОК появится диалоговое окно выбора папки. Выбирается папка, файлы в которой необходимо просмотреть и переименовать

Метод переименования:

Только нумерация — имена всех выбранных файлов переименовываются в порядковые номера — 1, 2, 3 и т.д.
Нумерация с префиксом — в поле указывается префикс(на примере это — новый_ ), который будет добавлен перед номером файла. После нажатия ОК и указания файлов, выбранным файлам будут даны имена с указанным префиксом и порядковым номером. В приведенном выше примере файлы будут переименованы в: новый_1 , новый_2 , новый_3 , новый_4 и т.д. Если префикс не указан, то появится предупреждение и поле можно оставить пустым. Однако даже если непосредственно префикс не указан, нижнее подчеркивание все равно будет добавлено перед нумерацией( _1 , _2 , _3 , _4 ).
Сопоставление — переименовывает файлы по списку. В первом столбце указанного диапазона записывается текущее имя файла, а во втором — новое, которое надо дать файлу после переименования. К примеру на рисунке ниже файл с именем Картинка_1 будет переименован в Цветы , файл Фото в Пейзаж , а Книга1 в Прайс .
рис.2
В ячейках должны быть записаны только имена файлов, без расширения (.png, .xls,.docx и т.д.).
Для создания списка файлов для переименования можно воспользоваться командой Путь к файлу(выбрав только имена файлов —без расширения типа файла). Это поможет избежать ошибок неверного написания имени файла.
Если файл из указанного диапазона будет отсутствовать среди выбранных файлов, то он не будет переименован. Однако это не вызовет ошибки выполнения

Переименованные файлы:

Оставить в исходной папке — будут переименованы исходные файлы. Отменить данную операцию нельзя.
Переместить в папку — все переименованные файлы будут перемещены в указанную папку.

Добавлять нумерацию к файлам с одинаковым именем — если в качестве метода переименования выбрано Сопоставление, то есть вероятность, что имена файлов будут повторяться, если при этом так же выбран просмотр всех файлов в папке и подпапках. Для файлов разного типа это не критично, а для файлов одного типа это недопустимо. Например, в одной папке могут находится два файла » Первый квартал.xls » и » Первый квартал.pdf » , однако не может быть два файла » Первый.xls » . Если установлен пункт Добавлять нумерацию к файлам с одинаковым именем, то будет создано два файла: «Первый квартал.xls» и «Первый квартал(1).xls» (если одинаковых имен больше — нумерация продолжается). Если пункт Добавлять нумерацию к файлам с одинаковым именем снят, то файлы с совпадающими именами не переименовываются и весь их список можно будет просмотреть в конце обработки.

По окончании обработки будет выведено окно сообщения с информацией о количестве переименованных файлов. Если не все файлы были переименованы, то по окончании выполнения так же будет показано сообщение с указанием количества файлов, которые не удалось переименовать и будет предложено вывести список не переименованных файлов в новую книгу Excel (книга создается автоматически). Будет создан список с именем файлов и полным путем к папке с файлами, которые не удалось переименовать.

Источник

Данная команда позволяет массово переименовывать файлы в любой папке Вашего ПК непосредственно из MS Excel.

В открывшемся диалоговом окне укажите папку, в которой расположены файлы для переименования и нажмите :

И повторите операцию по переименованию. «Старые» названия файлов будут возвращены.

Источник

Как переименовать файлы согласно таблице MS Excel

Когда это может пригодиться

Переименовываем файлы

Скачайте файл Rename the Multiple files.xlsm по ссылке в конце статьи и откройте его.

В файле есть три основных поля:

Первое — список файлов из папки, которые нужно переименовать.
Второе — новое название для файлов, включая расширение.
Третье — путь до папки с файлами.

Теперь приступим к переименованию. Для этого положите все файлы, которые нужно переименовать в отдельную папку, а в файле Rename the Multiple files в ячейке Folder Path укажите путь до этой папки, и нажмите кнопку Get Information.

После этого в столбце Current Name появится список файлов из папки. В столбце New Name укажите новое название для файлов, и нажмите кнопку Rename the File. И готово, все файлы переименованы.

Заветный файлик спрятан под катом 👇 (нажми кнопку Подписаться).

Источник

Групповое переименование файлов. Универсальная утилита в Excel.

Иногда возникает потребность в групповом переименовании файлов, с которым не справляется Total Commander. Для таких целей я сделал небольшую программу на основе языка VBA для Excel, которая позволяет использовать мощные средства обработки строк самого Excel.

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

После того, как книга Excel скачана, открываем ее.

Книга «RenameFilesUnicode.xlsm» сделана в формате 2007-го Excel. Т.е. желательно чтобы у вас на компьютере был Excel не ниже 2007-го.

После открытия книги excel спросит можно ли разрешить редактирование этой книги, нажимаем «Разрешить редактирование»

Далее необходимо включить макросы, нажав кнопку «Включить содержимое»

Все эти действия делаются однократно для конкретного файла, далее excel запомнит ваш выбор и будет просто открывать книгу не задавая вопросов.

Для пользователей, отлично владеющих excel я опишу краткий алгоритм действий, а потом его подробно расшифрую.

Последовательность работы с программой следующая:

Кнопкой «Файл» читаем необходимые файлы;
Любым способом в столбцах «Новое имя» и «Новое расширение» изменяем имена и расширения на такие как нужно;
Выделяем нужные файлы для переименования, или делаем это автоматически с помощью кнопки «Выделить»;
Переименовываем файлы кнопкой «Переименовать»;
При необходимости сбрасываем цвета у переименованных файлов;

Теперь все то же самое подробно:

1.С помощью кнопки «Файл» выбираем папку, из которой нужно прочитать все файлы и нажимаем «ОК». Файлы читаются также из всех подпапок.

В данном примере я прочитаю все файлы из папки «Музыка» на диске D

Если при чтении файлов возникнет ошибка с доступом к какой-либо папке или файлу, то в конце чтения вам будет выдано окно, которое предупреждает что были ошибки
Список этих ошибок можно посмотреть на листе «Ошибки»

В данном примере доступ к подпапке «2021 Plus grandir» запрещен.

Если все прочиталось без ошибок вы просто увидите полный список всех файлов

2.В столбцах «Новое имя» и «Новое расширение» изменяем имена и расширения на такие как нужно. В данном примере с помощью групповой замены я уберу скобки из названий и немного облагорожу названия песен.
Выделяю песни, CTRL+H – вызываю групповую замену, меняю «(» на пустой символ, нажимаю «Заменить все»

И при попытке замены я получаю такое сообщение

Это от того, что изначально первые три столбца помечены как защищенные, и установлена защита листа. Это сделано для того, чтобы случайно не изменить данные в столбцах, где хранятся исходные данные.
Придется снять защиту листа, так как групповое переименование не работает на защищенном листе. Нажимаем правой клавишей мышки на название листа и выбираем «Снять защиту листа»

Когда защита снята групповая замена работает

Теперь заменяю строку «) [Mylene Farmer]» на пробел

И получаю в результате вот такие названия

Для второго альбома также групповым переименованием делаю формат названия песен аналогичным первому альбому

3.Выделение нужных срок для переименования.
После того как названия всех файлов сформированы, мне необходимо выделить названия файлов, которые я хочу переименовать. Я могу это сделать вручную удерживая CTRL на клавиатуре и нажимая мышкой в нужные названия файлов

или нажав кнопку «Выделить». При этом в столбце «Имя файла» выделятся только те файлы, названия которых или расширение было изменено.

В моем случае выделилось все, кроме файла «cover.jpg»

4.Переименовываем выделенные файлы нажимая кнопку «Переименовать»

Перед ответственным делом нужно еще раз подтвердить свое действие

. ВНИМАНИЕ. В отличии от Total Commander отменить переименование нельзя, поэтому будьте аккуратны!

Если файл переименовался удачно, то он помечается салатовым цветом

Если переименование файла завершилось неудачей, он будет выделен красным цветом

5.Чтобы повторно работать с переименованными файлами без перечитывания папки, можно нажать кнопку «Сбросить цвета»

При этом у файлов, которые переименовывались остается жирный шрифт.

6.Кнопка «Очистить список» принудительно полностью очищает список.
. Список так же автоматически очищается при чтении списка файлов через кнопку «Файл»

. Не забывайте про список запрещенных символов в названии файла
— разделитель подкаталогов

/ — разделитель ключей командного интерпретатора

: — отделяет букву диска или имя альтернативного потока данных

* — заменяющий символ (маска «любое количество любых символов»)

? — заменяющий символ (маска «один любой символ»)

» — используется для указания путей, содержащих пробелы

— перенаправление вывода

| — обозначает конвейер

+ — (в различных версиях) конкатенация

Источник

Всем доброго дня!
Может кто сталкивался — можно с помощью макроса организовать переименовку файлов в папке?
К примеру, есть файл Excel, в нем есть колонка «Название файла» и «Правильное название», где соответственно указано текущее название файла и новое, которое должно быть.
Под файлами я понимаю файлы jpg, jpeg, png. В названии файла конечно указано полное имя включая расширение.
Так вот, возможно макросом найти каждой файл (1 строка таблицы = 1 файл) и задать ему новое имя, а в случае, если файл не найден — ставить метку, что такого файла нет?

The_Prist

Пользователь

Сообщений: 14182
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

Пакетное переименование файлов

правда, не отмечает переименованные. еще на старом форуме(архив) поищите — когда-то выкладывал аналогичный макрос.

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

МатросНаЗебре

Пользователь

Сообщений: 5516
Регистрация: 05.02.2014

10.02.2014 18:11:52

И ещё вариант.

Код
Sub RenameFiles() For i = 1 To 10 Shell "cmd.exe /c rename c:тмп" & Cells(i, 1).Text & " " & Cells(i, 2).Text Next End Sub

Мотя Пользователь Сообщений: 3218 Регистрация: 25.12.2012	Если тема еще актуальна…

	Мотя, спасибо большое, это именно то, что нужно. Позже посмотрю его внутри и проверю на большом массиве и отпишусь!

	Уважаемый Мотя, а Вы не могли бы подсказать, как добавить в макрос следующее — прописать новое название в Properties файла, а именно в title.

Мотя

Пользователь

Сообщений: 3218
Регистрация: 25.12.2012

Уважаемая Inna Borshch!
В заявке автора не было вопроса о том, как прописать новое название в Properties файла (Title).
Поиск мне «предложил»:
ThisWorkbook.BuiltinDocumentProperties(«Title») = «Новое имя»
P.S.
1. Новое имя можно задавать явно (не явно).
2. Поскольку я — не профессионал, не могу сказать, как применить семейство свойств книги BuiltinDocumentProperties к файлам других типов.
3. Рекомендую обратиться к профессионалам.

Спасибо Мотя, за ответ и за наводку. Попробую разобраться.
И ещё один вопрос.
Текст файла — его основа всегда одинаковая, но ежедневно добавляется дата в названии файла (это исходник), а переименовать надо всегда по образцу.
Пример: «mama mila ramu 01.02.2014» — > «Ochenj krasivaja mama mila ramu».

Как поставить смотреть на совпадение содержания? (if contain «mama mila ramu%» then «Ochenj krasivaja mama mila ramu»).
Не подскажете?

Заранее благодарю.

The_Prist Пользователь Сообщений: 14182 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office	Инна, что Вам мешает создать свою тему? Эту тему закрываю, пока Вы её в помойку своих вопросов не превратили. Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

	The_Prist На мой взгляд, хотя я могу и ошибаться, мои вопросы — это продолжение темы. Я приму во внимание Вашу рекомендацию и напишу тоже самое в отдельной теме. И хоть Вы модератор, это не даёт Вам право хамить.

The_Prist

Пользователь

Сообщений: 14182
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

Тема про переименованию по списку соответствия, а не про переименование на основании текста внутри файла.

А где я Вам нахамил? Не вижу ни капли хамства в своем сообщении. Или Вас оскорбляет, что тема будет помойкой, если в неё все вопросы сваливать? Советую перечитать правила форума тогда. И на всякий случай заглянуть в википедию и прочитать значение слова «хамить».

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

Avercom Пользователь Сообщений: 2 Регистрация: 17.07.2018	День добрый! В сообщении №4 https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=54798&am… в файле есть макрос. Подскажите пожалуйста как отключить чувствительность к регистру.

Казанский

Пользователь

Сообщений: 8839
Регистрация: 11.01.2013

#13

17.07.2018 11:07:34

Avercom, первой строкой модуля (до Sub) поставьте

Код
Option Compare Text

Avercom Пользователь Сообщений: 2 Регистрация: 17.07.2018	Спасибо Вам большое! Хороший Вы человек. Все работает

utoFlowers

Пользователь

Сообщений: 1
Регистрация: 21.03.2019

#15

21.03.2019 21:45:31

Если кто-то не может скачать файл пользователя Мотя
В эксель столбец А — старое название с расширением, В — новое название с расширением
Сам макрос

Код

Sub CHANGE_NAME_FILE()
Application.ScreenUpdating = 0
Application.DisplayAlerts = 0
Dim Im_Main, Put_File, sch_VERT As Variant
Dim FS, KATALOG, FILE, MASSIV As Object
Dim II, JJ As Integer
    Range("C2:C65000").Select
    Selection.ClearContents
sch_VERT = Cells(1, 1).End(xlDown).Row - 1
Dim OLD_NAME(), NEW_NAME() As Variant
ReDim OLD_NAME(sch_VERT, 1), NEW_NAME(sch_VERT, 1)
    Range("A1:B" + Trim(Str(sch_VERT + 1))).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
OLD_NAME = Range(Cells(2, 1), Cells(2 + sch_VERT, 1))
NEW_NAME = Range(Cells(2, 2), Cells(2 + sch_VERT, 2))
Im_Main = ActiveWorkbook.Name
Put_File = Application.ActiveWorkbook.Path + ""
Set FS = CreateObject("Scripting.FileSystemObject")
Set KATALOG = FS.GetFolder(Put_File)
Set MASSIV = KATALOG.Files
If Dir(Put_File + "OUT", vbDirectory) = "" Then
    MkDir (Put_File + "OUT")
End If
If Dir(Put_File + "OUT", vbDirectory) <> "" Then
   'If Len(Dir(Put_File + "OUT*.*")) > 0 Then
      'Kill (Put_File + "OUT*.*")
   'End If
For II = 1 To sch_VERT
    For Each FILE In MASSIV
        If Dir(FILE) = OLD_NAME(II, 1) And Dir(FILE) <> Im_Main Then
           FileCopy FILE, Application.ActiveWorkbook.Path + "OUT" + NEW_NAME(II, 1)
           Cells(II + 1, 3).Value = "íàéäåí"
        End If
    Next
Next 'ii
MsgBox "ГОТОВО"
End If
Application.ScreenUpdating = 1
Application.DisplayAlerts = 1
End Sub

Спасибо!

Изменено: utoFlowers — 21.03.2019 21:47:53

john12332 Пользователь Сообщений: 1 Регистрация: 12.05.2019	#16 12.05.2019 19:41:48 Подскажите, можно ли сделать тоже самое, только не учитывая расширения? Чтобы эксель находил имя, переименовывал на нужное и не трогал расширение.

Источник

Переименовать файлы по списку в папке

Переименовать файлы по списку в папке – инструмент для переименовывания группы файлов по списку в выбранной папке с созданием новой под папки с новыми файлами

Использование инструмента переименовать файлы по списку

Источник