Как сохранить файл с поддержкой макросов excel

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

Исходные данные

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

Примечание! Я использую Excel 2013.

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

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

Заметка! Этапы разработки программы – как создаются и проектируются программы?

Итак, данные у нас есть, теперь необходимо написать процедуру на VBA (макрос), которая брала бы значение из конкретной ячейки, в данном случае это будет ячейка B14, и присваивала бы это значение имени файла.

Ниже представлен код процедуры, я его подробно прокомментировал. Единственное скажу, что я во всех примерах сохраняю новые файлы без макросов (расширение .xlsx), т.е. по факту будет один файл с поддержкой макросов, а все производные — без.

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

Открываем в Excel редактор Visual Basic, и вставляем код следующей процедуры в исходный код этой книги (ЭтаКнига, открыть двойным кликом) или в модуль, который Вы предварительно должны создать.

Примечание! Для того чтобы открыть редактор Visual Basic в Excel, необходимо перейти на вкладку «Разработчик» и нажать на кнопку «Visual Basic». Файл Excel с кодом процедуры необходимо сохранить с типом «Книга Excel с поддержкой макросов».

Код процедуры

   
   Sub SaveFile()

   'Объявление переменных
   Dim CellValue As String
   Dim Path As String
   Dim FinalFileName As String

   'Временно отключаем показ вспомогательных сообщений
   Application.DisplayAlerts = False

   'Задаём каталог сохранения файла (в данном случае текущий каталог)
   Path = ThisWorkbook.Path & ""

   'Получаем значение ячейки
   CellValue = Range("B14")

   'Формируем итоговый путь и название файла
   FinalFileName = Path & CellValue

   'Сохраняем файл
   ActiveWorkbook.SaveAs FileName:=FinalFileName, _
                      FileFormat:=xlOpenXMLWorkbook
                      'FileFormat:=xlOpenXMLWorkbookMacroEnabled 'Для сохранения файла с макросом

   'Включаем вывод сообщений
   Application.DisplayAlerts = True

   'Сообщение с результатом выполнения процедуры
   MsgBox "Файл успешно сохранен с названием - " & CellValue, vbInformation, "Результат"

  End Sub

После сохранения файла запустите макрос («Макросы -> Выполнить -> SaveFile»).

В результате в моем случае процедура успешно выполнилась, файл сохранился с названием «Марка Авто 1», данное значение взято из ячейки B14, о чем будет свидетельствовать сообщение в конце процедуры. Файл сохранен в каталоге, где и исходный файл (во всех примерах ниже прописано то же самое, т.е. сохранение рядом с исходником, но это Вы можете изменить).

Заметка! Статический анализ кода в теории и на практике.

Добавление кнопки в Excel для запуска макроса

Каждый раз открывать окно с макросами и выбирать нужный макрос не очень удобно, поэтому можно легко добавить кнопку где-нибудь рядом с данными и просто нажимать ее. Это делается следующим образом «Вкладка Разработчик -> Вставить -> Кнопка (элемент управления формы)».

Затем выберите место, где вставить кнопку, и нажмите туда. После этого появится окно назначения действия, т.е. нужно выбрать, какой макрос запускать при нажатии этой кнопки, выбираем наш макрос, т.е. SaveFile, и нажимаем «ОК».

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

Заметка! ТОП 7 популярных языков программирования.

Сохранение файла Excel с названием из ячейки — без привязки к ячейке

Теперь давайте представим, что заранее мы не можем определить, какая именно ячейка будет формировать название файла (может B14, а может и нет), поэтому мы можем немного скорректировать алгоритм таким образом, чтобы он брал значение из ячейки, которая является активной, но в этом случае Вы, конечно же, предварительно, должны выбрать ее (т.е. встать на нее).

