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

liuyanjun75

谢谢；楼主分享

liuyanjun75

感觉 。 看下，学习

李泽勇2

yqx520 发表于 2022-3-27 12:58
我想请问一下， 如果想打开软件， 直接就出EXCEL的内容，不用按导入EXCEL才出现内容 。 这个要怎么实现 ， ...

你直接用这个，不用其他的，把这个子程序放到 启动窗口创建完毕里面。

  

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

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

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

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

.子程序 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 /> .判断结束

yqx520

我想请问一下， 如果想打开软件， 直接就出EXCEL的内容，不用按导入EXCEL才出现内容 。 这个要怎么实现 ， 我是新手， 谢谢。我不想要这些按钮。 就能直接出来EXCEL的东西，

yqx520

感觉 。 看下，学习

天涯浪人

ADODB数据库操作，谢谢

wsdmr

如何使用

ccc9

谢谢大佬

执骨哟

强，用数据库的方式操作

李泽勇2

53645111 发表于 2022-3-8 16:46
请教，这个能直接读取当前活动工作表索引吗？如果用excel操作类有取这个索引的方法，但是关闭excel文件时提 ...

用数据库方式可以建立数据库专用的索引，用虫子的EXCEL操作类里面有个《关闭工作簿》的命令，它就可以做到不提示保存文件。