Ошибка переменной не определена в VBA для функции CurrentDb для доступа к БД

Question

Я использую метод currentDb для получения экземпляра базы данных в макросе VBA excel.Я также добавил ссылку, но метод CurrentDb выдает ошибку «Переменная не определена»

Ниже приведен код

Dim Db As DAO.Database

Db = CurrentDb

Не могли бы вы помочь мне в этом

Answer 1

CurrentDb - глобальная переменная, относящаяся к Access, которая не определена в Excel.

Вам нужно открыть базу данных вместо:

Dim Db As DAO.Database
Set Db = OpenDatabase("C:\Users\Fred\Databases\Foo.mdb")

OpenDatabase является членом глобального объекта DBEngine из библиотеки объектов Microsoft DAO 3.6 (на которую, я полагаю, вы ссылались, поскольку ваш код имеет тип DAO.Database).