易语言导入EXC EL

如何在易语言直接导入EXCEL，或者直接将excel导入数据库。

用excel控件直接操作.版本 2
.支持库 eExcel2003.子程序 读入excel记录1
.局部变量 字段, 整数型
.局部变量 i, 整数型
.局部变量 范围, 对象
.局部变量 行对象, 对象
.局部变量 列对象, 对象
.局部变量 单元格对象, 对象
.局部变量 工作簿对象, 对象
.局部变量 text, 文本型.变量循环首 (0, 选择列表框1.取项目数 () － 1, 1, i)
.如果真 (选择列表框1.是否被选中 (i))
字段 ＝ i ＋ 1
跳出循环 ()
.如果真结束.变量循环尾 ()' 开始取列
.如果真 (编辑框1.内容 ＝ “”)
信息框 (“请选择要处理的Excel文件！”, 0, )
返回 ()
.如果真结束
.如果真 (Excel程序1.创建 () ＝ 假)
信息框 (“你的计算机上没有EXCEL程序”, 0, )
结束 ()
.如果真结束列表框1.清空 ()
Excel程序1.显示 ＝ 假
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.打开 (编辑框1.内容)
Excel工作簿1.激活工作簿 ()
Excel工作簿1.激活表格 ()
Excel工作簿1.表格序号 ＝ 1 ' 此处可以指定工作簿
工作簿对象 ＝ Excel工作簿1.取表格对象 ()
范围 ＝ 工作簿对象.读对象型属性 (“UsedRange”, )
行对象 ＝ 范围.读对象型属性 (“Rows”, )
行 ＝ 行对象.读数值属性 (“Count”, ).变量循环首 (2, 行, 1, i)
Excel工作簿1.首单元格 ＝ 转换字母 (字段) ＋ 到文本 (i)
Excel工作簿1.尾单元格 ＝ 转换字母 (字段) ＋ 到文本 (i)
单元格对象 ＝ Excel工作簿1.取单元格对象 ()
text ＝ 单元格对象.读文本属性 (“Value”, )
.如果真 (text ≠ “”)
列表框1.加入项目 (text, i)
.如果真结束.变量循环尾 ()Excel工作簿1.关闭 ()
Excel工作簿1.释放 ()