[求助]如何在获取当前VBA工程的路径？

muzi2005888

如题

谢谢

liub951030

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

windandr

dim strpath as string '当前工程所在路径

strpath=thisdrawing.application.vbe.activeVBProject.filename

strpath=left $ (strpath,len(strpath)-len("XXXX.dvb"))