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 返回路径及工作簿文件名