Question

易语言excel表格怎样导入到超级列表框

Answer 1

准备好需要的excel表格数据，这里为了演示，随意添加一些数据！打开易语言，新建windows窗口程序，接着就可以添加必要的组件！

添加必要的组件，这里用到编辑框、按钮、通用对话框、超级列表框、以及excel程序、excel工作簿！

简单处理一下界面，将组件的标题、超级列表框设置为报表列表框、显示格线，对应设置一下报表列与excel表格，大致界面就完成了！

接下来进入代码部分，_按钮打开_被单击事件下，先添加通用对话框使用代码！过滤文件、指定打开的目录！
.版本 2
通用对话框1.类型 ＝ 0通用对话框1.初始目录 ＝ 取运行目录 ()通用对话框1.过滤器 ＝ “excel文件（*.xlsx）|*.xlsx”.如果真 (通用对话框1.打开 ()) 编辑框1.内容 ＝ 通用对话框1.文件名

添加变量，创建excel程序，读出excel表格的行数与列数！
.版本 2.支持库 eExcel2000.支持库 spec
Excel程序1.创建 () Excel程序1.显示 ＝ 假 Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.打开 (通用对话框1.文件名) Excel工作簿1.激活工作簿 () Excel工作簿1.激活表格 ()
Excel工作簿1.表格序号 ＝ 0 工作簿对象 ＝ Excel工作簿1.取表格对象 () 范围 ＝ 工作簿对象.读对象型属性
(“UsedRange”, ) 行对象 ＝ 范围.读对象型属性 (“Rows”, ) 行 ＝ 行对象.读数值属性 (“Count”,
) 列对像 ＝ 范围.读对象型属性 (“Columns”, ) 列 ＝ 列对像.读数值属性 (“Count”, ) 调试输出
(行) 调试输出 (列)

接下来就可以用计次循环首分别读入每一行的数据了！，这里为好理解，用了个笨方法，每循环一次代表读取每一行的数据！然后就把取得的数据置入超级列表框就行了！
.版本 2.支持库 eExcel2000.支持库 iext
.计次循环首 (行, n1) Excel工作簿1.首单元格 ＝ “A” ＋ 到文本 (n1)
Excel工作簿1.尾单元格 ＝ “A” ＋ 到文本 (n1) 单元格对象 ＝ Excel工作簿1.取单元格对象
() A列 ＝ 单元格对象.读文本属性 (“Value”, )
Excel工作簿1.首单元格 ＝
“B” ＋ 到文本 (n1) Excel工作簿1.尾单元格 ＝ “B” ＋ 到文本 (n1) 单元格对象 ＝
Excel工作簿1.取单元格对象 () B列 ＝ 单元格对象.读文本属性 (“Value”, )
Excel工作簿1.首单元格 ＝ “C” ＋ 到文本 (n1) Excel工作簿1.尾单元格 ＝ “C” ＋ 到文本
(n1) 单元格对象 ＝ Excel工作簿1.取单元格对象 () C列 ＝ 单元格对象.读文本属性
(“Value”, )
Excel工作簿1.首单元格 ＝ “D” ＋ 到文本 (n1)
Excel工作簿1.尾单元格 ＝ “D” ＋ 到文本 (n1) 单元格对象 ＝ Excel工作簿1.取单元格对象
() D列 ＝ 单元格对象.读文本属性 (“Value”, )
Excel工作簿1.首单元格 ＝
“E” ＋ 到文本 (n1) Excel工作簿1.尾单元格 ＝ “E” ＋ 到文本 (n1) 单元格对象 ＝
Excel工作簿1.取单元格对象 () E列 ＝ 单元格对象.读文本属性 (“Value”, )
Excel工作簿1.首单元格 ＝ “F” ＋ 到文本 (n1) Excel工作簿1.尾单元格 ＝ “F” ＋ 到文本
(n1) 单元格对象 ＝ Excel工作簿1.取单元格对象 () F列 ＝ 单元格对象.读文本属性
(“Value”, )
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, A列) 超级列表框1.置标题 (索引, 1, B列) 超级列表框1.置标题
(索引, 2, C列) 超级列表框1.置标题 (索引, 3, D列) 超级列表框1.置标题 (索引, 4, E列)
.计次循环尾 ()

读入完毕后，当然要将excel关闭并释放了！运行效果就是这样子的！这里把变量表也上传上来，方便观看！
.版本 2.支持库 eExcel2000
Excel工作簿1.关闭 () Excel工作簿1.释放 () Excel程序1.退出 () Excel程序1.释放 ()

步骤阅读