ado的连接对象运用open方法出错

opiona · 发表于 2023-4-4 12:00

可以参考70楼: https://club.excelhome.net/thread-859194-7-1.html

直达地址: https://club.excelhome.net/forum ... p;page=7#pid6641635

vb爱好者洗衣机 · 发表于 2023-4-4 13:40

opiona 发表于 2023-4-4 12:00
可以参考70楼: https://club.excelhome.net/thread-859194-7-1.html

直达地址: https://club.excelhome. ...

还是出现同样的问题，

nihao123456789 · 发表于 2023-4-4 13:42

本帖最后由 nihao123456789 于 2023-4-6 09:34 编辑

Function OPENPATH(HDR As String, PATH As String)
Dim Conn1 As Object
Dim strconn As String
Set Conn1 = CreateObject("ADODB.Connection")

strconn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PATH & ";Extended Properties='Excel 12.0;HDR=" & HDR & ";IMEX=1';" 'HDR=NO没有抬头,HDR=YES有抬头,IMEX=0写入，IMEX=1读取，IMEX=2可读可写
Conn1.Open strconn '打开数据库连接

End Function

Sub TEST()
Dim Connect1 As Object
Set Connect1 = CreateObject("ADODB.Connection")
Connect1 = OPENPATH("YES", "C:\工作簿1.XLSX")
Stop
End Sub

按这个，测试可以正常运行

vb爱好者洗衣机 · 发表于 2023-4-4 19:31

最终通过重装系统解决问题，估计是系统文件不适配或者出现丢失

Yalishanda30 · 发表于 2023-4-4 20:10

vb爱好者洗衣机发表于 2023-4-4 19:31
最终通过重装系统解决问题，估计是系统文件不适配或者出现丢失

估计还是驱动问题

vb爱好者洗衣机 · 发表于 2023-4-4 21:36

Yalishanda30 发表于 2023-4-4 20:10
估计还是驱动问题

可能是的，不得解

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

[已解决] ado的连接对象运用open方法出错