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

工具/原料

  • 易语言软件!
  • excel表格数据

方法/步骤

  1. 1

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

  2. 2

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

  3. 3

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

  4. 4

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

    .版本 2

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

  5. 5

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

     

  6. 6

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

    .版本 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列)

        .计次循环尾 ()

  7. 7

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

    .版本 2.支持库 eExcel2000

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

     

    END

注意事项

  • 其中在第6步中,读入数据可以用行数、列数进行嵌套循环可以了,能有效简化代码量,可以自行思考改写!
经验内容仅供参考,如果您需解决具体问题(尤其法律、医学等领域),建议您详细咨询相关领域专业人士。