如何用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
       

发表评论