Как использовать макрос VBA в Excel для запуска Access и открытия базы данных Access
Хотели бы вы отобразить подходящие данные для расчета или открыть базу данных для доступа по другим причинам? Есть много приложений, в которых имеет смысл вызывать базу данных Access через Excel.
То, что вы можете сделать в таблице через гиперссылку, не проблема с макросом Excel. С правильным программным кодом вы можете мгновенно вызвать нужную базу данных. Есть несколько способов сделать это. Используйте следующие команды специально для управления доступом:
Вызов дополнительного доступа ()
Тусклый доступ как объект
Установите Access = CreateObject ("Access.Application")
Access.Visible = True
Access.OpenCurrentDatabase "c: \ files \ testdatenbank.mdb"
MsgBox «База данных открыта».
Access.CloseCurrentDatabase
Установить доступ = ничего
Конец подписки
После команды OPENCURRENTDATABASE укажите путь, по которому находится база данных, в кавычках. После запуска макроса Excel сначала открывает Access, а затем Access открывает соответствующий файл.
Затем Excel отображает окно сообщения, как показано на следующем рисунке:
Информационное окно необходимо, потому что в противном случае содержимое базы данных не было бы видимым, если бы база данных была впоследствии закрыта в Excel.
Чтобы ввести макрос, нажмите комбинацию клавиш ALT F11 в Excel. Это вызывает редактор VBA. Используйте команду ВСТАВИТЬ - МОДУЛЬ, чтобы вставить пустой лист модуля. Чтобы запустить макрос, нажмите комбинацию клавиш ALT F8 в Excel.
