Запуск макроса 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

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

Новые блоги и статьи Все статьи Все блоги /
[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .
попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .

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

Решение

Решение

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

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

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

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

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