求助:当前程序路径如何正确引用

siaele2

因为需要,我在表中保存了程序路径,但是在调用中出现问题,系统不能识别 从表中获取的"Application.CurrentProject.Path" ,请问各位老师,该如何解决?
谢谢!


附件中,运行 窗体1, text0会从表1 中获取路径,但是系统不能正确识别 ,
text2 是直接在VBA中填写 Application.CurrentProject.Path,可以正确识别.
我没找到附件免费的选项,只能在回帖奖励里加上



两个按钮在代码如下:

按钮1

1. Private Sub btnText0_Click()
   
2. 
   
3. Dim mPath As String
   
4. 
   
5. mPath = DLookup("mainpath", "表1")
   
6. 
   
7. Me.Text0 = mPath
   
8. 
   
9. Shell "Explorer.exe """ & Me.Text0 & """", vbMaximizedFocus
   
10. 
    
11. End Sub

复制代码

按钮2

1. Private Sub btnText2_Click()
   
2. 
   
3. Me.Text2 = Application.CurrentProject.Path
   
4. 
   
5. Shell "Explorer.exe """ & Me.Text2 & """", vbMaximizedFocus
   
6. 
   
7. 
   
8. End Sub

复制代码

roych

变量和字符串是两码事，加上eval函数就好了。大致是这样：

1. Private Sub btnText0_Click()
   
2. 
   
3.     Dim mPath As String
   
4.     mPath = Eval(DLookup("mainpath", "表1"))
   
5.     Me.Text0 = mPath
   
6.     Shell "Explorer.exe """ & Me.Text0 & """", vbMaximizedFocus
   
7. 
   
8. End Sub

复制代码

具体请参考以下帖子：
http://www.office-cn.net/thread-108898-1-1.html

siaele2

呃,求大神出手帮帮忙

siaele2

roych 发表于 2023-4-20 14:16
变量和字符串是两码事，加上eval函数就好了。大致是这样：具体请参考以下帖子：
http://www.office-cn.net ...

非常感谢!!!!!困扰我好多天了!!真是难者不会,会者不难!!! roych老师学识太渊博了!!!!