Запуск макроса VBA из внешней программы

@Massaraksh7 · Регистрация: 27.05.2017

Студворк — интернет-сервис помощи студентам

Win10
Создаю макрос в личной книге макросов, он создаётся здесь:
C:\Users\Username\Appdata\Roaming\Micros oft\Excel\XLSTART\PERSONAL.XLSB
Сам макрос:

Visual Basic
1
2
3
Sub Macro
Cells(1,1) = "abc"
End Sub

Создаю пустую таблицу
C:\Laz-aep\xlsm\dummy.xlsm

Из программы на Lazarus открываю таблицу и вызываю макрос на выполнение:

Pascal
1
2
3
4
5
6
7
8
var Ex:OleVariant;
...
Ex:=CreateOleObject('Excel.Application');
s:=ExpandFileName('c:\laz-aep\xlsm\dummy.xlsm');
Ex.WorkBooks.Open(s);
Ex.Run('PERSONAL.XLSB!Macro');
Ex.Visible:=True;
Ex:=NULL;

Всё работает только в том случае, если я предварительно скопировал personal.xlsb в C:\Users\Username\Documents
Если же его там нет, то выходит ошибка. Почему так?

@testuser2 · 02.02.2025, 18:27

Надо чтоб функция была, в не Sub

@Massaraksh7 · 02.02.2025, 19:48 **[ТС]**

***

@Massaraksh7 · 02.02.2025, 23:10 **[ТС]**

Попробовал хранить макрос в отдельной файле:

Visual Basic
1
2
3
4
5
Sub XServer()
Workbooks(1).ActiveSheet.Cells(7, 7) = "abc"  '---Запись в dumm.xlsm
Workbooks(2).Saved = True                     '---Изменений в macro.xlsm нет
WorkBooks(2).Close                      '---Закрыть macro.xlsm
End Sub

Идея в том, что сначала открывается нужный файл-макет, а затем файл с макросами macro.xlsm
Далее макрос выполняет работу и закрывает macro.xlsm
Проверил вручную - всё работает, но при запуске макроса из программы

Pascal
1
2
3
4
5
6
7
Ex8:=CreateOleObject('Excel.Application');
s:=ExpandFileName('c:\laz-aep\xlsm\dumm.xlsm');
Ex8.WorkBooks.Add(s);
s:=ExpandFileName('c:\laz-aep\xlsm\macro.xlsm');
Ex8.WorkBooks.Add(s);
 
try Ex8.Run('XServer'); except end;

вылетает по ошибке, причём именно на

Visual Basic
1
WorkBooks(2).Close

@testuser2 · 03.02.2025, 02:03

Сообщение от Massaraksh7

***

Не знаю стоит ли упомянуть, хотя момент на самом деле тоже очень важный - нужно, чтобы проект был скомпилирован после изменения. Это, допустим, если пишешь макрос и сразу его проверяешь при запуске из стороннего процесса. Для этого можно создать процедуру-пустышку - выполнил ее и проект скомпилировался. Или в редакторе выбрать "Debug" - "Compile VBAProject". Это именно важно, когда пишешь макрос и тут же проверяешь его запуск из стороней программы, не перезапуская Эксель.

Добавлено через 12 минут

Сообщение от testuser2

Насчет этого, может быть попробовать запустить Эксель как обычный процесс, а потом подключиться к нему (GetActiveOleObject у вас там вроде). И пробовать запускать.

Может стоит попробовать запустить Excel по другому Запуск стороннего приложения из лазаруса, а потом подключить его

Pascal
1
Ex:= GetActiveOleObject('Excel.Application');

@Massaraksh7 · 03.02.2025, 02:59 **[ТС]**

Вроде бы, получилось.
Lazarus

Pascal
1
2
3
4
5
6
Ex8:=CreateOleObject('Excel.Application');
s:=ExpandFileName('c:\laz-aep\xlsm\dumm.xlsm');
Ex8.WorkBooks.Add(s);
s:=ExpandFileName('c:\laz-aep\xlsm\macro.xlsm');
Ex8.WorkBooks.Add(s);
Ex8.Run('XServer');

