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

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

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

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

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

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

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

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

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

  • 18426 просмотров

Комментарии

Добрый день, Игорь! Нам нужна программа по массовому переименованию файлов в Excel
Вы можете эту программу написать?

С учетом всего этого, проще заказать написание отдельного макроса.
Высылайте задание на почту

А ещё, оказывается, есть ".jpg", а есть ".jpeg" — жесть. Не пойму, почему она (программа) не может игнорировать расширение. 2 файла с ОДИНАКОВЫМ именем, но РАЗНЫМ расширением МОГУТ присутствовать в одной папке! Так пусть оба/три/пять и переименовывает-не? Тем более есть проверка по маске…
И, напоследок, поля "суффикс" ОБЯЗАТЕЛЬНЫ. Нельзя сейчас не указать расширение. Кроме того, ища jpeg и переименовывая его в pdf, получаем нерабочий файл — офигенный фокус)))))))))
А программа-то классная и нужная — очень много людей её будет брать, если её показать людям (нашёл совсем случайно) и доработать до нормального состояния.
Лично я бы заказал мест на 5-6, но только после доработок. Может я, конечно, что-то не понимаю, но тогда объясните, пожалуйста…

Здравствуйте! Планирую в понедельник покупку программы, однако кое-в-чём не могу разобраться…

1. Может ли она переименовывать/копировать без учёта расширения? У меня в папке файлы ".pdf" и ".jpeg" (одностраничные в жпеге, а многостраничные в пдф).

2. У таблиц обычно есть шапка. Можно ли добавить в программу возможность задавать, с какой строки идут данные (2-по умолчанию) и возможность работать с предварительно выделенным двумерным диапазоном (2 столбца).

Здравствуйте, Александр
Проще (и дешевле) будет отдельный макрос написать, — если вам надо перемещать / переименовывать папки
(чем программу переделывать — переделок слишком много будет)
Оформляйте заказ, прикрепляйте примеры файлов, и подробно описывайте, что и как должно работать.

Здравствуйте!
Давно пользуюсь Вашими программами по рабочей необходимости.
Скажите пожалуйста — сколько будет стоить программа по перемещению/копированию файлов с небольшой доработкой — с возможностью делать выбор: в настройках указать один адрес или там же указать столбец с адресами папок.
Папок бывает много, FilenamesCollectionEx.xls успешно собирает имена с адресами, а далее надо переименовать и переместить всё это дело. Вот тут и начинается ковыряние по папкам.
Спасибо!
С Уважением, Александр.

Помогите пожалуйста!
например, надстройка отсюда открылась и появилась в ленте Exel http://excelvba.ru/programmes/Unification
а настройка о которой идет речь в этой ветке (переименование файлов) никак не появляется ни на одном компьютере. Везде стоит 2007 exle

Читайте также:  Область задач в word

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

Почему Настройка "Перемещать файлы вместо копирования" неактивна? Галочка не ставится. Как ее сделать активной?

Если вы не доверяете мне (моим программам), и на 100% доверяете антивирусу (подразумевая, что ложных сработок быть не может), — просто не пользуйтесь моими программами.
Время от времени все антивирусы там что-то находят, — пока им в техподдержку не напишешь.

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

Нет. Касперский, как и другие известные антивирусы, никакой проблемы в файле не видят:
https://virustotal.com/ru/file/16a2aaebb05fcecefb02dbfa7b771913fe6dbed25.
(на 6 красных строк по ссылке внимание не обращайте — это жалкие подобия антивирусов)

PS: если считаете, что в файле есть вирус, — просто не пользуйтесь программой

Как раз касперский и говорит, что файл ЗАРАЖЕН!

Не обращайте внимания, — это должная сработка на систему обновления программы.
Проверьте программу нормальным антивирусом (например, Касперским)

Антивирус пишет троян Trojn.Generic:heur.macro.download.gen

Добрый день. У меня вот такое сообщение появляется "Для этой книги недоступны проект VBA, элементы управления ActiveX и остальные программные средства" и программа не появляется в панели надстроек. Использование макросов разрешила. Эксель 2007. Что делать? На сайте ответ не нашла. Спасибо.

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

