Sub aa()
Dim cnn As New Connection
'Dim aa As New 数据库字符串
sql = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='text;IMEX=1;HDR=NO;FMT=Delimited;';Data Source=" & ThisWorkbook.Path & "\123.txt"
cnn.Open sqlIf cnn.State = 1 Then '判断是否连接成功
MsgBox "连接成功"Else: MsgBox "no"
End IfEnd Subcnn.Open sql这句错误,提示路径不对,但我连接EXCEL或ACCESS都没有问题,而且123.txt位置也没有问题!!!!!!
Dim cnn As New Connection
'Dim aa As New 数据库字符串
sql = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='text;IMEX=1;HDR=NO;FMT=Delimited;';Data Source=" & ThisWorkbook.Path & "\123.txt"
cnn.Open sqlIf cnn.State = 1 Then '判断是否连接成功
MsgBox "连接成功"Else: MsgBox "no"
End IfEnd Subcnn.Open sql这句错误,提示路径不对,但我连接EXCEL或ACCESS都没有问题,而且123.txt位置也没有问题!!!!!!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货