在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
3cid3w