VBA

Visual Basic
1
2
3
4
Sub XServer()
Workbooks(1).ActiveSheet.Cells(7, 7) = "abc"  '---Выполнить код в книге 2 (macro.xlsm) для книги 1 (dumm.xlsm)
ThisWorkbook.Close                                      '---Закрыть книгу 2 (macro.xlsm)
End Sub

Теперь макрос запускается из программы, отрабатывает и закрывает книгу с макросами

@The_Prist · 03.02.2025, 10:04

Изначально у Вас ничего не получалось, потому что при запуске Excel через CreateObject он запускается БЕЗ запуска стандартных надстроек и без личной книги макросов PERSONAL. Т.е. эти книги ЗАКРЫТЫ. И когда Вы пытаетесь вызвать Ex.Run('PERSONAL.XLSB!Macro') - то PERSONAL еще закрыт. Его надо открыть принудительно ДО того, как запускать макрос. Т.е. Вам в любом случае надо было сначала открыть PERSONAL из той папки, где он расположен, а не сразу пытаться к нему обратиться:

Pascal
1
2
3
4
5
6
7
8
9
10
var Ex:OleVariant;
...
Ex:=CreateOleObject('Excel.Application');
s:=ExpandFileName('C:\Users\Username\Appdata\Roaming\Microsoft\Excel\XLSTART\PERSONAL.XLSB');
Ex.WorkBooks.Open(s, false, false);
s:=ExpandFileName('c:\laz-aep\xlsm\dummy.xlsm');
Ex.WorkBooks.Open(s);
Ex.Run('PERSONAL.XLSB!Macro');
Ex.Visible:=True;
Ex:=NULL;

Иначе Excel будет искать книгу в пути по умолчанию, а это как раз Documents.

@andris2 · 03.02.2025, 11:29

The_Prist,
Вот теперь все расставлено в нужной последовательности событий

@testuser2 · 03.02.2025, 13:26

Сообщение от The_Prist

s:=ExpandFileName('C:\Users\Username\App data\Roaming\Microsoft\Excel\XLSTART\PER SONAL.XLSB');

Но где же магия глобальных макросов? Попробуем что-нибудь исправить (надеюсь не ошибся с конкатенацией)

Pascal
1
s:=ExpandFileName(Ex.StartupPath + '\PERSONAL.XLSB');

Насчет

Сообщение от Massaraksh7

Можно как-то сделать, чтобы personal.xlsb запускался в режиме чтения?

У метода Workbooks.Open 3й параметр должен быть True https://learn.microsoft.com/ru... books.open

@Massaraksh7 · 03.02.2025, 14:01 **[ТС]**

Сообщение от The_Prist

Изначально у Вас ничего не получалось, потому что при запуске Excel через CreateObject он запускается БЕЗ запуска стандартных надстроек и без личной книги макросов PERSONAL. Т.е. эти книги ЗАКРЫТЫ. И когда Вы пытаетесь вызвать Ex.Run('PERSONAL.XLSB!Macro') - то PERSONAL еще закрыт. Его надо открыть принудительно ДО того, как запускать макрос. Т.е. Вам в любом случае надо было сначала открыть PERSONAL из той папки, где он расположен, а не сразу пытаться к нему обратиться:

Да, Вы правильно всё расписали, спасибо, проверил. Единственно, personal.xlsb надо не забыть закрыть при завершении работы макроса, а то он будет висеть на экране.
С другой стороны, решение, найденное мной в #25, ничем не хуже, тем более, что файл с макросами может храниться в более удобном каталоге.

@Massaraksh7 · 06.02.2025, 01:50 **[ТС]**

