Excel数据文件导入超级列表框

主要是对超级列表框数据的操作含导入、导出、排序等功能。支持Excel、文本文档快速导出。

1万数据。Excel导入导出1秒左右。本源码参考和学习了前辈们的知识。同时自己也参考了整理了一些资料。如果你觉得好，求最佳答案。
Excel超级列表框快速导入导出源码

.如果 (数据库连接.连接 (“Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=” ＋ 局_文件地址 ＋ “;DefaultDir=” ＋ 局_文件地址 ＋ “;”) ＝ 真)
.如果真 (记录集.置连接 (数据库连接) ＝ 假)
返回 ()
.如果真结束
置等待鼠标 ()
局_SQL语句 ＝ “SELECT * FROM [Sheet1$]”
记录集.打开 (局_SQL语句, #SQL语句, )
进度条.可视 ＝ 真
记录集.到首记录 ()
超级列表框1.全部删除 ()
.判断循环首 (记录集.尾记录后 ＝ 假)
n ＝ n ＋ 1
记录集.读文本 (0, 局_代号)
记录集.读文本 (1, 局_所属)
调试输出 (局_代号, 局_所属)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (n))
超级列表框1.置标题 (索引, 1, 局_代号)
超级列表框1.置标题 (索引, 2, 局_所属)
进度条.位置 ＝ 进度条.位置 ＋ 1
记录集.到下一条 ()
.判断循环尾 ()