WPS JSA通过OLEDB连接字符串访问EXCEL

jzzqwhw

之前通过VBA的ADO可以便捷进行EXCEL多工作簿和工作表访问，通过sql语句进行数据提取，转换到JSA经过亲测，可以如下实现：
1、可以到微软官方网站下载安装“2010版32位 Microsoft Access 数据库引擎 AccessDatabaseEngine.exe"
（“2010版64位、2016版64位”都不行，“2016版32位 [未测试]”如果电脑上安装了office64位应用，提示无法安装）。

2、建立xlsm文件，打开WPS - 开发工具 - WPS宏编辑器，示例代码如下：

function 单工作簿单工作表获取数据(){
    let sqlstring = "SELECT * FROM [Sheet1$]"
    let connstring = "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=C:\\Users\\whw\\Desktop\\bbb.xlsx;Mode=Share Deny Write;Extended Properties='HDR=YES; ';Jet OLEDB:System database='';Jet OLEDB:Registry Path='';Jet OLEDB:Database Password='';Jet OLEDB:Engine Type=37;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password='';Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False;Jet OLEDB:Bypass UserInfo Validation=False"
　　let qtadd = ActiveSheet.QueryTables.Add(connstring,Range("c4"),sqlstring)
    qtadd.Refresh()

}

function 多工作簿多工作表获取数据(){
　 let sqlstring = "select a.*,b.* from [Excel 12.0;Database=C:\\Users\\whw\\Desktop\\aaa.xlsx].[Sheet1$] as a left join [Excel 12.0;Database=C:\\Users\\whw\\Desktop\\bbb.xlsx].[Sheet1$] as b on a.[id]=b.[id] "
    let connstring = "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=C:\\Users\\whw\\Desktop\\bbb.xlsx;Mode=Share Deny Write;Extended Properties='HDR=YES; ';Jet OLEDB:System database='';Jet OLEDB:Registry Path='';Jet OLEDB:Database Password='';Jet OLEDB:Engine Type=37;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password='';Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False;Jet OLEDB:Bypass UserInfo Validation=False"
　　let qtadd = ActiveSheet.QueryTables.Add(connstring,Range("c4"),sqlstring)
    qtadd.Refresh()

}

imnnoii

斗胆给大家捋一捋


链接字符串如下：

OLEDB;  //OLEDB方式
Provider=Microsoft.ACE.OLEDB.12.0;
Data Source = " "; 填写//excel文件目录
Extended Properties='HDR=YES; '  //把第一行作为标题；可能能加 IMEX=1/2之类的

可能只用写上面几句组合起来就好了就行了。。。大家可以测试下（我没测试，哈哈哈）

SQL 语句正常写。

最后通过QueryTables 链接数据源。
弊端可能是如果要把数据放到模板里，嗯，得多走一步。
楼主可以研究研究如何不用QueryTables这种方法取得数据。

jzzqwhw

connstring连接串，我逐段缩减测试过，好像少一段好像都报错，只能写全，跟VBA的连接串不同。

imnnoii

因为我同时安装了office和wps。所以并没有下载驱动。emmm。

我不知道你是怎么写的，但是不管ODBC,OLEDB.这些。他的点就那么些。

总之，我试了一下，成功了。

我试图还原下你的错误：
请用32位。

jzzqwhw

推荐一个sql客户端工具：GoldSqall，可以操作通过oledb，sql操作excel

jzzqwhw

oledb数据库连接字符串可以简化为：Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\whw\Desktop\bbb.xlsx;Extended Properties='Excel 12.0;HDR=Yes';

jzzqwhw

oledb数据库连接字符串，可以简化为：
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\whw\Desktop\bbb.xlsx;Extended Properties='Excel 12.0;HDR=Yes';

ares_sheng

这个强，连数据库都能连上了