excel导入超级列表框

易语言 2020-10-08 13:49:17

自己研究出来了,比较简单的 自动生成表头,分享与大家。

.判断循环首 (删全部空 (局部_标志) ≠ “”)
处理事件 ()
局部_索引 = 超级列表框1.插入表项 (, , , , , ) ' 每次插入都必须要做的事情,然后才能插入值 他是插入一列
局部_标志 = “”
.计次循环首 (表头循环次数 - 1, 局部_计次1)
Excel工作簿1.首单元格 = 字符 (96 + 局部_计次1) + 到文本 (局部_计次 + 1)
Excel工作簿1.尾单元格 = 字符 (96 + 局部_计次1) + 到文本 (局部_计次 + 1)
' 每个单元格的设定,,表是每个单元格每个单元格的插入的。
局部_标志 = 局部_标志 + Excel工作簿1.内容
' 用于判断循环的条件的 每内部循环一次就往里面添加数据了。如果整列都没有数据 里面就为空了 如果为空 就不进入循环了 !
超级列表框1.置标题 (局部_索引, 局部_计次1 - 1, Excel工作簿1.内容)
' 插入表中数据的。
.计次循环尾 ()
局部_计次 = 局部_计次 + 1
.判断循环尾 ()