Excel макрос запускает другой макрос

VBA Excel. Вызов процедуры Sub из другой подпрограммы VBA

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

Вызов процедур Sub в пределах одной книги

Вызов подпрограммы из кода другой процедуры Sub, расположенной в том же модуле или другом модуле одной рабочей книги (проекта VBA) осуществляется с помощью ключевого слова Call или без него по имени подпрограммы. Вызывающая процедура Sub может быть любой видимости, как Public, так и Private, а вызываемая, если расположена в том же модуле, может быть любой видимости, но если расположена в другом модуле, должна быть объявлена как Public.

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

[ Call ] ИмяПроцедуры [ (Аргументы) ]

• Call — необязательное ключевое слово;
• ИмяПроцедуры — обязательный компонент, имя вызываемой подпрограммы;
• Аргументы — необязательный компонент, список аргументов вызываемой процедуры Sub, разделенных запятой.

Вызов подпрограмм без аргументов в пределах одного модуля

Скобки рядом с именами вызываемых подпрограмм без аргументов не ставятся:

Вы можете скопировать приведенный код в свой модуль и посмотреть, запустив процедуру test1, как она последовательно запускает процедуры test2 и test3.

Вызов подпрограмм с аргументами в пределах одного модуля

При вызове процедур Sub с аргументами и ключевым словом Call, аргументы заключаются в скобки, без ключевого слова Call — аргументы не заключаются в скобки:

Вы можете разместить этот код в своем модуле и протестировать его.

Вызов подпрограмм из разных модулей одной книги

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

Вызываемая подпрограмма расположена в Стандартном модуле

• ИмяМодуля — уникальное имя стандартного модуля, отображаемое в проводнике проекта VBA.

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

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

• ЭтаКнига — так и пишется, указывает на текущую книгу в которой расположены вызывающая и вызываемая подпрограммы.
• ИмяЛиста — уникальное имя листа, которое в проводнике проекта VBA указано без скобок (по умолчанию: Лист1, Лист2, Лист3 и т.д.).
• Имя ярлычка листа — дублирующее имя листа, которое в проводнике проекта VBA указано в скобках.
• ИмяФормы — уникальное имя пользовательской формы, отображаемое в проводнике проекта VBA.

Вызов процедур Sub из модулей разных книг

Если вызываемая подпрограмма расположена в другой книге, она должна быть объявлена как Public, а книга открыта. Запустить такую процедуру Sub можно с помощью метода Application.Run (протестировано в Excel 2016).

Синтаксис метода Application.Run

Application.Run «ИмяКниги!ИмяМодуля.ИмяПроцедуры», Арг1, Арг2, …, Арг30

1. ИмяКниги!ИмяМодуля.ИмяПроцедуры — обязательный компонент, полный адрес подпрограммы, заключен в двойные кавычки.
   • ИмяКниги — имя рабочей книги Excel с расширением, в которой находится вызываемая подпрограмма, если имя содержит пробелы, оно заключается в одинарные кавычки — апострофы (‘Имя Книги’).
   • ИмяМодуля — имя модуля для стандартного модуля (для уникальных имен вызываемых подпрограмм может не указываться), имя листа для модуля листа, словосочетание «ЭтаКнига» (без кавычек) для модуля книги.
   • ИмяПроцедуры — имя вызываемой процедуры Sub.
2. Арг1, Арг2, …, Арг30 — необязательные компоненты, аргументы вызываемой подпрограммы, максимальное количество которых ограничено 30 элементами.

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

Полный адрес вызываемой процедуры

Может показаться сложным составить полный адрес вызываемой подпрограммы, но на самом деле все очень просто — Excel уже сделал это за нас.

Список макросов во всех открытых книгах

2. Найдите в списке вызываемую подпрограмму и кликните по ней. Ее полный адрес отобразится в поле «Имя макроса».

3. Скопируйте полное имя вызываемой процедуры Sub и вставьте ее в метод Application.Run, заключив в двойные кавычки.

Один нюанс: в окне «Макрос» не отображаются процедуры с аргументами. Чтобы отобразить такую процедуру, закомментируйте аргументы, а после копирования и вставки раскомментируйте их.

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

Пример вызова подпрограмм из другой книги

Допустим, у нас есть рабочая книга Excel под именем «Книга1.xlsm» (или «Книга1.xls» в ранних версиях программы). В ней находятся вызываемые из другой книги процедуры Sub, перечисленные ниже.

В стандартном модуле «Module1»:

В модуле листа «Лист1»:

В модуле книги «ЭтаКнига»:

