获得所有加载的VBA工程的路径的错误问题

diadblo · 发表于 2018-7-23 11:26:29

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 diadblo 于 2018-7-25 20:45 编辑

我的DVB文件是存在D:\CADFZ\***.DVB的,
我用下面的代码获取路径D:\CADFZ\
Dim strFileName As String
strFileName = VBE.activeVBproject.FileName 'VBE.ActiveVBProject.FileName获取.dvb文件的文件名
MsgBox strFileName
GetSupportPath = Left$(strFileName, InStrRev(strFileName, "\"))
但是实际运行中,通过VBA調试运行确实是获到D:\CADFZ\
但是通过CAD工具栏按钮来运行,就会是变成这个路径C:\Users\ADMINI~1\AppData\Local\Temp\是什么原因?

Lisphk · 发表于 2018-7-23 20:19:49

路径应该是 \\ 不是 \

diadblo · 发表于 2018-7-25 20:42:37

Lisphk 发表于 2018-7-23 20:19
路径应该是 \\ 不是 \

用\是没问题.只要是反回的路径不对

账号		自动登录	找回密码
密码			立即注册

[求助] 获得所有加载的VBA工程的路径的错误问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。