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

节奏大狮 · 发表于 2017-6-12 02:08:24

感谢楼主分享~~~！

a175172268 · 发表于 2017-6-9 18:04:43

666666666666

ht8531262 · 发表于 2017-5-9 17:32:48

我来看看有没有这么吊

yyy7110 · 发表于 2017-5-9 12:02:46

得研究研究怎么处理选完的。。。

s0113 · 发表于 2017-5-4 23:44:05

得研究研究怎么处理选完的。。。

王者路太艰难 · 发表于 2017-4-13 01:13:46

依旧沉沉 · 发表于 2017-2-24 09:40:23

Excel程序1是哪里来的

nnsjj · 发表于 2017-2-21 17:44:39

导不出内容

ximii · 发表于 2017-1-28 22:54:49

ximii 发表于 2017-1-28 22:53
.版本 2
.支持库 eExcel2000
.支持库 iext

写参数时,文件名不用加后缀

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”, 到字节集 (导出项))

		自动登录	找回密码
密码			注册

[易语言成品模块] 超级列表框导入导出Excel模块（可自定义表头）