Для последовательного запуска этих подпрограмм можно вставить в любой модуль другой книги Excel следующую процедуру:

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

И еще раз напомню, что имя книги с пробелами заключается в одинарные кавычки (апострофы):

Если у вас есть процедуры, которые часто вызываются из других книг, поместите их в Личную книгу макросов, и они всегда будут доступны.

Заключение

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

Если хотите поэкспериментировать со связанными книгами, откройте проект VBA, из которого надо установить связь с другой книгой, и выберите в главном меню «Tools» — «References…». В открывшемся окне «References — VBAProject» все открытые книги будут отображены одним словом — «VBAProject». Выделяйте по очереди строки с этим словом и внизу, в информационной рамке, смотрите, какой книге этот проект принадлежит. Поставьте галочку рядом с выбранным проектом и нажмите кнопку «OK». Если книга, с проектом которой устанавливается связь, закрыта, ее не будет в списке. В этом случае, нажмите на кнопку «Browse…», найдите, выбрав расширение, нужную книгу и откройте ее в проводнике. Связь будет установлена, и процедуры из связанных книг будут вызываться по имени с ключевым словом Call или без него, как будто они расположены в одной книге.

Источник

Excel макрос запускает другой макрос

Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запуск макроса из личной книги макросов другим макросом (Макросы/Sub)

Запуск макроса из личной книги макросов другим макросом

lelya7

Дата: Понедельник, 21.10.2019, 14:07 | Сообщение № 1

