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

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

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

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

pereimenovat-fajly 

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

pereimenovat-fajly

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

pereimenovat-fajly

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

pereimenovat-fajly

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

pereimenovat-fajly

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

pereimenovat-fajly

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

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

Excel для Microsoft 365 Word для Microsoft 365 PowerPoint для Microsoft 365 Publisher для Microsoft 365 Excel для Microsoft 365 для Mac Word для Microsoft 365 для Mac PowerPoint для Microsoft 365 для Mac Excel для Интернета Word для Интернета PowerPoint для Интернета Excel 2021 Word 2021 PowerPoint 2021 Project профессиональный 2021 Project стандартный 2021 Publisher 2021 Visio профессиональный 2021 Visio стандартный 2021 Excel 2021 для Mac Word 2021 для Mac PowerPoint 2021 для Mac Excel 2019 Word 2019 PowerPoint 2019 Project профессиональный 2019 Project стандартный 2019 Publisher 2019 Visio профессиональный 2019 Visio стандартный 2019 Excel 2019 для Mac Word 2019 для Mac PowerPoint 2019 для Mac Excel 2016 Word 2016 PowerPoint 2016 Project профессиональный 2016 Project стандартный 2016 Publisher 2016 Visio профессиональный 2016 Visio стандартный 2016 Excel 2016 для Mac Word 2016 для Mac PowerPoint 2016 для Mac Excel 2013 Word 2013 PowerPoint 2013 Project профессиональный 2013 Project стандартный 2013 Publisher 2013 Visio профессиональный 2013 Visio 2013 Excel для iPad Word для iPad PowerPoint для iPad Excel для iPhone Word для iPhone PowerPoint для iPhone Word для планшетов c Android Excel для планшетов с Android PowerPoint для планшетов с Android Excel 2010 Word 2010 PowerPoint 2010 Project 2010 Project стандартный 2010 Publisher 2010 Visio 2010 Visio стандартный 2010 Excel 2007 Word 2007 PowerPoint 2007 Excel для телефонов с Android PowerPoint для телефонов с Android Project для Office 365 Word для телефонов с Android Еще…Меньше

Если вы хотите изменить имя или расположение файла, не создавая новую копию, выполните указанные здесь действия.

Если у вас есть подписка Microsoft 365, то самый простой способ переименовать или переместить файл Office — открыть его в настольном приложении Microsoft 365, таком как Word, а затем выбрать имя файла в заголовке. В появившемся меню можно переименовать файл, выбрать для него другое расположение или просмотреть журнал версий файла.

Раскрывающееся меню в названии документа в Word для Office 365

Если файл не является файлом Microsoft Office или у вас нет подписки на Microsoft 365, проще всего переименовать или переместить файл с помощью проводника в Windows.

Откройте проводник, открыв папку Мой компьютер илинажав Windows клавиши +E. Найдите файл, который вы хотите переименовать, выберите его и нажмите кнопку Переименовать на ленте (или нажмите клавишу F2 на клавиатуре). Введите новое имя файла и нажмите ввод.

Если у вас есть подписка Microsoft 365, то самый простой способ переименовать или переместить файл Office — открыть его в настольном приложении Microsoft 365, таком как Word, а затем выбрать имя файла в заголовке. В появившемся меню можно переименовать файл, выбрать для него другое расположение или просмотреть журнал версий файла.

Диалоговое окно операций с файлами, которое можно запускать, щелкнув заголовок документа Word.

Если файл не является файлом Microsoft Office или вы не подписаны на Microsoft 365, то проще всего переименовать или переместить файл на компьютере Mac с помощью Finder. Найдите и выберите файл, а затем выберите файл >Переименовать. Введите новое имя и нажмите клавишу ВВОД.

Снимок экрана: интеграция с Finder на компьютере Mac с наложением синхронизации для синхронизируемых файлов

Когда вы начинаете новый пустой документ в Office в Интернете, ваш документ получает такое имя, как «Документ4» или «Презентация2». Чтобы переименовать или переименовать документ во время его редактирования, выберите имя файла в верхней части окна браузера и введите нужное имя.

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

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

Кроме Веб-приложение PowerPoint, вы не сможете переименовать файл, если над этим одновременно работают другие люди. Подождите, пока вы не будете единственным в документе, а затем переименуем его. 

