Как запустить макрос Access из Excel

MyTetra Share

Делитесь знаниями!

Ссылка на оригинал

Время создания: 12.10.2019 20:29

Раздел: !Закладки - VBA - Access - Excel->Access

Запись: xintrea/mytetra_db_adgaver_new/master/base/1570884534fkpvbqswbs/text.html на raw.githubusercontent.com

Как запустить макрос Access из Excel

Автор Дмитрий Якушев На чтение2 мин. Просмотров112

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

Содержание

Как макрос работает

Следующий макрос представляет собой простой способ вызвать макрос доступа программным путем.
Обратите внимание, что вам нужно будет установить ссылку на библиотеку объектов Microsoft Access.

Для этого откройте VBA в Excel и выберите Tools➜References. Откроется диалоговое окно «References». Прокрутите вниз, пока вы
найдите запись Microsoft Access XX Object Library, где XX — это ваша версия Access. Выберите флажок рядом с записью.

Код макроса

Sub ZapustitMakrosAccessIzExcel()

'Шаг 1: Объявляем переменные

Dim AC As Access.Application

'Шаг 2: Запустите Access и откройте целевую базу данных

Set AC = New Access.Application

AC.OpenCurrentDatabase _

("C:\Temp\YourAccessDatabse.accdb")

'Шаг 3: Откройте целевой отчет и отправьте в Word

With AC

.DoCmd.RunMacro "MyMacro"

.Quit

End With

End Sub

Как этот код работает

Первое, что макрос делает, это объявляет переменную объекта. Эта переменная открывает библиотеку приложений баз данных Access.
Шаг 2 использует переменную, чтобы открыть базу данных Microsoft Access, где находится целевой макрос.
Шаг 3 запускает соответствующий макрос и закрывает базу данных.

Так же в этом разделе:

MyTetra Share v.0.59