excel2013使用vba代码提示未找到提供程序，改程序可能未正确安装怎么处理

Posted 2023-04-28

excel2013使用vba代码提示未找到提供程序，改程序可能未正确安装怎么处理

conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName

参考技术A microsoft.ace.oledb.12.0
换成这个试试本回答被提问者采纳

WIN7系统 VB.NET2008 连接数据库ACCESS2007 提示未找到提供程序 该程序未正确安装

代码如下： Public Sub newCnOpen()
On Error GoTo Err1
conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "C:\app" & "\D.mdb;")
If conn.State <> 1 Then
conn.Open()
End If
Exit Sub
Err1:
MsgBox("错误M001：" & Err.Description, vbCritical, "错误提示")
END SUB
这个代码我在XP用过可以的 不知为何WIN7就不对了

参考技术A 连接ACCESS2007的连接串格式不对，去百度一下access07的正确连接串。"Provider=...追问

我改了还是不行~ conn.Open("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "C:\app" & "\Database.accdb;")
大虾能帮我看看吗 谢谢

追答

你需要在你的机子上安装access2007

追问

早就安装了~ 之前在XP上试过~

追答

需从VBE的"工具/引用"菜单中选择可引用"Microsoft ActiveX Data Object 2.8 Library"项
需从VBE的"工具/引用"菜单中选择可引用"Microsoft Jet and Replication Objects 2.6 Library"项

追问

这两个都有~ 还是报这个错 是不是和我64位系统的关系》？？？？？？

追答

找个win7 32测试一下，以确定是否是64位win7的问题。

参考技术B 我的电脑也是win7系统不可以连接数据库的，但换我同事的XP系统也就好了，所以我总结，win7系统不兼容这些程序,heh追问

不知道有别的办法不？