将EXCEL内容显示到易语言超级列表框中

Excel程序1.创建 ()
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.激活工作簿 ()
Excel工作簿1.打开 (Excel路径)
.如果真 (超级列表框1.无表头 ＝ 真)
超级列表框1.无表头 ＝ 假
.如果真结束
.如果真 (超级列表框1.取列数 () ＜ 1)
超级列表框1.插入列 (, “序号”, , , , )
超级列表框1.置列宽 (0, 取文本长度 (“序号”) × 9)
超级列表框1.插入列 (, , , , , )
超级列表框1.插入列 (, , , , , )
.如果真结束
.计次循环首 (1, n) ' 置表头标题
Excel工作簿1.首单元格 ＝ 列1 ＋ 到文本 (列标题所在行)
超级列表框1.置列标题 (1, Excel工作簿1.内容)
超级列表框1.置列宽 (1, 取文本长度 (Excel工作簿1.内容) × 9)
Excel工作簿1.首单元格 ＝ 列2 ＋ 到文本 (列标题所在行)
超级列表框1.置列标题 (2, Excel工作簿1.内容)
超级列表框1.置列宽 (2, 取文本长度 (Excel工作簿1.内容) × 9)
.计次循环尾 ()