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

Что делает макрос: Вы можете запускать макросы 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

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

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

Как использовать

Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:

  1. Активируйте редактор Visual Basic, нажав ALT + F11.
  2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта.
  3. Выберите Insert➜Module.
  4. Введите или вставьте код.
Оцените статью
Добавить комментарий