Программа хорошая, только вот ищет по 100% совпадению, как быть если в экселе в наименовании имеются знаки типа " ? а в названии картинок их нет. Есть решение. То бишь сопоставление файлов по текстовому значению, без знаков припинания или скажем по схожести наименований в процентном соотношении процентов 90%

Все работает все круто.

Как переименовать группу папок в директории этой надстройкой?

Программа не странная
Панель инструментов программы — на ленте Excel на вкладке НАДСТРОЙКИ (вы просто её не заметили)
В статье же есть скриншоты, да и написано, что произойдет при запуске программы.
Количество запусков можно увеличить, — там есть еще опция 48-часового безлимита по запускам

Читайте также:  Как удалить смарт скрин виндовс 10

Странная программа. У меня она не разу не открылась, был только серый экран Excel. Я ее попытался открыть раз 10 и скачивал наверное раз 5 так ни чего не открыл и собственно ни чего не увидел.
Но зато на 11 раз попыток открыть этот файл получил смешное сообщение, что "Лимит бесплатных запусков программы исчерпан" я конечно ценю чувство юмора) но наверное с программой что-то пошло не так.

Почему то Настройка "Перемещать файлы вместо копирования" неактивна. Я так понимаю она делала бы так, что исходные файлы заменялись бы переименованными?

Так, по сути, надстройка это и делает.
Просто чтобы не было путаницы, когда все часть файлов переименовалась, а часть нет, и всё в одной папке, — я сделал вывод переименованных файлов в отдельную папку.

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

Так там все просто, — задать папку в настройках, открыть файл Excel с 2 столбцами (старое и новое имя файла), и нажать кнопку запуска.

Чёт не получается у меня ничего, заполнял как только мог, не хочет переименовывать +( помогите

Самая актуальная документация по Visual Studio 2017: Документация по Visual Studio 2017.

Чтобы переименовать файл, используется метод RenameFile объекта My.Computer.FileSystem , указав текущее расположение, имя файла и новое имя файла. Этот метод нельзя использовать для перемещения файла; для перемещения файла используйте метод MoveFile .

Чтобы переименовать файл

Для переименования файла используйте метод My.Computer.FileSystem.RenameFile . В этом примере выполняется переименование файла с именем Test.txt на SecondTest.txt .

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

При следующих условиях возможно возникновение исключения.

Путь может являться недопустимым по одной из следующих причин: путь представляет собой строку нулевой длины (пустую строку); путь содержит только пробелы; путь содержит недопустимые знаки; или путь представляет собой путь к устройству (начинается с \. ) ( ArgumentException).

newName содержит информацию о пути ( ArgumentException).

Путь не является допустимым, поскольку он равен Nothing ( ArgumentNullException).

Параметр newName равен Nothing или является пустой строкой ( ArgumentNullException).

Исходный файл не является допустимым или не существует ( FileNotFoundException).

Имеется существующий файл или каталог с именем, указанным в newName ( IOException).

Длина пути превышает максимальную длину, определенную в системе ( PathTooLongException).

Имя файла или каталога в пути содержит двоеточие (:) или имеет недопустимый формат ( NotSupportedException).

У пользователя отсутствуют необходимые разрешения на просмотр пути ( SecurityException).

Пользователь не имеет необходимого разрешения ( UnauthorizedAccessException).

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

Читайте также:  Как увеличить скорость скачивания в зоне

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

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

Windows Explorer

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Ссылка на основную публикацию
Samsung scx 4220 сброс счетчика
Чипы картриджей принтеров SCX4200, SCX4220, WC3119 я уже больше года не перешиваю и не обнуляю, а обслуживаю упомянутые картриджи подобно...
Ipack пакеты для windows 10
В избранное Файл обновлен: 29 ноября 2016 Скачиваний: 5009 Размер: 25,24 Mb Название: Steampunk Год выпуска: 2016 Лицензия: Бесплатно Платформа:...
Kms connection broker что это
Привет У себя в винде нашел процесс SppExtComObj.Exe — интересно написано название, будто кто-то спецом писал то большую букву то...
Sap erp для чайников
Для продуктивного развития бизнеса обязательно наличие контроля всех этапов производства, учёта бухгалтерии. Благодаря этому компания сумеет быстрее реагировать на изменяющиеся...
Adblock detector