Чтобы переименовать файл в Office для Android, просто откройте его в соответствующем Приложение Office (Word, Excel и т. д.), а затем коснитесь имени файла в верхней части приложения. Введите новое имя и нажмите Готово на клавиатуре.

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

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

Чтобы переименовать файл в Office на iOS, откройте свою Приложение Office, найдите файл в меню Файл и нажмите кнопку Еще (выглядит как 3 точки). Выберите Переименовать в контекстное меню, введите новое имя и нажмите Переименовать в правом верхнем углу диалогового окна.

Переименуйте файл, нажав кнопку "3 точки" и выбрав "Переименовать"

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

Дополнительные сведения

  • Сохранение файла

  • Переименование файла, папки или ссылки в библиотеке документов

  • Где хранить файлы

Обратная связь

Если эта статья оказаться полезной для вас (а особенно, если нет), воспользуйтесь средствами управления отзывами ниже, чтобы дать нам конструктивную мысль о том, как ее улучшить.

Нужна дополнительная помощь?

Содержание

  1. Переименование файла
  2. Дополнительные сведения
  3. Обратная связь
  4. Пакетное переименование файлов
  5. Данная функция является частью надстройки MulTEx
  6. Excel файлы переименование файла
  7. Как переименовать файлы согласно таблице MS Excel
  8. Когда это может пригодиться
  9. Переименовываем файлы
  10. 3 варианта переименования одной или нескольких книг в Excel 2016
  11. Вариант 1. Переименовать текущую книгу в Excel 2016 с помощью функции «Сохранить как»
  12. Вариант 2. Переименование одной или нескольких книг в диалоговом окне «Открыть» в Excel 2016
  13. Вариант 3: переименовать одну или несколько книг в Excel 2016 с вкладкой Office

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

Если вы хотите изменить имя или расположение файла, не создавая новую копию, выполните указанные здесь действия.

Если у вас есть подписка Microsoft 365, то самый простой способ переименовать или переместить файл Office — открыть его в настольном приложении Microsoft 365, таком как Word, а затем выбрать имя файла в заголовке. В появившемся меню можно переименовать файл, выбрать для него другое расположение или просмотреть журнал версий файла.

Если файл не является файлом Microsoft Office или у вас нет подписки на Microsoft 365, проще всего переименовать или переместить файл с помощью проводника в Windows.

Откройте проводник, открыв папку Мой компьютер илинажав Windows клавиши +E. Найдите файл, который вы хотите переименовать, выберите его и нажмите кнопку Переименовать на ленте (или нажмите клавишу F2 на клавиатуре). Введите новое имя файла и нажмите ввод.

Если у вас есть подписка Microsoft 365, то самый простой способ переименовать или переместить файл Office — открыть его в настольном приложении Microsoft 365, таком как Word, а затем выбрать имя файла в заголовке. В появившемся меню можно переименовать файл, выбрать для него другое расположение или просмотреть журнал версий файла.

Если файл не является файлом Microsoft Office или вы не подписаны на Microsoft 365, то проще всего переименовать или переместить файл на компьютере Mac с помощью Finder. Найдите и выберите файл, а затем выберите файл > Переименовать. Введите новое имя и нажмите клавишу ВВОД.

Когда вы начинаете новый пустой документ в Office в Интернете, ваш документ получает такое имя, как «Документ4» или «Презентация2». Чтобы переименовать или переименовать документ во время его редактирования, выберите имя файла в верхней части окна браузера и введите нужное имя.

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

Кроме PowerPoint в Интернете, вы не сможете переименовать файл, если над этим одновременно работают другие люди. Подождите, пока вы не будете единственным в документе, а затем переименуем его.

Чтобы переименовать файл в Office для Android, просто откройте его в соответствующем Приложение Office (Word, Excel и т. д.), а затем коснитесь имени файла в верхней части приложения. Введите новое имя и нажмите Готово на клавиатуре.

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

Чтобы переименовать файл в Office на iOS, откройте свою Приложение Office, найдите файл в меню Файл и нажмите кнопку Еще (выглядит как 3 точки). Выберите Переименовать в контекстное меню, введите новое имя и нажмите Переименовать в правом верхнем углу диалогового окна.

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

