Как открыть отчет Access из Excel

Что делает макрос: Отчеты Access позволяют создавать профессионально отчеты, которые имеют формат PDF. Если вы работаете и распространяете большое количество отчетов Access, следующий макрос может помочь автоматизировать процессы (открыть отчет Access из Excel).

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

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

Код макроса

Sub OtkritOtchetAccess ()
'Шаг 1: Объявляем переменные
Dim AC As Access.Application
'Шаг 2: Запустите Access и откройте целевую базу данных
Set AC = New Access.Application
AC.OpenCurrentDatabase _
("C:\Temp\YourAccessDatabase.accdb")
'Шаг 3: Откройте целевой отчет как текстовый файл Word
With AC
.DoCmd.OpenReport "Отчет о доходах", acViewPreview
.DoCmd.RunCommand acCmdOutputToRTF
.Quit
End With
End Sub

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

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

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

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

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