К сожалению, возникла ещё одна проблема: я ошибочно полагал, что при выполнении Run запускается макрос, и, параллельно, программа на Lazarus продолжает свою работу. Увы, это не так, происходит "зависание" на этой строке, и, пока макрос не отработает, ничего не происходит. После выполнения макроса, управление передаётся дальше. Но у меня Lazarus и VBA должны организовать канал, через который обмениваются информацией (это уже отлажено и работает в среде LibreOffice).
То есть, нужны какие-то другие механизмы запуска макроса без ожидания. Что здесь можно посоветовать?

@testuser2 · 06.02.2025, 02:26

Сообщение от Massaraksh7

То есть, нужны какие-то другие механизмы запуска макроса без ожидания.

Application.OnTime - устанавливает задание на запуск процедуры в заданное время
Параметры:

Visual Basic
1
Sub OnTime(EarliestTime, Procedure As String, [LatestTime], [Schedule])

EarliestTime - время в формате "Date", можно задать текущее время
Procedure - название процедуры (строка)
Можно создать vba-процедуру и запускать ее.

Visual Basic
1
2
3
Sub XServerAsyncStart()
    Application.OnTime Now, "XServer"
End Sub

Сообщение от Massaraksh7

Но у меня Lazarus и VBA должны организовать канал, через который обмениваются информацией

Про "канал" я уже писал выше

@Massaraksh7 · 06.02.2025, 06:28 **[ТС]**

Спасибо, попробую.

Добавлено через 1 час 51 минуту
Да, работает.

@Jack Famous · 06.02.2025, 09:57

Сообщение от testuser2

надеюсь не ошибся с конкатенацией

Сообщение от testuser2

Ex.StartupPath + '\PERSONAL.XLSB'

всё же, по православному (и, во избежание интерпретаций) будет через амперсанд: Ex.StartupPath & '\PERSONAL.XLSB'

@The_Prist · 06.02.2025, 10:28

Сообщение от Jack Famous

будет через амперсанд

Алексей, в VBA да, но вот Pascal...Там как раз через + или функцию Concat. А по православному для объединения нескольких переменных в один полный путь к файлу так и вовсе ConcatPaths

@Jack Famous · 06.02.2025, 10:33

Сообщение от The_Prist

в VBA да, но вот Pascal

невнимателен, спасибо

Новые блоги и статьи Все статьи Все блоги /
Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .	Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .	Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .	Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.
Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .

Запуск макроса VBA из внешней программы

Решение

Решение

@testuser2 1409 / 868 / 93 Регистрация: 08.02.2017 Сообщений: 3,709 Записей в блоге: 2
	02.02.2025, 18:27
	Надо чтоб функция была, в не Sub 0

@Massaraksh7 Айлурофил 518 / 451 / 112 Регистрация: 27.05.2017 Сообщений: 2,749 Записей в блоге: 7
	02.02.2025, 19:48 [ТС]
	*** Миниатюры 0

@andris2 509 / 163 / 22 Регистрация: 04.10.2015 Сообщений: 646
	03.02.2025, 11:29
	The_Prist, Вот теперь все расставлено в нужной последовательности событий 0

@Massaraksh7 Айлурофил 518 / 451 / 112 Регистрация: 27.05.2017 Сообщений: 2,749 Записей в блоге: 7
	06.02.2025, 01:50 [ТС]
	К сожалению, возникла ещё одна проблема: я ошибочно полагал, что при выполнении Run запускается макрос, и, параллельно, программа на Lazarus продолжает свою работу. Увы, это не так, происходит "зависание" на этой строке, и, пока макрос не отработает, ничего не происходит. После выполнения макроса, управление передаётся дальше. Но у меня Lazarus и VBA должны организовать канал, через который обмениваются информацией (это уже отлажено и работает в среде LibreOffice). То есть, нужны какие-то другие механизмы запуска макроса без ожидания. Что здесь можно посоветовать? 0

@Massaraksh7 Айлурофил 518 / 451 / 112 Регистрация: 27.05.2017 Сообщений: 2,749 Записей в блоге: 7
	06.02.2025, 06:28 [ТС]
	Спасибо, попробую. Добавлено через 1 час 51 минуту Да, работает. 0