超级列表框导入导出Excel模块（可自定义表头）

ximii · 发表于 2017-1-28 22:53:33

.版本 2
.支持库 eExcel2000
.支持库 iext

.子程序导出Excel
.参数文件名, 文本型
.参数 Excel程序, Excel程序
.参数 Excel工作簿, Excel工作簿
.参数超级列表框, 超级列表框
.局部变量导出项, 文本型
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 k, 整数型

删除文件 (文件名＋ “.xls”)
写到文件 (文件名＋ “.txt”, { })
文件更名 (文件名＋ “.txt”, 文件名＋ “.xls”)
Excel程序.创建 ()
Excel工作簿.置程序 (Excel程序)
.计次循环首 (超级列表框.取列数 (), k)
导出项＝导出项＋超级列表框.取列标题 (k － 1) ＋字符 (#Tab键)
.计次循环尾 ()
导出项＝导出项＋ #换行符
.计次循环首 (超级列表框_技师.取表项数 (), i)
.计次循环首 (超级列表框.取列数 (), j)
导出项＝导出项＋超级列表框.取标题 (i － 1, j － 1) ＋字符 (#Tab键)
.计次循环尾 ()
导出项＝导出项＋ #换行符
.计次循环尾 ()
写到文件 (文件名＋ “.xls”, 到字节集 (导出项))