从超级列表框导出内容到xls表格里

拉勾勾

什么都做好了，就差导出的问题了。。

Desktop.rar (393.52 KB, 下载次数: 15)

2014-8-30 17:50 上传

点击文件名下载附件

哪位兄弟看看

H裸奔的鸭子C

列表框内容导出:

_按钮导出_被单击()

.版本 2

.局部变量 文件号, 整数型
.局部变量 n1, 整数型

.如果真 (通用对话框1.打开 ())
    文件号 ＝ 打开文件 (通用对话框1.文件名, #重写, )
.如果真结束

.计次循环首 (列表框1.取项目数 (), n1)
    写出文本 (文件号, 列表框1.取项目文本 (n1 － 1) ＋ #换行符)
.计次循环尾 ()
关闭文件 (文件号)

超级列表框内容导出:

_按钮导出_被单击()

.版本 2
.支持库 iext

.局部变量 局部计次变量, 整数型
.局部变量 文件号, 整数型
.局部变量 x, 整数型
.局部变量 y, 整数型

' 所谓“CSV”，是Comma Separated Value（逗号分隔值）的英文缩写，通常都是纯文本文件。(注释)
通用对话框1.类型 ＝ 1
通用对话框1.过滤器 ＝ “文本文件(*.txt)|*.txt|所有文件(*.*)|*.*”
通用对话框1.默认文件后缀 ＝ “.xls”
.如果真 (通用对话框1.打开 () ＝ 假)
    返回 ()
.如果真结束
文件号 ＝ 打开文件 (通用对话框1.文件名, #重写, )
移到文件首 (文件号)
.变量循环首 (1, 超级列表框1.取表项数 (), 1, x)
    .变量循环首 (1, 2, 1, y)  ' 第2个参数决定取多少项,取全部用超级列表框1.取列数 ()
        输出调试文本 (超级列表框1.取标题 (x － 1, y － 1))
        写出文本 (文件号, 超级列表框1.取标题 (x － 1, y － 1))
        写出文本 (文件号, “,”)  ' 这是控制生成CSV文件用的,
    .变量循环尾 ()
    写出文本 (文件号, #换行符)
.变量循环尾 ()
关闭文件 (文件号)

拉勾勾

明哥 发表于 2014-8-30 18:09
列表框内容导出:

_按钮导出_被单击()

兄弟，这个不能用啊