首页 > 开发 > 其他 > 正文

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

2019-10-20 16:30:34
字体:
来源:转载
供稿:网友

易语言在操作excel时,常用自带组件表格或者高级表格来进行互换操作,把excel作为一个数据库类型,那么excel能不能用超级表框来互换操作,现在来看看怎样将excel表格的数据导入到超级列表框吧!

易语言,excel表格,超级列表框

工具/原料

易语言软件!

excel表格数据

方法/步骤

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

易语言,excel表格,超级列表框

易语言,excel表格,超级列表框

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

易语言,excel表格,超级列表框

易语言,excel表格,超级列表框

易语言,excel表格,超级列表框

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

易语言,excel表格,超级列表框

易语言,excel表格,超级列表框

易语言,excel表格,超级列表框

接下来进入代码部分,_按钮打开_被单击事件下,先添加通用对话框使用代码!过滤文件、指定打开的目录!

.版本 2

通用对话框1.类型 = 0通用对话框1.初始目录 = 取运行目录 ()通用对话框1.过滤器 = “excel文件(*.xlsx)|*.xlsx”.如果真 (通用对话框1.打开 ()) 编辑框1.内容 = 通用对话框1.文件名

易语言,excel表格,超级列表框

添加变量,创建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”, ) 调试输出 (行) 调试输出 (列)

易语言,excel表格,超级列表框

易语言,excel表格,超级列表框

接下来就可以用计次循环首分别读入每一行的数据了!,这里为好理解,用了个笨方法,每循环一次代表读取每一行的数据!然后就把取得的数据置入超级列表框就行了!

.版本 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表格,超级列表框

易语言,excel表格,超级列表框

读入完毕后,当然要将excel关闭并释放了!运行效果就是这样子的!这里把变量表也上传上来,方便观看!

.版本 2.支持库 eExcel2000

Excel工作簿1.关闭 () Excel工作簿1.释放 () Excel程序1.退出 () Excel程序1.释放 ()

易语言,excel表格,超级列表框

易语言,excel表格,超级列表框

易语言,excel表格,超级列表框

END

注意事项

其中在第6步中,读入数据可以用行数、列数进行嵌套循环可以了,能有效简化代码量,可以自行思考改写!


注:相关教程知识阅读请移步到易语言教程频道。
发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表