Замените код процедуры следующим кодом, который совсем немного, но изменен.

  
   Sub SaveFile()

  'Объявление переменных
   Dim CellValue As String
   Dim Path As String
   Dim FinalFileName As String

   'Временно отключаем показ вспомогательных сообщений
   Application.DisplayAlerts = False

   'Задаём каталог сохранения файла (в данном случае текущий каталог)
   Path = ThisWorkbook.Path & ""

   'Проверка значения ячейки
   If ActiveCell.Value = "" Then
     MsgBox "В ячейке отсутствует значение", vbCritical, "Ошибка!"
     Exit Sub
   End If

   'Получаем значение активной ячейки
   CellValue = ActiveCell.Value

   'Формируем итоговый путь и название файла
   FinalFileName = Path & CellValue

   'Сохраняем файл
   ActiveWorkbook.SaveAs FileName:=FinalFileName, _
                      FileFormat:=xlOpenXMLWorkbook
                      'FileFormat:=xlOpenXMLWorkbookMacroEnabled 'Для сохранения файла с макросом

   'Включаем вывод сообщений
   Application.DisplayAlerts = True

   MsgBox "Файл успешно сохранен с названием - " & CellValue, vbInformation, "Результат"

   End Sub

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

Как видим, все отработало.

Сохранение файла Excel с названием, которое сформировано из значений двух ячеек

Теперь представим, что нам нужно сформировать файл с названием из значений двух ячеек. Например, в нашем случае это может быть «Марка Авто – VIN Номер», в качестве разделителя я указал символ – (дефис), но им может выступать любой символ или вовсе отсутствовать.

В этом примере я покажу, как можно это реализовать с привязкой к конкретным ячейкам, в нашем случае B14 и D14.

Код процедуры в данном случае будет выглядеть следующим образом.

   
   Sub SaveFile()

   'Объявление переменных
   Dim CellValue As String
   Dim Path As String
   Dim FinalFileName As String

   'Временно отключаем показ вспомогательных сообщений
   Application.DisplayAlerts = False

   'Задаём каталог сохранения файла (в данном случае текущий каталог)
   Path = ThisWorkbook.Path & ""

   'Проверка значения ячеек B14 и D14
   If Range("B14").Value = "" Or Range("D14").Value = "" Then
     MsgBox "В ячейке отсутствует значение", vbCritical, "Ошибка!"
     Exit Sub
   End If

   'Складываем значения из двух ячеек B14 и D14
   CellValue = Range("B14").Value & " - " & Range("D14").Value

   'Формируем итоговый путь и название файла
   FinalFileName = Path & CellValue

   'Сохраняем файл
   ActiveWorkbook.SaveAs FileName:=FinalFileName, _
                      FileFormat:=xlOpenXMLWorkbook
                      'FileFormat:=xlOpenXMLWorkbookMacroEnabled 'Для сохранения файла с макросом

   'Включаем вывод сообщений
   Application.DisplayAlerts = True

   MsgBox "Файл успешно сохранен с названием - " & CellValue, vbInformation, "Результат"

   End Sub

Запускаем макрос.

Все ОК, файл создан.

Заметка! Как измерить сложность кода программы при программировании?

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

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

Код процедуры

   
   Sub SaveFile()

   'Объявление переменных
   Dim CellValue As String
   Dim Path As String
   Dim FinalFileName As String

   'Временно отключаем показ вспомогательных сообщений
   Application.DisplayAlerts = False

   'Задаём каталог сохранения файла (в данном случае текущий каталог)
   Path = ThisWorkbook.Path & ""

   'Проверка номера столбца
   If ActiveCell.Column <> 2 Then
     MsgBox "Указан некорректный столбец", vbCritical, "Ошибка!"
     Exit Sub
   End If

  'Проверка значения ячейки
   If ActiveCell.Value = "" Then
     MsgBox "В ячейке отсутствует значение", vbCritical, "Ошибка!"
     Exit Sub
   End If

   'Получаем значение активной ячейки
   CellValue = ActiveCell.Value

   'Смещаемся на 2 столбца, относительно активной ячейки
   ActiveCell.Offset(0, 2).Select

   'Складываем значения из двух ячеек
   CellValue = CellValue & " - " & ActiveCell.Value

   'Формируем итоговый путь и название файла
   FinalFileName = Path & CellValue

   'Сохраняем файл
   ActiveWorkbook.SaveAs FileName:=FinalFileName, _
                      FileFormat:=xlOpenXMLWorkbook
                      'FileFormat:=xlOpenXMLWorkbookMacroEnabled 'Для сохранения файла с макросом

   'Включаем вывод сообщений
   Application.DisplayAlerts = True

   MsgBox "Файл успешно сохранен с названием - " & CellValue, vbInformation, "Результат"

   End Sub

