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

39660519 · 发表于 2023-3-22 08:43

本帖最后由 39660519 于 2023-3-23 20:15 编辑

各位老师：

   公司使用新的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 · 发表于 2023-3-22 10:59

老师帮帮忙

Yalishanda30 · 发表于 2023-3-22 11:02

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

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

limonet · 发表于 2023-3-22 15:12

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

39660519 · 发表于 2023-3-23 10:14

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

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

39660519 · 发表于 2023-3-23 10:15

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

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

Yalishanda30 · 发表于 2023-3-23 10:20

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

缺驱动？运行VBS查看一下

39660519 · 发表于 2023-3-23 11:50

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

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

Yalishanda30 · 发表于 2023-3-23 12:38

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

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

39660519 · 发表于 2023-3-23 16:25

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

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

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

[已解决] 使用2013版EXCEL后，SQL对象打开出现错误

评分

评分

评分

评分