VBA中获取当前路径如何写

VBA中获取当前路径如何写
VBA中获取当前路径怎么写？
VB中用的是App.path，但是VBA里用这个就报错了。

我用CurDir也只能找到“我的文档”的目录。

谁有办法啊？
------解决方案--------------------
ThisWorkbook.Path
试试这个路径。

------解决方案--------------------
Dim FullPath As Variant
Dim CurrentProject As Variant
Dim Path As Variant
FullPath =
CurrentProject = Dir(FullPath)
Path = Left(FullPath, InStr(FullPath, CurrentProject) - 1)
万般无奈下还是自己写了几句代码
这个可以发出来留给有需要的朋友
------解决方案--------------------
Application.Path 返回应用程序完整路径ThisWorkbook.Path 返回当前工作薄的路径
Application.DefaultFilePath 返回当前默认文件路径
Application.ActiveWorkbook.Path 只返回路径 返回工作簿文件名Application.ActiveWorkbook.FullName 返回路径及工作簿文
件名。