Массовое переименование файлов excel

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

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

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

pereimenovat-fajly 

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

pereimenovat-fajly

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

pereimenovat-fajly

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

pereimenovat-fajly

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

pereimenovat-fajly

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

pereimenovat-fajly

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

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

MulTEx »

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

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

Данная функция является частью надстройки 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

 

Sharmat

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

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

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

Option Explicit
Sub Rename()
On Error Resume Next
Dim OldName As String, NewName As String, sPath As String
Dim i As Long, lLastRow As Long
  sPath = «C:1»
  lLastRow = Cells(Rows.Count, «a»).End(xlUp).Row
  For i = 2 To lLastRow
     OldName = sPath & Cells(i, «a»)
     NewName = sPath & Cells(i, «b»)
     Name OldName As NewName
  Next i
  If Err > 0 Then Exit Sub
  On Error GoTo 0
End Sub

Сразу скажу, что я там даже близко не программист, только примерно понимаю, как код работает, опирался на интуицию и просто шел путем перебора вариантов.
Какие тут изменения относительно верхнего кода и почему:
1. Убрал кнопку — мне не нужна, и два одинаковых кода смущают.
2. Переименовал sub — почему-то иногда проблемы с кодировкой при ctrl-v
3. Заменил 1 и 2 на «a», «b» здесь: » sPath & Cells(i, 1) sPath & Cells(i, 2)». Наверное, не обязательно, но мне проще соотносить с колонкой было
4. «lLastRow = Cells(Rows.Count, «a»)». Показалось, что с 2 у меня не работало. Заменил на 1, потом на «a», соответственно.
5. Сразу сделал отсчет со второй строки. Как правило, всегда есть подзаголовки.
6. И, самое главное, постоянно вылезали ошибки 53 и 58. Когда работаешь с большим объемом данных, неудобно спотыкаться на каждой строке. Проще потом проверить, что не так. Минус еще в том, что он последовательно обрабатывает строчки и непонятно на какой именно происходит ошибка, а уже переименованные строки он считает ошибочными при повторном запуске. Поэтому погуглил как игнорировать ошибки.

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

С радостью узнаю о возможных неточностях или более эффективных методах решения проблемы.

Изменено: Sharmat17.04.2020 19:08:42

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Краткий обзор способов группового переименования файлов

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

Windows Explorer

Суть метода сводится к выделению группы файлов, находящихся в пределах одной папки, и выбору пункта «Переименовать» из контекстного меню. В результате этого действия все файлы получают одинаковые имена с разными индексами. Способ прост, но очень ограничен, подходит только для приведения различных имен к какому-то общему виду.

Командная строка

Принцип этого метода сводится к вводу определенных команд в командной строке, таких как “cd” для перехода в нужную папку и “ren”, для переименования файлов по определенной маске. Например, команда “ren *.html *.txt” позволяет массово переименовать файлы выбранной папки в части их расширений. Изменять расширения файлов можно далеко не у всех файлов, поэтому этот способ группового переименования файлов не отличается функциональностью и удобством.

Специализированное ПО

Для переименования большого количества файлов чаще всего используется программа Total Commander. Оценить её возможности можно по изображению ниже.

pereimenovanie fajlov v total commander

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

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

Простой способ группового переименования файлов при помощи Excel и VBA

При помощи надстройки для Excel переименование практически любой сложности можно провести в 3 этапа.

gruppovoe pereimenovanie fajlov

CompleteSolution

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

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

Создать список из новых имен файлов

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

Запустить процедуру группового переименования

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

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

Другие материалы по теме:

For one thing, the code you’re trying to adopt is designed to operate on a single file. The Open() method does not support wildcards in the path.

$wb = $xl.Workbooks.Open("C:...")   # open the file
# ...
# do stuff 
# ...
$a = Release-Ref($wb)                # release the reference to the workbook

So the first thing you need to do is put a loop around that section and feed it with the output of Get-ChildItem. If you want Get-ChildItem to start at a particular path you need to specify that path via the -Path parameter, otherwise it will start in the current working directory.

$root = 'C:somefolder'
Get-ChildItem -Path $root -Filter '*.xlsx' -Recurse | ForEach-Object {
  $wb = $xl.Workbooks.Open($_.FullName)
  # ...
  # do stuff
  # ...
  $a = Release-Ref($wb)
}

Make sure to leave the handling of the Excel application object outside the loop.

Extract the value of cell B4:

$b4 = $wb.Sheets.Item(1).Cells.Item(4, 2).Value

and append it to the file name:

$newname = $_.BaseName + $b4 + $_.Extension

If .Value doesn’t return the actual value in that cell, try .Text instead.

Before you can rename the file you need to close it first. However, the Release-Ref function only releases the reference you have to an object. It doesn’t close the workbook (or the application for that matter). You need to do that yourself:

$root = 'C:somefolder'
Get-ChildItem -Path $root -Filter '*.xlsx' -Recurse | ForEach-Object {
  $wb = $xl.Workbooks.Open($_.FullName)
  # ...
  # do stuff
  # ...
  $wb.Close()                        # actually close the file
  $a = Release-Ref($wb)
  Rename-Item -Path $_.FullName -NewName $newname
}

Like this post? Please share to your friends:
  • Мастер диаграмм excel где найти
  • Массовое объединение ячеек excel
  • Мастер график для ресторана excel
  • Массовое исправление ошибок в excel
  • Мастер восстановления паролей word