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

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