Становитесь на любую ячейку со значением в столбце B, и запускайте макрос.

Заметка! Опрос. Какой операционной системой Вы пользуетесь?

У меня на этом все, надеюсь, материал был Вам полезен, пока!

Одна из примечательнейших функций в табличном редакторе Microsoft Excel – это макросы, средство записи последовательностей пользовательских действий, которые впоследствии можно повторить и применить к выбранным при записи или другим ячейкам. И автоматизировать таким образом множество рутинных операций, на которые, если таблица большая, может уйти просто масса времени. Макросы можно использовать для запуска разных операций на ленте меню Excel, операций сохранения, импорта-экспорта данных, смежных операций с другими приложениями MS Office и пр. Давайте же подробнее узнаем про макросы в Excel.

Макросы в Microsoft Excel

Итак, макросы в Excel – это запись определённой последовательности действий пользователя в табличном редакторе для автоматического выполнения этих же действий уже в дальнейшем. Работа макросов в Excel базируется на инструменте программирования Visual Basic для приложений VBA. А действия пользователей, которые можно автоматизировать с помощью макросов, могут быть разные. Это ввод данных в ячейки, выбор конкретных ячеек, строк или столбцов. Это запуск операций в ленте меню Excel, особенно макросы эффективны еще в применении к операциям форматирования. Это вставка диаграмм, рисунков, иллюстраций и прочих объектов. Это импорт разных данных, например, из Microsoft Access или SQL Server. Это сохранение и экспорт таблицы в определённые форматы файлов, например, в PDF или CSV. Единожды записав последовательность определённых действий, можно потом автоматически запускать эти же действия и для других ячеек, других данных, в отношении других таблиц или файлов Excel. А поскольку Visual Basic для приложений VBA поддерживают и другие приложения Microsoft Office, то в числе записываемых макросами операций могут быть и такие, что взаимодействуют с другими приложениями Microsoft Office. Можно, например, записать макрос открытия таблицы в Microsoft Outlook для отправки по почте.

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

В современных приложениях Microsoft Excel инструменты макросов добавлены во вкладку «Вид». Здесь можно запускать и останавливать создание макросов, и можно открыть окошко макросов для их выполнения или управления ими.

А если у вас в приложении Excel во вкладке «Вид» нет инструментов макроса, то жмите «Файл – Параметры». В параметрах приложения кликните «Настроить ленту» и установите галочку ленты «Разработчик». По итогу нажмите «Ок».

И ищите инструменты макросов в активированной ленте меню «Разработчик».

Впоследствии, если работа с макросами будет уже активной, их операции можно добавить и на панель быстрого доступа. Помимо этого, открыть окно управления макросами можно ещё и горячими клавишами Alt+F8.

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

Как создать макрос в Excel

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

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

Для примера есть таблица Excel с данными рейтинга браузеров. Чтобы зрительно выделить долю рынка только интересующих нас десктопных браузеров, давайте применим к их ячейкам какое-нибудь из витиеватых оформлений. Кликнем на одну из ячеек таблицы. Запускаем запись макроса.

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

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

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

После этого, не переключаясь ни на какую другую ячейку, останавливаем запись макроса.

Как выполнить макрос в Excel

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

Запустим окошко управления макросами (либо жмём клавиши Alt+F8). Выберем наш макрос, жмём «Выполнить».

И в мгновение ока записанные в макросе операции будут сразу же применены ко всем выделенным ячейкам таблицы.

Особенности макросов Excel с другими действиями

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

Сохранение файла Excel с макросами

Чтобы записанные макросы были доступными в дальнейшем в исходном файле Excel и других, исходный файл нужно сохранять как книгу Excel и с поддержкой макросов. Для этого, нажимаем «Файл – Сохранить как».

Указываем путь сохранения.

В типе сохраняемого файла выбираем «Книга Excel с поддержкой макросов».

Если у вас остались вопросы, оставляйте их в комментариях ниже. А пока… пока.