超级列表框内容导出xlsx表格

文件名 ＝ 到文本 (取现行时间 ())
文件_创建 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.txt”, 0)
文件号 ＝ 打开文件 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.txt”, , )
.计次循环首 (超级列表框1.取表项数 (), i)
写出文本 (文件号, 超级列表框1.取标题 (i － 1, 0) ＋ 字符 (9) ＋ 超级列表框1.取标题 (i － 1, 1) ＋ 字符 (9) ＋ 超级列表框1.取标题 (i － 1, 2) ＋ 字符 (9) ＋ 超级列表框1.取标题 (i － 1, 3) ＋ 字符 (9) ＋ 超级列表框1.取标题 (i － 1, 4) ＋ #换行符)
.计次循环尾 ()
关闭文件 (文件号)
文件更名 (取运行目录 () ＋ “\” ＋ 文件名 ＋ “.txt”, 取运行目录 () ＋ “\” ＋ 文件名 ＋ “.xlsx”)
信息框 (“导出完成”, 0, , )