WPS ADODB.Connection

Kil1

在Office2016中，下述A、B、C任一种连接方式均测试通过，请教WPS中怎么写连接方式？谢谢！

    Dim Conn As Object
    Set Conn = CreateObject("ADODB.Connection")   
    Conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Extended Properties = Excel 8.0;Data source = " & ThisWorkbook.FullName                'A
'    Conn.Open "Provider = Microsoft.ACE.OLEDB.12.0;Extended Properties = Excel 12.0;Data Source = " & ThisWorkbook.FullName          'B
'    Conn.Open "dsn=excel files;dbq=" & ThisWorkbook.FullName                                                                                                        'C

向東

我猜是一样的，要不然怎么兼容VBA？

Kil1

向東 发表于 2018-8-28 22:39
我猜是一样的，要不然怎么兼容VBA？

补充：已经测试，在WPS(表格2012)中，以上方式无一通过，所以请教WPS中怎么写连接方式？

microyip

应该有WPS论坛吧？应该到WPS论坛吧？

huang1314wei

Kil1 发表于 2018-8-29 07:40
补充：已经测试，在WPS(表格2012)中，以上方式无一通过，所以请教WPS中怎么写连接方式？

不能通过说明你电脑 没有相应的OLEDB驱动吧，安装一下OLEDB驱动应该就可以了，还有，不能通过你倒是把错误截图提供上来，根据错误提示来找问题根源，你光一句不能通过谁知道是什么问题

Kil1

huang1314wei 发表于 2018-8-29 08:12
不能通过说明你电脑 没有相应的OLEDB驱动吧，安装一下OLEDB驱动应该就可以了，还有，不能通过你倒是把错 ...

你讲的对，再补充细节如下：
1、在程序运行到Open时，三种方式分别报错：
dsn：运行时错误‘-2147467259（80004005）’：自动化（Automation）错误
Jet：运行时错误‘-2147467259（80004005）’：自动化（Automation）错误
ACE：运行时错误‘3706’：应用程序定义或对象定义错误
2、在可使用的引用中包含下列相关文件，如图：
3、我的文件在WPS下另存为2010xlsm格式。
D:\Kil2\Study\用程序来控制一个网页\ExcelSQL\Temp\IMG_20180830_170610.jpg
D:\Kil2\Study\用程序来控制一个网页\ExcelSQL\Temp\IMG_20180830_170642.jpg
帮我判断下问题所在，期待你的专业解答！

Kil1

2、在可使用的引用中包含下列相关文件，如图：

huang1314wei

Kil1 发表于 2018-8-30 20:40
你讲的对，再补充细节如下：
1、在程序运行到Open时，三种方式分别报错：
dsn：运行时错误‘-214746725 ...

专门下载了一个WPS，经过测试，没有发现问题，WPS可以使用ADODB.Connection  的，有图为证



win10 + office2010 32位 +wps 2016 VBA专业版 测试的，截图中的代码运行正常无报错

yuwd3

wps2012版本太低了吧，低版本WPS很多不兼容的。

Kil1

huang1314wei 发表于 2018-8-30 22:19
专门下载了一个WPS，经过测试，没有发现问题，WPS可以使用ADODB.Connection  的，有图为证

在可使用的引用中包含相关ADO文件，是否说明我的机器上已经安装了包括OLEDB等在内的Connection所需要的所有驱动？