EXCEL超级列表框的导入导出内容

由于超级列表框已经添加了表头所以导入导出时会重复，现在把超级列表框里的报表列全部清空了

局部_标志 ＝ “1” ' 先给 局部_标志 赋值，目的是让程序进入循环
局部_计次 ＝ 1 ' 设定局部计次的初始值为 1 内部循环完成后赋值 局部_计次 ＝ 局部_计次 ＋ 1 就可以模拟双循环了
.判断循环首 (删全部空 (局部_标志) ≠ “”)
处理事件 ()
局部_索引 ＝ 参数_超级列表框.插入表项 (, , , , , ) ' 每次插入都必须要做的事情，然后才能插入值 他是插入一列
局部_标志 ＝ “”
.计次循环首 (表头循环次数 － 1, 局部_计次1)
Excel工作簿1.首单元格 ＝ 字符 (96 ＋ 局部_计次1) ＋ 到文本 (局部_计次 ＋ 1)
Excel工作簿1.尾单元格 ＝ 字符 (96 ＋ 局部_计次1) ＋ 到文本 (局部_计次 ＋ 1)
' 每个单元格的设定，，表是每个单元格每个单元格的插入的。
局部_标志 ＝ 局部_标志 ＋ Excel工作簿1.内容
' 用于判断循环的条件的 每内部循环一次就往里面添加数据了。如果整列都没有数据 里面就为空了 如果为空 就不进入循环了 ！
参数_超级列表框.置标题 (局部_索引, 局部_计次1 － 1, Excel工作簿1.内容)
' 插入表中数据的。
.计次循环尾 ()
局部_计次 ＝ 局部_计次 ＋ 1
.判断循环尾 ()
信息框 (“你已经成功导入了” ＋ 到文本 (局部_计次 － 2) ＋ “行数据！”, 0, ) ' =======提示信息 不想要可以删除这一行