[VBA]在vba中怎样找当前路径？

weekendor · 发表于 2005-6-29 20:27:00

求教中.....
在vba中怎样找到我当前.dvb文件的路径所在呢？
目的：我是想在.dvb同一目录下读一数据库，但是找不到相关找当前路径的函数方法，烦恼ing...
（在VB中，可以用App.Path知道当前的路径，但是在的vba中好像不能用这个方法。。。　不知有无高招可指教指教）
迫切求救，请教各位大侠！

wyj7485 · 发表于 2005-6-30 14:31:00

Function GetSupportPath() As String
Dim strFileName
strFileName = VBE.ActiveVBProject.FileName 'VBE.ActiveVBProject.FileName获取.dvb文件的文件名
GetSupportPath = Left$(strFileName, InStrRev(strFileName, "\"))
End Function