怎么得到vba程序的路径

bolow

我想打开dvb同目录下的一个文件，但是运行时得不到这个目录，请问用哪个函数呢

wyj7485

Dim strFileName
strFileName = VBE.ActiveVBProject.FileName 'VBE.ActiveVBProject.FileName获取.dvb文件的文件名
MsgBox Left$(strFileName, InStrRev(strFileName, "\"))

qjcpj

在Excel中使用ThisWorkbook.path函数，在AutoCAD中可使用ThisDrawing.Path函数，不知能不能满足楼主的要求。