Дополнительные сведения

Обратная связь

Если эта статья оказаться полезной для вас (а особенно, если нет), воспользуйтесь средствами управления отзывами ниже, чтобы дать нам конструктивную мысль о том, как ее улучшить.

Источник

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

Данная функция является частью надстройки 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 (книга создается автоматически). Будет создан список с именем файлов и полным путем к папке с файлами, которые не удалось переименовать.

Источник

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

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

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

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

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

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

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

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

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

Источник

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

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

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

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

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

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

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

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

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

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

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

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

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

Источник

3 варианта переименования одной или нескольких книг в Excel 2016

Если вам нужно переименовать файл книги Excel, вы можете сначала закрыть книгу, затем щелкнуть по ней правой кнопкой мыши и выбрать «Переименовать». Затем имя файла книги выделяется, и вы можете редактировать его. Однако это не единственный способ переименовать книгу Excel. Вы также можете сделать это в Excel. В этом посте я покажу вам три варианта переименования одной или нескольких книг в Excel 2016.

Вариант 1. Переименовать текущую книгу в Excel 2016 с помощью функции «Сохранить как»

1) Откройте книгу в Excel 2016.

2) Щелкните вкладку «Файл» на ленте, чтобы открыть бэкстейдж, а затем выберите параметр «Сохранить как»; щелкните Этот компьютер и выберите одну папку на правой панели.

3) После открытия диалогового окна «Сохранить как» вы увидите, что имя файла книги выделено. Введите новое имя в поле «Имя файла» и нажмите кнопку «Сохранить».

4) Таким образом вы повторно сохраните книгу Excel с новым именем. Вы можете удалить файл книги со старым именем, если хотите.

Вариант 2. Переименование одной или нескольких книг в диалоговом окне «Открыть» в Excel 2016

Шаг 1. Закройте книги, которые вы хотите переименовать, если вы еще не сделали этого.

Шаг 2. Запустите приложение Excel, щелкнув его значок на панели задач Windows.

Шаг 3. После появления первого экрана Excel нажмите «Открыть другие книги» на левой панели.

Шаг 4: Нажмите «Обзор», чтобы открыть диалоговое окно «Открыть».

Шаг 5. После открытия диалогового окна «Открыть» найдите книгу, которую хотите переименовать, щелкните ее правой кнопкой мыши и выберите в контекстном меню параметр «Переименовать». Затем выделяется имя файла книги. Введите новое имя и нажмите Enter, чтобы изменить его.

Шаг 6: Повторите шаг 5, чтобы переименовать другие книги, если вам нужно.

Вариант 3: переименовать одну или несколько книг в Excel 2016 с вкладкой Office

Шаг 1. Установите вкладку Office на свой компьютер.

Шаг 2: Откройте все книги, которые вы хотите переименовать, в Excel 2016.

Шаг 3: Щелкните правой кнопкой мыши вкладку книги и выберите в меню пункт «Переименовать».

Шаг 4: Введите новое имя для файла книги и нажмите OK.

Связанный: 3 способа переименовать один файл в Windows 10

Источник

 

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

 

The_Prist

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

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

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

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

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

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

 

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

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

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

#3

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

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

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

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

Инна, что Вам мешает создать свою тему? Эту тему закрываю, пока Вы её в помойку своих вопросов не превратили.

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

 

The_Prist

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

И хоть Вы модератор, это не даёт Вам право хамить.

 

The_Prist

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

Сообщений: 14181
Регистрация: 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

Спасибо!

Изменено: utoFlowers21.03.2019 21:47:53

 

john12332

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

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

#16

12.05.2019 19:41:48

Подскажите, можно ли сделать тоже самое, только не учитывая расширения? Чтобы эксель находил имя, переименовывал на нужное и не трогал расширение.

Переименовать лист

Если вам нужно переименовать файл книги Excel, вы можете сначала закрыть книгу, затем щелкнуть по ней правой кнопкой мыши и выбрать «Переименовать». Затем имя файла книги выделяется, и вы можете редактировать его. Однако это не единственный способ переименовать книгу Excel. Вы также можете сделать это в Excel. В этом посте я покажу вам три варианта переименования одной или нескольких книг в Excel 2016.