Добрый день. Есть 10 файлов хранятся в одной папке хочу написать макрос, чтобы он по очереди открывал файлы и выполнял 2 макроса из личной книги макросов. Вот пример с одним файлом из 10ти, только макросы из личной книге не выполняются, подскажите в чем ошибка? Sub Обновление() ‘ ‘ Обновление ‘ ‘ Workbooks.Open Filename:=»E:ОТЧЕТЫОсновные2019октябрьEGR 2014-2019(10).xlsm» Application.Run «PERSONAL.XLSB!замена» Application.Run «PERSONAL.XLSB!месяц» Sheets(«Общий»).Select ActiveWorkbook.Save ActiveWindow.Close End Sub Добрый день. Есть 10 файлов хранятся в одной папке хочу написать макрос, чтобы он по очереди открывал файлы и выполнял 2 макроса из личной книги макросов. Вот пример с одним файлом из 10ти, только макросы из личной книге не выполняются, подскажите в чем ошибка? Sub Обновление() ‘ ‘ Обновление ‘ ‘ Workbooks.Open Filename:=»E:ОТЧЕТЫОсновные2019октябрьEGR 2014-2019(10).xlsm» Application.Run «PERSONAL.XLSB!замена» Application.Run «PERSONAL.XLSB!месяц» Sheets(«Общий»).Select ActiveWorkbook.Save ActiveWindow.Close End Sub Сообщение Добрый день. Есть 10 файлов хранятся в одной папке хочу написать макрос, чтобы он по очереди открывал файлы и выполнял 2 макроса из личной книги макросов. Вот пример с одним файлом из 10ти, только макросы из личной книге не выполняются, подскажите в чем ошибка? Sub Обновление() ‘ ‘ Обновление ‘ Источник Excel макрос запускает другой макрос В данной статье я расскажу, как соединить несколько макросов в один, чтобы, например, назначить одной кнопке выполнение нескольких макросов. Файлы для скачивания: Файл Описание Размер файла: Скачивания Пример 14 Кб 1825 Итак, суть проблемы заключается в следующем — мы записали какой ни будь макрос который, например, копирует данные из одного диапазона в другой, создали для этого макроса кнопку на рабочем листе и привязали к ней данный макрос. Потом нам понадобилось записать еще один макрос, который должен, например, скопированным данным присваивать некий формат и нам необходимо, чтобы эти макросы выполнялись один за другим при нажатии все той же кнопки. При попытке назначить второй макрос той же кнопке мы обнаруживаем, что этого сделать нельзя, одна кнопка — один макрос. Что делать? Перед нами вырисовывается вариант, удалить первый и второй макрос и записать один длинный, который и копирует, и присваивает, но мы понимаем, что чем длине макрос, тем выше вероятность совершить ошибку при записи и начать все заново, так можно и до ночи провозиться. Поэтому я предлагаю следующее решение: записать несколько коротких макросов, свести их в одном и уже этот большой макрос присвоить нашей Конопке. Сделать это очень просто. Записываем два макроса, как это сделать в статье «Как записать макрос не зная языка VBA?». Суть работы макросов будет заключаться в следующем: Макрос1 — будет копировать данные из диапазона E2:E6 и вставлять их в диапазон G2:G6, как значения с сохранением форматов. Макрос2 — будет выделять данные в диапазоне G2:G6 красным цветом и делать их «жирными». После того как мы запишем макросы — удалим столбец G полностью, чтобы не сохранилось форматирование ячеек. Затем нажимаем сочетание клавиш Alt+F11 , откроется окно редактора VBA, и мы увидим код двух наших макросов, записанный друг под другом: Встаем курсором после слов End Sub (второго макроса), и пишем следующий код: Должно получиться так: Если у вас записанные макросы оказались в разных модулях — это никак не влияет на их выполнение. Вставьте код «Макрос3» в любой из этих модулей или создайте 3-й модуль и вставьте код в него. После чего закрываем редактор VBA, возвращаемся в нашу рабочую книгу, создаем кнопку на листе и назначаем ей «Макрос3″, как это сделать описано в статье «Как сделать кнопку для запуска своего макроса?» После чего нажимаем кнопку и видим, что макросы выполняются последовательно: Источник Действие парсера « Запуск внешнего макроса » Параметры действия: Предназначение действия: Выполняет запуск макроса с заданным именем из любой открытой книги Excel. Первая строка макроса должна иметь следующий вид: Function MacroName(ByRef txt$, ByRef Destination As Range, ParamArray args()) As String Возвращаемое значение: отсутствует (текущее значение не изменяется) Параметр « Название (имя) макроса » Тип параметра: произвольное текстовое значение Параметр « Параметр 1 » Тип параметра: произвольное текстовое значение Параметр « Параметр 2 » Тип параметра: произвольное текстовое значение Параметр « Параметр 3 » Тип параметра: произвольное текстовое значение Примеры использования: Это действие позволяет расширить возможности парсера, — например, если требуется сложная обработка текстовых данных, или какая-то обработка таблицы (например, окраска ячеек) Действие Параметр Значение Запуск внешнего макроса Название MacroName Параметр 1 test 1 Параметр 2 доп. параметр 2 Параметр 3 Сам макрос (в данном примере — с названием MacroName, название макроса может быть любым) должен располагаться в стандартном модуле любой запущенной надстройки. ВАЖНО: Если макрос находится не в надстройке, а в открытом файле Excel (куда подставляются данные), в настройках действия поставьте восклицательный знак (!) перед именем макроса: вместо MacroName получится !MacroName Если макрос находится в ДРУГОМ запущенном файле Excel (например, в файле test.xlsm), формат параметра Имя макроса будет таким: ‘test.xlsm’!MacroName Внимание! Для корректного вызова макроса имя книги и листа не должно содержать кавычек и апострофов! К написанию макроса (точнее, к его первой строке) предьявляются жесткие требования, — это должна быть функция, принимающая 3 параметра, и возвращающая текст (тип String): Макрос (точнее, функция) принимает 3 параметра: txt$ — текущее значение (из предыдущего действия) передаётся ПО ЗНАЧЕНИЮ (ByVal), — следовательно, если изменить значение переменной txt в коде макроса, это не окажет никакого влияния на текущее значение в действиях Destination — ссылка на строку или ячейку, в которую производится вывод (если выполняются действия ДО начала вывода на лист, то Destination = Nothing) args() — массив из 4 элементов: args(0), args(1), args(2), args(3) в args(0) записывается СЛОВАРЬ со всеми текущими переменными например, чтобы получить название парсера, пишем res$ = args(0).item(««) или если в действиях была сохранена переменная VarName, то res$ = args(0).item(«%VarName%») остальные 3 элемента: args(1), args(2), args(3) — доп.параметры из действия («Параметр 1, 2, 3») Функция может возвращать значение (текстовую строку). Возвращённое значение используется в следующих действиях. По-умолчанию результат функции равен пустой строке (в следующее по списку действие будет передано пустое значение). Чтобы макрос не изменял текущее значение, добавьте в него строку кода Можно также заменить текущее значение, для этого используйте код Можно задать переход на другое действие, или останов парсера, после выполнения макроса. Для этого используется вызов макроса SetMacroReturnPoint из надстройки, с одинм числовым параметром Если параметр — положительное число (1 и выше) — будет выполнен безусловный переход на действие с этим индексом: Если параметр — отрицательное число (-1, -2, -3, -9) — выполняется выход из набора действий или из парсера: Еще пример (особого смысла не имеет — приведён для демонстрации возможностей взаимодействия макроса и парсера): Источник Adblock detector