请问怎样用相对路径访问数据文件？

jsjdn2004

在ACCESS的VBA中，通过ADO或其它一些方式调用数据库（MDB或XLS文件，一般都需指定其绝对路径，如：

Set xApp = CreateObject("excel.application")

Set xBook = xApp.Workbooks.Open("D:\考勤记录表.xls")

请问用什么方法可以用相对路径来调用，就是把两个文件拷贝至同一目录就能运行。

wang1999

直接用下面属性得到当前数据库的路径，应该可以满足你的要求：Application.CurrentProject.Path