Excel 数据库方式高速导入超级列表框-新方式

李泽勇2

  

子程序名	返回值类型	公开	备 注
Excel高速导入	逻辑型
参数名	类 型	参考	可空	数组	备 注
超列句柄	整数型
文件名	文本型
表名称	文本型				一般默认名称：Sheet1

变量名	类 型	静态	数组	备 注
数据连接	对象
记录集	对象
变体1	变体型
变体2	变体型
命令文本	文本型
总行数	整数型
总列数	整数型
对象1	对象
数据_	列表框信息		0
行	整数型
列	整数型

判断 (数据连接.创建 (“ADODB.Connection”, ) 且 记录集.创建 (“ADODB.RecordSet”, ))  ' 创建数据库与记录集
数据连接.方法 (“Open”, “Provider=Microsoft.ACE.OLEDB.12.0; Data Source=” ＋ 文件名 ＋ “; Extended Properties=Excel 12.0;”, “”, “”, -1)
变体1.赋值 (数据连接, )  ' 置数据库连接
变体2.赋值 (“select * from [” ＋ 表名称 ＋ “$]”, )
记录集.方法 (“Open”, 变体2, 变体1, 3, 3)  ' 打开记录集
总行数 ＝ 记录集.读数值属性 (“RecordCount”, )  ' 记录总数量
对象1 ＝ 记录集.读对象型属性 (“Fields”, )
如果真 (对象1.是否为空 ())
总列数 ＝ 0
总列数 ＝ 对象1.读数值属性 (“Count”, )
判断 (总行数 ≠ 0)
SendMessageA (超列句柄, 4105, 0, 0)  ' 清空超级列表框所有表项
重定义数组 (数据_, 假, 总行数)
计次循环首 (总行数, 行)  ' 读工作表数据
重定义数组 (数据_ [行].列标题, 假, 总列数)
计次循环首 (总列数, 列)
对象1 ＝ 记录集.读对象型属性 (“Fields”, )
变体1.赋值 (列 － 1, )
对象1 ＝ 对象1.读对象型属性 (“Item”, 变体1)
变体1 ＝ 对象1.读属性 (“Value”, )
数据_ [行].列标题 [列] ＝ 变体1.取文本 ()
计次循环尾 ()
记录集.方法 (“MoveNext”, )  ' 到下一条
计次循环尾 ()
超级列表框_高速插入表项 (超列句柄, , 数据_)
记录集.方法 (“Close”, )
数据连接.方法 (“Close”, )
返回 (真)
返回 (假)

返回 (假)

.版本 2<br /> <br /> .子程序 Excel高速导入, 逻辑型<br /> .参数 超列句柄, 整数型<br /> .参数 文件名, 文本型<br /> .参数 表名称, 文本型, , 一般默认名称：Sheet1<br /> .局部变量 数据连接, 对象<br /> .局部变量 记录集, 对象<br /> .局部变量 变体1, 变体型<br /> .局部变量 变体2, 变体型<br /> .局部变量 命令文本, 文本型<br /> .局部变量 总行数, 整数型<br /> .局部变量 总列数, 整数型<br /> .局部变量 对象1, 对象<br /> .局部变量 数据_, 列表框信息, , "0"<br /> .局部变量 行, 整数型<br /> .局部变量 列, 整数型<br /> <br /> .判断开始 (数据连接.创建 (“ADODB.Connection”, ) 且 记录集.创建 (“ADODB.RecordSet”, ))  ' 创建数据库与记录集<br />     数据连接.方法 (“Open”, “Provider=Microsoft.ACE.OLEDB.12.0; Data Source=” ＋ 文件名 ＋ “; Extended Properties=Excel 12.0;”, “”, “”, -1)<br />     变体1.赋值 (数据连接, )  ' 置数据库连接<br />     变体2.赋值 (“select * from [” ＋ 表名称 ＋ “$]”, )<br />     记录集.方法 (“Open”, 变体2, 变体1, 3, 3)  ' 打开记录集<br />     总行数 ＝ 记录集.读数值属性 (“RecordCount”, )  ' 记录总数量<br />     对象1 ＝ 记录集.读对象型属性 (“Fields”, )<br />     .如果真 (对象1.是否为空 ())<br />         总列数 ＝ 0<br />     .如果真结束<br />     总列数 ＝ 对象1.读数值属性 (“Count”, )<br />     .判断开始 (总行数 ≠ 0)<br />         SendMessageA (超列句柄, 4105, 0, 0)  ' 清空超级列表框所有表项<br />         重定义数组 (数据_, 假, 总行数)<br />         .计次循环首 (总行数, 行)  ' 读工作表数据<br />             重定义数组 (数据_ [行].列标题, 假, 总列数)<br />             .计次循环首 (总列数, 列)<br />                 对象1 ＝ 记录集.读对象型属性 (“Fields”, )<br />                 变体1.赋值 (列 － 1, )<br />                 对象1 ＝ 对象1.读对象型属性 (“Item”, 变体1)<br />                 变体1 ＝ 对象1.读属性 (“Value”, )<br />                 数据_ [行].列标题 [列] ＝ 变体1.取文本 ()<br />             .计次循环尾 ()<br />             记录集.方法 (“MoveNext”, )  ' 到下一条<br />         .计次循环尾 ()<br />         超级列表框_高速插入表项 (超列句柄, , 数据_)<br />         记录集.方法 (“Close”, )<br />         数据连接.方法 (“Close”, )<br />         返回 (真)<br />     .默认<br />         返回 (假)<br />     .判断结束<br /> <br /> .默认<br />     返回 (假)

这个子程序数据库连接命令黑月ADODB模块提取出来的，高速插入表项是精易里面提取出来并修改的。


测试附件： Excel 数据库方式高速导入超级列表框.7z (54.75 KB, 下载次数: 123)

2024-6-6 16:27 上传

点击文件名下载附件

kike

来自黑月ADO类，不成功的参考一下：
.版本 2

.子程序 连接Excel2007, 逻辑型, 公开, OLEDB连接，兼容性好，支持xlsx格式，也向下兼容。如果电脑上没有安装高版本Excel可能无法使用，需要安装“AccessDatabaseEngine”组件
.参数 文件路径, 文本型, , 链接:http://download.microsoft.com/do ... sDatabaseEngine.exe
.局部变量 连接文本, 文本型

连接文本 ＝ “Provider=Microsoft.ace.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=” ＋ 文件路径
返回 (连接 (连接文本))

李泽勇2

caoyoo 发表于 2024-11-20 22:41
win10不行吧

可以的。

caoyoo

win10不行吧

错别字

学习一下

wangshiyuan

开源精神必须支持~

zhaoxiaojun

李泽勇2 发表于 2024-9-23 08:12
重装下OFFICE2007

好的，多谢

李泽勇2

zhaoxiaojun 发表于 2024-9-23 00:01
我点了毫无反应不知道什么情况

重装下OFFICE2007

zhaoxiaojun

我点了毫无反应不知道什么情况

cdzch

新手报告，学习中，向高手致敬

pnf

感谢分享

李泽勇2

哦啦啦 发表于 2024-8-3 22:49
我点了毫无反应不知道什么情况

如果电脑上没有安装高版本Excel可能无法使用，需要安装“AccessDatabaseEngine”组件