运行时错误 '3706'

zh278483542 · 发表于 2010-8-12 18:14

此宏以前运行正确，前天运行时出现错误，在其他电脑上运行正常，不知什么原因？请老师指点！！谢谢！！
microsoft activex data objects 2.8 library 已引用
Sub 查询()
Dim cnn As ADODB.Connection
  Dim rs As ADODB.Recordset
Dim sql As String
Set cnn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
  cnn.Open "Provider=Microsoft.Jet.OleDb.4.0;Extended Properties='Excel 8.0; HDR=yes';Data Source=" &  ThisWorkbook.FullName
  '运行到此句时出现以下提示
  运行时错误 '3706'：未找到提供程序。该程序可能未正确安装。
sql = "Select 商品名称 , sum(单价) FROM [数据库$d5:j13] Where 颜色 like '%黑%'GROUP BY 商品名称 "
rs.Open sql, cnn, adOpenStatic
Sheet6.Range("a2").CopyFromRecordset rs
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Sub

蓝桥玄霜 · 发表于 2010-8-12 18:22

表格名是否是"数据库"？
Excel是2003版的吗？
最好有附件以便于测试。

zh278483542 · 发表于 2010-8-12 18:37

谢谢蓝桥玄霜关注。
附件已上传

yvhgydn · 发表于 2010-8-12 18:48

是不是在2007版本中运行的，
试试改为provider=microsoft.ace.oledb.12.0;

zh278483542 · 发表于 2010-8-13 08:28

自己顶一下

zh278483542 · 发表于 2010-8-12 23:11

版本office 2003 ，前期可以运行，后来不知什么原因无法运行，但是在其他电脑上运行正常，求老师解答，谢谢！！

zh278483542 · 发表于 2010-8-16 18:33

请教师指点，急！急！急！

urdaddy · 发表于 2011-5-20 23:26

4楼正解～～谢谢

lanceflyliu · 发表于 2011-5-21 00:06

这个在07下测试没有问题呢

/rose平凡 · 发表于 2013-7-26 09:31

好像64位的EXCEL的原因

		自动登录	找回密码
密码			免费注册

[求助] 运行时错误 '3706'

评分

评分

回复 4楼 yvhgydn 的帖子

最新热点 /1