ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 736|回复: 5

[求助] 使用WPS,运行SQL,源数据超过65536行,结果表显示不全,请教各位老师如何解决

[复制链接]

TA的精华主题

TA的得分主题

发表于 2023-1-30 20:34 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 xmtxfgswrc 于 2023-1-30 20:36 编辑

由于公司只能使用WPS,源数据超过65536行,运行SQL查询,显示不全,请教各位老师如何解决,十分感谢!

“花名册”为数据源,在65536行以内,结果表正确,超过65536行,结果表显示不全。

公众号Excel星球 - WPS结果缺行.zip

572.66 KB, 下载次数: 12

TA的精华主题

TA的得分主题

发表于 2023-1-30 22:02 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2023-1-30 22:39 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
不太懂  给你顶一下

TA的精华主题

TA的得分主题

发表于 2023-1-31 08:03 | 显示全部楼层
strCnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & strPath用这没有问题

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-1-31 18:36 | 显示全部楼层
xyxcc177 发表于 2023-1-31 08:03
strCnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & strPath ...

谢谢老师,安装AccessDatabaseEngine2010后用这个可以了。

TA的精华主题

TA的得分主题

发表于 2024-4-25 07:01 | 显示全部楼层
本帖最后由 ning84 于 2024-4-25 09:32 编辑
xmtxfgswrc 发表于 2023-1-31 18:36
谢谢老师,安装AccessDatabaseEngine2010后用这个可以了。

Access database engine 2010数据库引擎32位/64位免费下载 - 系统之家  https://www.xitongzhijia.net/soft/243207.html


Microsoft Office Access是由微软发布的关系数据库管理系统,它结合了 MicrosoftJet Database Engine 和图形用户界面两项特点,是 Microsoft Office 的系统程序之一。

  Microsoft Office Access是微软把数据库引擎的图形用户界面和软件开发工具结合在一起的一个数据库管理系统。它是微软OFFICE的一个成员, 在包括专业版和更高版本的office版本里面被单独出售。2012年12月4日,最新的微软Office Access 2013在微软Office 2013里发布,微软Office Access 2010 是前一个版本。

  MS ACCESS以它自己的格式将数据存储在基于Access Jet的数据库引擎里。它还可以直接导入或者链接数据(这些数据存储在其他应用程序和数据库)。

  软件开发人员和数据架构师可以使用Microsoft Access开发应用软件,“高级用户”可以使用它来构建软件应用程序。和其他办公应用程序一样,ACCESS支持Visual Basic宏语言,它是一个面向对象的编程语言,可以引用各种对象,包括DAO(数据访问对象),ActiveX数据对象,以及许多其他的ActiveX组件。可视对象用于显示表和报表,他们的方法和属性是在vbA编程环境下,VBA代码模块可以声明和调用Windows操作系统函数。

使用说明

  若要安装此下载,请执行以下操作:

  通过单击“下载”按钮并将文件保存到硬盘上来下载文件。

  双击硬盘上的“AccessDatabaseEngine.exe”程序文件启动安装程序。

  按照屏幕上的说明完成安装。

  若要使用此下载,请执行以下操作:

  如果您是应用程序用户,请查阅您的应用程序文档,了解有关如何使用相应驱动程序的详细信息。

  如果您是使用 OLEDB 的应用程序开发人员,请将 ConnectionString 属性的 Provider 参数设置为“Microsoft.ACE.OLEDB.12.0”。

  如果要连接到 Microsoft office excel 数据,请根据 Excel 文件类型添加相应的 OLEDB 连接字符串扩展属性:

  文件类型(扩展名)                        扩展属性

  ---------------------------------------------------------------------------------------------

  Excel 97-2003 工作簿 (.xls)             “Excel 8.0”

  Excel 2007-2010 工作簿 (.xlsx)          “Excel 12.0 Xml”

  启用宏的 Excel 2007-2010 工作簿 (.xlsm) “Excel 12.0 宏”

  Excel 2007-2010 非 XML 二进制工作簿 (.xlsb) “Excel 12.0”

  如果您是使用 ODBC 连接到 Microsoft Office Access 数据的应用程序开发人员,请将连接字符串设置为“Driver={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=path to mdb/accdb file”

  如果您是使用 ODBC 连接到 Microsoft Office Excel 数据的应用程序开发人员,请将连接字符串设置为“Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=path to xls/xlsx/xlsm/xlsb file”

  若要删除此下载,请执行以下操作:

  若要删除下载文件本身,请删除文件 AccessDatabaseEngine.exe

  在“开始”菜单上,指向“设置”,然后单击“控制面板”。

  双击 “添加/删除程序”。

  在当前安装的应用程序列表中,选择“Microsoft Access 2010 数据库引擎”,然后单击“删除”或“添加/删除”。如果出现对话框,请按照说明删除该程序。

  单击“是”或“确定”,以确认要删除该程序。


image.png

  1. Function SqlRetuRs(Str)
  2.    Dim Cn As ADODB.Connection
  3.        Set Cn = New ADODB.Connection
  4.    Dim Rs As ADODB.Recordset
  5.        Set Rs = New ADODB.Recordset
  6.         'Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';data source=" & ThisWorkbook.FullName
  7.         Cn.Open "Provider=Microsoft.JET.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=yes';Data Source=" & ThisWorkbook.FullName
  8.         Rs.Open Str, Cn, adOpenKeyset, adLockOptimistic
  9.        Set SqlRetuRs = Rs
  10. End Function





  11. Sub DELDELDEL()
  12.    Dim Str, Rs As ADODB.Recordset
  13.       Str = "Select  AAAA, BBBB  From [Sheet1$A1:C876] Where AAAA = 'AA'"
  14.       Debug.Print Str
  15.       Set Rs = SqlRetuRs(Str)
  16.       Debug.Print Rs.RecordCount
  17.       
  18. End Sub

复制代码



您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-5-10 03:38 , Processed in 0.044249 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表