类模块问题！

suxiong

1. Property Get TXT数据库字符串()
   
2. TXT数据库字符串 = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='text;IMEX=1;HDR=NO;FMT=Delimited;';Data Source=" & ThisWorkbook.Path & "\123.txt"
   
3. End Property
   

复制代码

1. Sub aa()
   
2. Dim cnn As New Connection
   
3. Dim aa As New 数据库字符串
   
4. cnn.Open aa.TXT数据库字符串
   
5. If cnn.State = 1 Then '判断是否连接成功
   
6. MsgBox "连接成功"
   
7. 
   
8. Else: MsgBox "no"
   
9. End If
   
10. 
    
11. End Sub
    

复制代码

“Property Get TXT数据库字符串”为一个类模块，我想用AA去调用，但怎么都不行，提示“d:\1\123.txt”不是用效的路径，请问什么原因呢？

heni1314

可能你d盘1文件没有123.txt

suxiong

heni1314 发表于 2012-5-21 22:50
可能你d盘1文件没有123.txt

有哈，与宏文件放到同一个文件夹下的！

suxiong

自己顶一下吧，沉的快