如何用vba获取当前打开的access数据库？

在access vba中，可以使用Application.CurrentDb方法获取对当前打开使用的数据库的引用，它将返回一个Database对象。

然后就可以获取当前打开的数据库的各种属性，比如以下代码可以获取access数据库的完整路径：

Sub exceloffice()
    '作者QQ：1722187970，微信：xycgenius，公众号：水星Excel
    Dim db As Database
    Set db = Access.Application.CurrentDb
    With db
        '读取当前access数据库的完整路径
        MsgBox .Name
    End With
End Sub