WPS ADODB.Connection

holyvghost

这个贴子真的是雪中送炭呀，最后那个插件真的好用，我已经搞定了。谢谢谢谢

holyvghost

x-xx-xx 发表于 2020-4-3 09:54
AccessDatabaseEngine.exe

感谢感谢，我也下了这个就搞定了

jiangjiang211

正好被这个问题困扰，谢谢

jiangjiang211

win10家庭版+wps2019（11.1.0.9828），安装32位AccessDatabaseEngine后，恢复正常使用。

jiangjiang211

32位AccessDatabaseEngine下载地址：
链接：https://pan.baidu.com/s/1VXnIFBMQ3c8Dfy0pJL_FXA
提取码：20ow
复制这段内容后打开百度网盘手机App，操作更方便哦

opiona

目前win10  office2019  64位   和 WPS219  测试结果
OLEDB.4.0   WPS中可用  可查自身,可查外部XLS   
OLEDB.12.0  WPS中不可用  非常想知道8楼的12.0版本查询 是怎么做到的!

没办法加了判断  防止出错!

1.     If InStr(Application.Path, "WPS") = 0 Then
   
2.         If InStr(Str_Coon, "Provider=") = 0 Then
   
3.             If Val(Application.Version * 1) < 12 Then
   
4.                 Str_Coon = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;" & Str_Coon
   
5.             Else
   
6.                 Str_Coon = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;" & Str_Coon
   
7.             End If
   
8.         End If
   
9.     Else
   
10.         If InStr(Str_Coon, "Provider=") = 0 Then
    
11.             Str_Coon = "Provider=Microsoft.JET.OLEDB.4.0;Extended Properties='Excel 8.0;" & Str_Coon
    
12.             Rem Str_coon = "Provider=Microsoft.JET.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=yes';Data Source=" & ThisWorkbook.FullName
    
13.         End If
    
14.     End If

复制代码

luppie

jiangjiang211 发表于 2020-7-21 18:03
32位AccessDatabaseEngine下载地址：
链接：https://pan.baidu.com/s/1VXnIFBMQ3c8Dfy0pJL_FXA
提取码： ...

专家你好！看到你的贴子，解决了wps操作access的问题，要安装第三方引擎。我下载了，安装好后，依然报错，还是程序没有安装的错误。我的wps是2019 64位版的，下载的引擎也是64位的。我被wps搞得头疼，不知道你那里能否提供点帮助，谢谢你了！

luppie

x-xx-xx 发表于 2020-4-3 09:54
AccessDatabaseEngine.exe

你好，我的也是64位的，装了你指点的插件，依然不能用，是不是还有什么诀窍，望不吝指点，拜谢！

opiona

测试成功:   Str_coon = "Provider=Microsoft.JET.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=yes';Data Source=" & ThisWorkbook.FullName

jiangjiang211

luppie 发表于 2020-8-20 11:17
你好，我的也是64位的，装了你指点的插件，依然不能用，是不是还有什么诀窍，望不吝指点，拜谢！

装32位，不需要装64位