Код VBA для выполнения запроса Access (с изображением)
Что это такое?
Этот код VBA поможет вам запустить Доступ запрос из любого инструмента, поддерживающего VBA, например MS Excel, Word и т.д.
Почему?
You can avoid the process of opening the DB and executing the query manually; this code will execute even from an Excel sheet without opening the Access DB manually.
Если вы используете функцию Импорт Результаты запросов доступа Код, рассмотренный в предыдущем посте, позволяет даже получить результаты запроса в Excel - все одним щелчком мыши.
Код VBA для импорта данных таблицы/запроса Access в Excel
Как использовать код VBA для выполнения запроса Access
(adsbygoogle = window.adsbygoogle || []).push({});
Шаг 1: Скопируйте и вставьте приведенный ниже код в свой модуль.
Dim myDB As Database
Set myDB = OpenDatabase("C:\MYDATABASE.mdb") 'Укажите путь к БД и замените 'MYDATABASE' на имя вашей БД Access.
myDB.Execute "myQuery" 'Замените 'myQuery на имя вашего запроса Access
myDB.close 'Используйте это, только если хотите закрыть DB
Set myDB = OpenDatabase("C:\MYDATABASE.mdb") 'Укажите путь к БД и замените 'MYDATABASE' на имя вашей БД Access.
myDB.Execute "myQuery" 'Замените 'myQuery на имя вашего запроса Access
myDB.close 'Используйте это, только если хотите закрыть DB
Шаг 2: Нажмите кнопку Выполнить или F5, чтобы выполнить запрос Access.
Поделитесь им с друзьями и коллегами!