使用2013版EXCEL后，SQL对象打开出现错误

39660519

各位老师：

       公司使用新的2013版EXCEL后，以前用到的SQL对象打开出现错误，希望得到老师们的帮助。谢谢！！

    Set Conn = CreateObject("ADODB.Connection") '后期绑定
    Set Rst = CreateObject("ADODB.Recordset")
    Path = ThisWorkbook.FullName   
    If Application.Version * 1 <= 11 Then '03版以后 Ace的区别
        strConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & Path
    Else
        strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Path & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
    End If
    Conn.Open strConn '打开数据库链接



运行到红色这句出错。

39660519

老师帮帮忙

Yalishanda30

39660519 发表于 2023-3-22 10:59
老师帮帮忙

"Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=YES;IMEX=2';Data Source="

limonet

else
strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & Path

39660519

Yalishanda30 发表于 2023-3-22 11:02
"Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=YES;IMEX=2';Data Source="

感谢老师，按你的修改了，还是出现同样问题

39660519

limonet 发表于 2023-3-22 15:12
else
strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & P ...

谢谢帮助，还是出现同样问题

Yalishanda30

39660519 发表于 2023-3-23 10:14
感谢老师，按你的修改了，还是出现同样问题

缺驱动？运行VBS查看一下

39660519

Yalishanda30 发表于 2023-3-23 10:20
缺驱动？运行VBS查看一下

麻烦老师帮看看，这是运行结果

Yalishanda30

39660519 发表于 2023-3-23 11:50
麻烦老师帮看看，这是运行结果

https://www.microsoft.com/zh-CN/download/details.aspx?id=50040
安装一下这个吧

39660519

Yalishanda30 发表于 2023-3-23 12:38
https://www.microsoft.com/zh-CN/download/details.aspx?id=50040
安装一下这个吧

老师，安装不了，再麻烦帮看看是什么问题？谢谢