运行错误

运行错误

程序都注释了，需要引用以下控件
【需要引用Microsoft Activex Data Objects 2.5 Library】

这个需要另外安装吗

具体怎么用呢？小白求原谅

我的开发环境是excel2010，这个有影响吗

win7 64位

你再试试，打开官塘驿镇白羊村一组村民小组湖北地信Excel文件 - 副本.xlsm空白处双击即可。
excel版本高了驱动改了

不同版本的execl ado的版本不同，你在vb-工程-应用，可以找到你机器的相关ADO的版本

Microsoft Activex Data Objects 2.5 Library
Microsoft Activex Data Objects 2.6 Library
Microsoft Activex Data Objects 2.7 Library
Microsoft Activex Data Objects 2.8 Library
每一个对应各自版本的execl

但是对于查询语句，应用对应的查询语句，一般都可兼容。

不过不同版本execl的sql 语句不一致，以下是execl2003，execl2007的驱动，execl2010我没安装，没法验证

If Right(Execl_name, Len(Execl_name) - InStrRev(Execl_name, ".")) = "xls" Then
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;data source=" & Execl_name & ";extended properties= 'Excel 8.0;HDR=NO;IMEX=1';"
  ElseIf Right(Execl_name, Len(Execl_name) - InStrRev(Execl_name, ".")) = "xlsx" Then
    cn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Persist Security Info=False;data source=" & Execl_name & ";extended properties= 'Excel 12.0;HDR=NO;IMEX=1';"
  End If

[此贴子已经被作者于2019-1-4 12:18编辑过]