muzi2005888 发表于 2008-4-9 08:47:00

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

<p>如题</p><p>谢谢</p>

liub951030 发表于 2008-4-9 11:51:00

<p>Public Function GetDirPath() As String<br/>&nbsp;&nbsp;&nbsp; Dim strFileName<br/>&nbsp;&nbsp;&nbsp; strFileName = VBE.ActiveVBProject.fileName 'VBE.ActiveVBProject.FileName获取.dvb文件的文件名<br/>&nbsp;&nbsp;&nbsp; GetDirPath = Left$(strFileName, InStrRev(strFileName, "\"))<br/>End Function</p>

windandr 发表于 2008-4-9 18:06:00

<p>dim strpath as string '当前工程所在路径</p><p>strpath=thisdrawing.application.vbe.activeVBProject.filename</p><p>strpath=left $ (strpath,len(strpath)-len("XXXX.dvb"))</p>
页: [1]
查看完整版本: [求助]如何在获取当前VBA工程的路径？