用于访问数据库的当前 Db 函数的 VBA 中未定义变量错误

Question

我正在使用当前Db方法来获取VBA excel宏中的数据库实例。我也添加了引用，但 CurrentDb 方法给出错误"变量未定义">

下面是代码

Dim Db As DAO.Database
Db = CurrentDb

你能帮我这个吗

Answer 1

>CurrentDb是特定于 Access 的全局变量，未在 Excel 中定义。

您需要改为打开数据库：

Dim Db As DAO.Database
Set Db = OpenDatabase("C:UsersFredDatabasesFoo.mdb")

OpenDatabase是 Microsoft DAO 3.6 对象库中全局对象DBEngine的成员(我假设您已经引用了该对象库，因为您的代码具有DAO.Database类型(。