VBA中获取当前路径如何写

VBA中获取当前路径怎么写？
VB中用的是App.path，但是VBA里用这个就报错了。
我用CurDir也只能找到“我的文档”的目录。
谁有办法啊？
------解决方案--------------------------------------------------------
ThisWorkbook.Path

试试这个路径。
------解决方案--------------------------------------------------------
 Dim FullPath As Variant
 Dim CurrentProject As Variant
 Dim Path As Variant

    
 FullPath = CurrentDb.Name
 CurrentProject = Dir(FullPath)
 Path = Left(FullPath, InStr(FullPath, CurrentProject) - 1)

万般无奈下 还是自己写了几句代码
这个可以 发出来留给有需要的朋友
------解决方案--------------------------------------------------------
Application.Path     返回应用程序完整路径
ThisWorkbook.Path 返回当前工作薄的路径 
Application.DefaultFilePath  返回当前默认文件路径 

Application.ActiveWorkbook.Path           只返回路径 
Application.ActiveWorkbook.Name         返回工作簿文件名 
Application.ActiveWorkbook.FullName   返回路径及工作簿文件名