wps连接mysql odbc_如何在WPS中使用ADO连接数据库？

现在数据量越来越大，想实现VBA+ADO。因为单位使用WPS居多。编写的代码语句在office2016中能顺利运行并提取到数据，但是在WPS2019(已安装宏)中无法运行。于是从http://club.excelhome.net/thread-1432952-4-1.html了解到可能还需要安装插件，所以到了微软官网下载了【Microsoft Access 2016 数据库引擎可再发行程序包】，最终还是失败。在此请教各位大神有没有比较好的解决方案，谢谢。

代码如下(摘自——看见星光)

Sub DoSql_Execute1()

Dim cnn As Object, rst As Object

Dim strPath As String, str_cnn As String, strSQL As String

Dim i As Long

Set cnn = CreateObject("adodb.connection")

strPath = ThisWorkbook.FullName

If Application.Version < 12 Then

str_cnn = "Provider=Microsoft.jet.OLEDB.4.0;ExtendedProperties=Excel 8.0;Data Source=" & strPath

Else

str_cnn = "Provider=Microsoft.ACE.OLEDB.12.0;ExtendedProperties=Excel 12.0;Data Source=" & strPath

End If

cnn.Open str_cnn

strSQL = "SE