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

MyTetra Share

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

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

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

Раздел: Разные закладки - VBA - Access - Excel->Access

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

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

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

Что делает макрос: Отчеты 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 объявляет переменную объекта. Эта переменная открывает библиотеку приложений баз данных Access.
На шаге 2, переменная AC запускает Microsoft Access и открывает базу данных, где находится целевой отчет.
Шаг 3 просто запускает соответствующий отчет, посылая вывод в текстовый файл Microsoft Word. После того как файл выводится, база данных закрывается.

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

MyTetra Share v.0.65