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

子程序名	返回值类型	公开	备注
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 />
.判断结束