vba+ado和ODBC查询在wps时查询打开状态的工作簿失效问题

844265121 · 发表于 2023-7-5 19:01

本帖最后由 844265121 于 2023-7-5 19:22 编辑

各位老师好，工作中遇到一个困扰很久的问题，网上查了好久一直没有解决，特此请教一下。
附件表里面有vba+ado和ODBC链接两种数据查询方式，均是针对本工作簿内的数据查询，在msoffice里测试两种方法都正常，但是在wps里都会报错
1.vba+ado在执行到cn.Open时提示-2147467259错误
vba报错.png

2.ODBC链接方式提示链接错误，无法导入数据
ODBC报错.png

补充说明：
1.以上2种方式在msoffice中均正常工作，在WPS中不能查询本工作簿和打开状态的工作簿，路径更换为其他文件则正常运行
2.accessdatabaseengine已正常安装，包含32位和64位
3.工作中主要使用wps，暂无法完全转到msoffice
4.麻烦各位老师抽空给看下有没有方法能够解决

测试文件-路径在C盘根目录.zip (27.21 KB, 下载次数: 3)

xunanming · 发表于 2023-7-5 23:28

Sub test()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cnstr
cnstr = "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0;hdr=yes';data source=" & ThisWorkbook.FullName
cn.Open cnstr
Dim sql
sql = "select * from [sheet2$]"
rs.Open sql, cn, 1, 3
MsgBox rs.RecordCount
rs.Close
cn.Close
Set cn = Nothing
Set rs = Nothing
End Sub

复制代码

zpy2 · 发表于 2023-7-6 08:28

均是针对本工作簿内的数据查询

能不能把数据放到另外一个工作薄，wps独占打开了，没法ADO了

fzxba · 发表于 2023-7-6 09:36

本帖最后由 fzxba 于 2023-7-6 10:12 编辑

补附件.rar (19.04 KB, 下载次数: 4)

844265121 · 发表于 2023-7-6 11:54

xunanming 发表于 2023-7-5 23:28

好像不是链接字符串的问题，换了还是没效果

844265121 · 发表于 2023-7-6 11:58

fzxba 发表于 2023-7-6 09:36

测试了一下确实可以解决这个问题，但是又有两个疑问，一个是设置为共享后vba工程变成不可查看，没法调试了，二个是数据过大saveas会耽误时间

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

[求助] vba+ado和ODBC查询在wps时查询打开状态的工作簿失效问题