microsoft.jet.oledb.4.0，xlsm不成功，xls成功。

ning84

Cn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;HDR=YES';data source=" & ThisWorkbook.FullName
xlsm引进错误，xls文件成功。




Cn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 8.0;HDR=YES';data source=" & ThisWorkbook.FullName
引进失败。错误如下。





++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
        If Application.Version >= 15 Then
               '调用数据库类型----------------------------------------
               '针对Excel2013数据引用微软引擎，最后添加数据库路径
               Cn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0;HDR=yes;imex=1';data source=" & ThisWorkbook.FullName
        ElseIf Application.Version >= 14 Then
               '针对Excel2010以前的数据引用微软引擎，最后添加数据库路径
               Cn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 8.0;HDR=YES';data source=" & ThisWorkbook.FullName
        ElseIf Application.Version >= 11 Then
               '针对Excel2003以前的数据引用微软引擎，最后添加数据库路径
               Cn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;HDR=YES';data source=" & ThisWorkbook.FullName
        End If

        SqlStr = "Select * from [D:\SunriseSunset.xls].[珠海$A607:c636]"
        Set Rs1 = Cn.Execute(SqlStr)
***********************************

ning84

花功夫把这个贴子好好学写一遍
在EXCEL中使用SQL语句查询集锦-持续更新中，敬请关注-Excel VBA程序开发-ExcelHome技术论坛 -  https://club.excelhome.net/forum ... id=86884&page=1

ning84

Excel SQL查询中  https://www.excelhome.net/3862.html
Excel SQL查询中"表"技巧的总结  https://mp.weixin.qq.com/s/NrHdVJPwj0b1QPDRpelYbQ


为什么VBA+ADO方法的SQL语句比OLE DB法更复杂？

好像明白，不选择引用项，用这条语句更好点。