1) Откройте книгу в Excel 2016.

2) Щелкните вкладку «Файл» на ленте, чтобы открыть бэкстейдж, а затем выберите параметр «Сохранить как»; щелкните Этот компьютер и выберите одну папку на правой панели.

Щелкните Сохранить как

3) После открытия диалогового окна «Сохранить как» вы увидите, что имя файла книги выделено. Введите новое имя в поле «Имя файла» и нажмите кнопку «Сохранить».

Введите новое имя и нажмите Сохранить.

4) Таким образом вы повторно сохраните книгу Excel с новым именем. Вы можете удалить файл книги со старым именем, если хотите.

Вариант 2. Переименование одной или нескольких книг в диалоговом окне «Открыть» в Excel 2016

Шаг 1. Закройте книги, которые вы хотите переименовать, если вы еще не сделали этого.

Шаг 2. Запустите приложение Excel, щелкнув его значок на панели задач Windows.

Запустить приложение Excel

Шаг 3. После появления первого экрана Excel нажмите «Открыть другие книги» на левой панели.

Щелкните Открыть другие книги

Шаг 4: Нажмите «Обзор», чтобы открыть диалоговое окно «Открыть».

Нажмите

Шаг 5. После открытия диалогового окна «Открыть» найдите книгу, которую хотите переименовать, щелкните ее правой кнопкой мыши и выберите в контекстном меню параметр «Переименовать». Затем выделяется имя файла книги. Введите новое имя и нажмите Enter, чтобы изменить его.

Выберите переименовать

Шаг 6: Повторите шаг 5, чтобы переименовать другие книги, если вам нужно.

Вариант 3: переименовать одну или несколько книг в Excel 2016 с вкладкой Office

Шаг 1. Установите вкладку Office на свой компьютер.

Шаг 2: Откройте все книги, которые вы хотите переименовать, в Excel 2016.

Шаг 3: Щелкните правой кнопкой мыши вкладку книги и выберите в меню пункт «Переименовать».

Щелкните вкладку книги правой кнопкой мыши

Шаг 4: Введите новое имя для файла книги и нажмите OK.

Связанный: 3 способа переименовать один файл в Windows 10

MulTEx »

1 Май 2011              31621 просмотров

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

Данная функция является частью надстройки 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 (книга создается автоматически). Будет создан список с именем файлов и полным путем к папке с файлами, которые не удалось переименовать.


Расскажи друзьям, если статья оказалась полезной:

  Плейлист   Видеоинструкции по использованию надстройки MulTEx

Настройки программы переименования и копирования файлов

Надстройка предназначена для переименования файлов в заданной папке.

В качестве исходных данных (исходные и конечные имена файлов) выступает таблица Excel

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

После запуска надстройки, на ленте Excel на вкладке НАДСТРОЙКИ появляется панель инструментов.

Порядок работы:

  1. открываете таблицу Excel, содержащую старые и новые имена файлов в разных столбцах
  2. запускаете надстройку, на ленте Excel появится вкладка НАДСТРОЙКИ
  3. нажимаете кнопку НАСТРОИТЬ, и указываете, в каких столбцах содержатся имена файлов,
    а также задаёте пути к папке с картинками, и к папке, куда будут копироваться файлы под новыми именами
  4. нажимаете кнопку СКОПИРОВАТЬ / ПЕРЕИМЕНОВАТЬ ФАЙЛЫ

По окончании работы, появится информационное сообщение такого вида:

сообщение о завершении переименования файлов

В этом посте я расскажу, как за два нажатия и полминуты вашего времени переименовать файлы в папке на компьютере согласно данным из таблицы 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

Понравилась статья? Поделить с друзьями:

А вот еще интересные статьи:

  • Excel файлы открывает редактирует
  • Excel файлы отдельными вкладками
  • Excel файлы на сортировку
  • Excel файлы для финансового анализа
  • Excel файлы для ставок

  • 0 0 голоса
    Рейтинг статьи
    Подписаться
    Уведомить о
    guest

    0 комментариев
    Старые
    Новые Популярные
    Межтекстовые Отзывы
    Посмотреть все комментарии