Переименовать файл excel макрос
Обновлено: 07.07.2024
Вам необходимо использовать один и тот же макрос (пользовательскую функцию) в разных рабочих книгах? Нет ничего проще, сохраните его в Личной книге макросов , файл которой имеет название — PERSONAL.XLSB . Он скрыто открывается при запуске программы MS Excel и доступен только на вашем ПК.
Создание и сохранение кода в Личной книге макросов
1. В строке состояния, нажмите иконку записи макроса:
Или на вкладке Разработчик ► Запись макроса (Код) :
Если вкладка Разработчик отсутствует, нажмите в Строке меню или на Панели инструментов правую кнопку мыши и выберите в меню вариант Настройка ленты. :
В окне настройки, установите галку Разработчик :
2. В открывшемся диалоговом окне Запись макроса , из выпадающего списка Сохранить в: выберите вариант Личная книга макросов , нажмите на кнопку Oк :
На вкладке Разработчик ► Остановить запись (Код) .
3. Закройте текущую книгу нажав Сохранить в диалоговом окне:
Файл Личной книги макросов создан.
Чтобы узнать путь к файлу, откройте новую книгу, нажмите клавиши ALT + F11 , редакторе Visual Basic ( VBE ) вставьте в «Project-VBAProject» (PERSONAL.XLSB) макрос:
Закройте VBE и выполните макрос в окне MS Excel.
В любом случае, книга PERSONAL.XLSB находится в папке XLSTART , которую можно найти с помощью поиска в проводнике Windows.
Добавление макросов
Если вы хотите написать свой макрос (пользовательскую функцию) или добавить готовый из интернета, откройте редактор VBE (ALT + F11) , выберите папку «Project-VBAProject» (PERSONAL.XLSB) и вставьте в модуль нужный код . Уже записанные в книгу макросы удалять не нужно, они не будут конфликтовать между собой, если в одном модуле не хранить макросы с одинаковыми именами.
Подпрограммы, размещенные в Личной книге макросов, можно просмотреть в окне Список макросов , открыв его из любой рабочей книги MS Excel (Alt + F8) :
Данная команда поможет быстро переименовать сразу множество указанных файлов. Можно назначить переименование с нумерацией или на основании списка. Файлы могут быть любого типа - Excel, Word, картинки, текстовые и т.д.
Просматривать файлы:
- только выбранные - после нажатия кнопки ОК появится диалоговое окно, в котором необходимо выбрать файлы для переименования
- все в папке - после нажатия кнопки ОК появится диалоговое окно выбора папки. Выбирается папка, файлы в которой необходимо просмотреть и переименовать
-
включая подпапки - доступно для пункта все в папке. Если установлен, то файлы будут просматриваться не только в указанной папке, но и во всех вложенных в неё папках до самой глубоко вложенной. Если отключен, то файлы будут просматриваться исключительно в указанной папке.
Метод переименования:
- Только нумерация - имена всех выбранных файлов переименовываются в порядковые номера - 1, 2, 3 и т.д.
- Нумерация с префиксом - в поле указывается префикс(на примере это - новый_ ), который будет добавлен перед номером файла. После нажатия ОК и указания файлов, выбранным файлам будут даны имена с указанным префиксом и порядковым номером. В приведенном выше примере файлы будут переименованы в: новый_1 , новый_2 , новый_3 , новый_4 и т.д. Если префикс не указан, то появится предупреждение и поле можно оставить пустым. Однако даже если непосредственно префикс не указан, нижнее подчеркивание все равно будет добавлено перед нумерацией( _1 , _2 , _3 , _4 ).
- Сопоставление - переименовывает файлы по списку. В первом столбце указанного диапазона записывается текущее имя файла, а во втором - новое, которое надо дать файлу после переименования. К примеру на рисунке ниже файл с именем Картинка_1 будет переименован в Цветы , файл Фото в Пейзаж , а Книга1 в Прайс .
рис.2
В ячейках должны быть записаны только имена файлов, без расширения (.jpg, .xls,.docx и т.д.).
Для создания списка файлов для переименования можно воспользоваться командой Путь к файлу(выбрав только имена файлов -без расширения типа файла). Это поможет избежать ошибок неверного написания имени файла.
Если файл из указанного диапазона будет отсутствовать среди выбранных файлов, то он не будет переименован. Однако это не вызовет ошибки выполнения
Переименованные файлы:
- Оставить в исходной папке - будут переименованы исходные файлы. Отменить данную операцию нельзя.
- Переместить в папку - все переименованные файлы будут перемещены в указанную папку.
-
перемещать копии файлов - доступно для пункта Переместить в папку. Если установлен, то переименованы и перемещены будут копии исходных файлов. Исходные файлы при этом остаются без изменений. Если отключен, то переименовываются исходные файлы. Отменить данную операцию нельзя.
Добавлять нумерацию к файлам с одинаковым именем - если в качестве метода переименования выбрано Сопоставление, то есть вероятность, что имена файлов будут повторяться, если при этом так же выбран просмотр всех файлов в папке и подпапках. Для файлов разного типа это не критично, а для файлов одного типа это недопустимо. Например, в одной папке могут находится два файла " Первый квартал.xls " и " Первый квартал.pdf " , однако не может быть два файла " Первый.xls " . Если установлен пункт Добавлять нумерацию к файлам с одинаковым именем, то будет создано два файла: "Первый квартал.xls" и "Первый квартал(1).xls" (если одинаковых имен больше - нумерация продолжается). Если пункт Добавлять нумерацию к файлам с одинаковым именем снят, то файлы с совпадающими именами не переименовываются и весь их список можно будет просмотреть в конце обработки.
Эта статья была написана Raddini Rahayu, Microsoft MVP.
Вот еженедельные отчеты о действиях продаж. Например, в этом случае имеется 15 человек. Нэнси, отчеты администратора, ей назначено суммировать все данные о продажах в один файл, где все продажи разделены на каждом листе. Чтобы легко организовать данные, каждый лист, который она дала, совпадает с именем продаж на этом листе. Сначала Нэнси чувствует себя комфортно с этим, но так как больше данных и требует быстрой обработки, она была настолько перегружена. Чтобы преодолеть это, Нэнси хочет, чтобы листы имен автоматически менялись в соответствии с именем продаж на каждом листе, не переименовывать его вручную.
Решения
Наилучшие решения для решения проблемы Нэнси — это использование макроса. Этот макрос предназначен для каждого листа в этом файле независимо от количества листов. Имя каждого листа будет изменяться в соответствии с именем продаж, которое было определено в одном расположении на каждом листе.
Выполнение
Первый шаг
Разработка форматов отчетов и указание расположения ячейки, где будет размещено имя продаж. В этом случае расположение находится на ячейке J2. Этот формат отчета должен быть одинаковым на каждом листе.
Храните имена листов в имени по умолчанию (Sheet1, Sheet2, Sheet3 и т.д.).
Последний шаг
Шаг кодирования макроса
После того как мы знаем расположение ячейки, где будет размещено имя продаж, теперь мы можем продолжить следующий шаг — кодирование Макроса.
На вкладке Разработчик выберите Visual Basic в категории Code или нажмите клавишу Alt+F11 на клавиатуре, Visual Basic отображается окно.
На области задач проекта нажмите кнопку Sales Report.xlsx (Имя книги), затем в меню Вставить выберите модуль и напишите следующий сценарий:
Нажмите клавишу F5key на клавиатуре, если отлаговка не закрывается Visual Basic окна и возвращается в Excel. Если отладка отладка, проверьте сценарий.
Вернись Excel и узнайте, что происходит, если коды верны, теперь имя каждого листа переименовано в соответствии с существующим именем продаж на каждом листе. Вот и все. Надеюсь, с пользой.
Заявление об отказе от ответственности за сведения о продуктах сторонних производителей
В этой статье упомянуты программные продукты независимых производителей. Корпорация Майкрософт не дает никаких гарантий, подразумеваемых и прочих, относительно производительности и надежности этих продуктов.
Данная команда позволяет массово переименовывать файлы в любой папке Вашего ПК непосредственно из MS Excel.
Чтобы воспользоваться данной командой создайте в своей рабочей книге MS Excel список файлов, которые вы хотите переименовать (так это можно сделать быстро):
Пропишите рядом со "старыми" именами файлов - "новые" имена (так можно быстро добавить год к названию файлов):
Затем выделите диапазон ячеек со старыми и новыми названиями файлов, перейдите во вкладку "ЁXCEL" Главного меню, нажмите кнопку "Файлы" и выберите команду "Переименовать файлы":
В открывшемся диалоговом окне укажите папку, в которой расположены файлы для переименования и нажмите :
Отмена этой операции не предусмотрена, но вы легко можете вернуть "старые" названия файлов. Для этого поменяйте столбцы с "новыми" и "старыми" названиями файлов местами (так это можно сделать быстро):
И повторите операцию по переименованию. "Старые" названия файлов будут возвращены.
Читайте также: