Excel 高速导入导出，用ADODB数据库方式，脱离Office和libxl插件

李泽勇2

脱离OFFICE套件和libxl插件，这种方法需要先新建一个空白的Excel模板，具体看看看DEMO。
用到了 黑月ADODB数据库操作类 1.33 ，模块源码就不发了，论坛里有。
带DEMO ，送给需要的人，觉得可以请给个好评+点赞，谢谢！

  

子程序名	返回值类型	公开	备 注
Excel导入_超级列表框_数据库	逻辑型		数据库模式，高速导入
参数名	类 型	参考	可空	数组	备 注
超列_	超级列表框
Excel文件	文本型
工作表名	文本型				为空默认为：Sheet1
是否清空	逻辑型				为真，清空导入前的数据，为假，不清空 、默认为真

变量名	类 型	静态	数组	备 注
数据库_	ADODB数据库类
记录集_	ADODB记录集类
行数	整数型
列数	整数型
数据_	列表框信息		0
总数量	整数型

判断 (数据库_.连接Excel_2007 (Excel文件))
如果真 (是否为空 (是否清空))
是否清空 ＝ 真
如果真 (是否为空 (工作表名))
工作表名 ＝ “Sheet1”
记录集_.打开 (“select * from [” ＋ 工作表名 ＋ “$]”, 数据库_, , )
总数量 ＝ 记录集_.记录数量 ()
超级列表框_高速插入表项_初始化 (超列_.取窗口句柄 ())
重定义数组 (数据_, 假, 总数量)
计次循环首 (总数量, 行数)
重定义数组 (数据_ [行数].列标题, 假, 超列_.取列数 ())
计次循环首 (超列_.取列数 (), 列数)
数据_ [行数].列标题 [列数] ＝ 记录集_.读入序号记录 (列数 － 1).取文本 ()
计次循环尾 ()
记录集_.到下一条 ()
计次循环尾 ()
记录集_.关闭 ()
数据库_.关闭 ()
如果真 (是否清空)
超列_.全部删除 ()
超级列表框_高速插入表项 (, 数据_)
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
Excel导出_超级列表框_数据库	逻辑型		数据库模式，高速导出  内部已经添加事务处理，无需再次添加。
参数名	类 型	参考	可空	数组	备 注
超列_	超级列表框
文件名	文本型
工作表名	文本型				为空默认为：Sheet1
字段	文本型				多字段用逗号隔开，比如：字段,字段2,编号

变量名	类 型	静态	数组	备 注
数据库_	ADODB数据库类
sql语句	文本型
行数	整数型
成功	逻辑型
列数	整数型
内容	文本型
文本	文本型

判断 (数据库_.连接Excel_2007 (文件名))
数据库_.开始事务 ()
计次循环首 (超列_.取表项数 (), 行数)
计次循环首 (超列_.取列数 (), 列数)
内容 ＝ 内容 ＋ 超列_.取标题 (行数 － 1, 列数 － 1) ＋ “','”
计次循环尾 ()
文本 ＝ 文本_删右边 (内容, 3)  ' 删除右边多余的3个字符
如果真 (是否为空 (工作表名))
工作表名 ＝ “Sheet1”
sql语句 ＝ “insert into [” ＋ 工作表名 ＋ “$] (” ＋ 字段 ＋ “) values ('” ＋ 文本 ＋ “')”
成功 ＝ 数据库_.执行SQL2 (sql语句)
内容 ＝ “”  ' 每循环一行就要清空
如果真 (取反 (成功))
跳出循环 ()

计次循环尾 ()
如果 (成功)
数据库_.保存事务 ()
数据库_.回滚事务 ()
数据库_.关闭 ()
返回 (成功)
返回 (假)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 Excel导入_超级列表框_数据库, 逻辑型, 公开, 数据库模式，高速导入<br /> .参数 超列_, 超级列表框<br /> .参数 Excel文件, 文本型<br /> .参数 工作表名, 文本型, 可空, 为空默认为：Sheet1 <br /> .参数 是否清空, 逻辑型, 可空, 为真，清空导入前的数据，为假，不清空 、默认为真<br /> .局部变量 数据库_, ADODB数据库类<br /> .局部变量 记录集_, ADODB记录集类<br /> .局部变量 行数, 整数型<br /> .局部变量 列数, 整数型<br /> .局部变量 数据_, 列表框信息, , "0"<br /> .局部变量 总数量, 整数型<br /> <br /> .判断开始 (数据库_.连接Excel_2007 (Excel文件))<br />     .如果真 (是否为空 (是否清空))<br />         是否清空 ＝ 真<br />     .如果真结束<br />     .如果真 (是否为空 (工作表名))<br />         工作表名 ＝ “Sheet1”<br />     .如果真结束<br />     记录集_.打开 (“select * from [” ＋ 工作表名 ＋ “$]”, 数据库_, , )<br />     总数量 ＝ 记录集_.记录数量 ()<br />     超级列表框_高速插入表项_初始化 (超列_.取窗口句柄 ())<br />     重定义数组 (数据_, 假, 总数量)<br />     .计次循环首 (总数量, 行数)<br />         重定义数组 (数据_ [行数].列标题, 假, 超列_.取列数 ())<br />         .计次循环首 (超列_.取列数 (), 列数)<br />             数据_ [行数].列标题 [列数] ＝ 记录集_.读入序号记录 (列数 － 1).取文本 ()<br />         .计次循环尾 ()<br />         记录集_.到下一条 ()<br />     .计次循环尾 ()<br />     记录集_.关闭 ()<br />     数据库_.关闭 ()<br />     .如果真 (是否清空)<br />         超列_.全部删除 ()<br />     .如果真结束<br />     超级列表框_高速插入表项 (, 数据_)<br />     返回 (真)<br /> .默认<br />     返回 (假)<br /> .判断结束<br /> <br /> <br /> .子程序 Excel导出_超级列表框_数据库, 逻辑型, 公开, 数据库模式，高速导出  内部已经添加事务处理，无需再次添加。<br /> .参数 超列_, 超级列表框<br /> .参数 文件名, 文本型<br /> .参数 工作表名, 文本型, 可空, 为空默认为：Sheet1<br /> .参数 字段, 文本型, , 多字段用逗号隔开，比如：字段,字段2,编号<br /> .局部变量 数据库_, ADODB数据库类<br /> .局部变量 sql语句, 文本型<br /> .局部变量 行数, 整数型<br /> .局部变量 成功, 逻辑型<br /> .局部变量 列数, 整数型<br /> .局部变量 内容, 文本型<br /> .局部变量 文本, 文本型<br /> <br /> .判断开始 (数据库_.连接Excel_2007 (文件名))<br />     数据库_.开始事务 ()<br />     .计次循环首 (超列_.取表项数 (), 行数)<br />         .计次循环首 (超列_.取列数 (), 列数)<br />             内容 ＝ 内容 ＋ 超列_.取标题 (行数 － 1, 列数 － 1) ＋ “','”<br />         .计次循环尾 ()<br />         文本 ＝ 文本_删右边 (内容, 3)  ' 删除右边多余的3个字符<br />         .如果真 (是否为空 (工作表名))<br />             工作表名 ＝ “Sheet1”<br />         .如果真结束<br />         sql语句 ＝ “insert into [” ＋ 工作表名 ＋ “$] (” ＋ 字段 ＋ “) values ('” ＋ 文本 ＋ “')”<br />         成功 ＝ 数据库_.执行SQL2 (sql语句)<br />         内容 ＝ “”  ' 每循环一行就要清空<br />         .如果真 (取反 (成功))<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     .如果 (成功)<br />         数据库_.保存事务 ()<br />     .否则<br />         数据库_.回滚事务 ()<br />     .如果结束<br />     数据库_.关闭 ()<br />     返回 (成功)<br /> .默认<br />     返回 (假)<br /> .判断结束

附件在这： Excel导入导出-数据库方式.7z (100.36 KB, 下载次数: 573)

2021-12-2 11:15 上传

点击文件名下载附件

李泽勇2

如果数据库连接失败的需要安装AccessDatabaseEngine组件，下载地址：https://www.microsoft.com/en-us/download/details.aspx?id=54920
申明下：这个小东西我感觉没有资格参加 开源大赛，请管理员看到后帮忙修改下，谢谢！

zxxiaopi

感谢分享

duisir

66666666666666666666666666666666666666666666666666666666666666666

LSugar

YYDSYYDSYYDS

lzhenwen

这不错，，，好

lenye

谢谢分享！

杨明煜

支持分享........

w80561307

下载学习一下啊啊

glxmfyx

不错，挺好用的。

xxz123xxz

支持

qaz5080

谢谢分享！