超级列表框内容导出到excel、xlsx格式

超级列表框导出到EXCEL文件 (取运行目录 () ＋ “\”, “文件名.xlsx”, 超级列表框1, 真)
.计次循环首 (局_超级列表框总列数, 局_列) ' 写入超级列表框每一列的内容
局_超级列表框单元格内容 ＝ 超级列表框.取标题 (局_行 － 1, 局_列 － 1)
' 调试输出 (局_超级列表框单元格内容)
局_正则1.创建 (“[-?0-9\.,\%?]”, 局_超级列表框单元格内容, , , , )
.如果 (取文本长度 (局_超级列表框单元格内容) ＝ 局_正则1.取匹配数量 () 且 文本_取出现次数 (局_超级列表框单元格内容, “-”, ) ＜ 2 且 文本_取出现次数 (局_超级列表框单元格内容, “.”, ) ≤ 1)
.判断开始 (文本_取出现次数 (局_超级列表框单元格内容, “%”, ) ＝ 1)
' 调试输出 (“为百分比”)
XL.表格置单元格格式 (Sheet, 局_行, 局_列 － 1, Format)
XL.格式置数字格式 (XL.表格取单元格格式句柄 (Sheet, 局_行, 局_列 － 1), 10) ' C列设置数字为比分比
XL.表格置单元格数值和格式 (Sheet, 局_行, 局_列 － 1, 到数值 (局_超级列表框单元格内容) ÷ 100, )
.默认
' 调试输出 (“整数或小数”)
XL.表格置单元格数值和格式 (Sheet, 局_行, 局_列 － 1, 到数值 (局_超级列表框单元格内容), )
.判断结束

.否则
' 调试输出 (“文本”, 取文本长度 (局_超级列表框单元格内容), 局_正则1.取匹配数量 ())
' XL.表格置单元格格式 (Sheet, 局_行, 局_列 － 1, Format)
XL.表格置单元格文本和格式 (Sheet, 局_行, 局_列 － 1, 局_超级列表框单元格内容, )