易语言excel表格怎样导入到超级列表框
易语言在操作excel时,常用自带组件表格或者高级表格来进行互换操作,把excel作为一个数据库类型,那么excel能不能用超级表框来互换操作,现在来看看怎样将excel表格的数据导入到超级列表框吧!
操作方法
- 01
准备好需要的excel表格数据,这里为了演示,随意添加一些数据!打开易语言,新建windows窗口程序,接着就可以添加必要的组件!
- 02
添加必要的组件,这里用到编辑框、按钮、通用对话框、超级列表框、以及excel程序、excel工作簿!
- 03
简单处理一下界面,将组件的标题、超级列表框设置为报表列表框、显示格线,对应设置一下报表列与excel表格,大致界面就完成了!
- 04
接下来进入代码部分,_按钮打开_被单击事件下,先添加通用对话框使用代码!过滤文件、指定打开的目录! .版本 2 通用对话框1.类型 = 0通用对话框1.初始目录 = 取运行目录 ()通用对话框1.过滤器 = “excel文件(*.xlsx)|*.xlsx”.如果真 (通用对话框1.打开 ()) 编辑框1.内容 = 通用对话框1.文件名
- 05
添加变量,创建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”, ) 调试输出 (行) 调试输出 (列)
- 06
接下来就可以用计次循环首分别读入每一行的数据了!,这里为好理解,用了个笨方法,每循环一次代表读取每一行的数据!然后就把取得的数据置入超级列表框就行了! .版本 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列) .计次循环尾 ()
- 07
读入完毕后,当然要将excel关闭并释放了!运行效果就是这样子的!这里把变量表也上传上来,方便观看! .版本 2.支持库 eExcel2000 Excel工作簿1.关闭 () Excel工作簿1.释放 () Excel程序1.退出 () Excel程序1.释放 ()