读取excel文件到高级表格易语言源码

读取excel文件到高级表格源码

@易语言论坛

.版本 2
.支持库 eExcel2000
.支持库 eGrid

.子程序 _按钮1_被单击
.局部变量 记录集句柄, 整数型
.局部变量 i, 整数型
.局部变量 单元, 文本型
.局部变量 m
.局部变量 行对象, 对象
.局部变量 列对象, 对象
.局部变量 行, 整数型
.局部变量 列, 整数型
.局部变量 单元格对象, 对象
.局部变量 工作簿对象, 对象
.局部变量 范围, 对象

通用对话框1.打开 ()
编辑框1.内容 ＝ 通用对话框1.文件名
Excel工作簿1.打开 (通用对话框1.文件名)
Excel工作簿1.激活工作簿 ()
Excel工作簿1.激活表格 ()
Excel工作簿1.表格序号 ＝ 1
工作簿对象 ＝ Excel工作簿1.取表格对象 ()
' 工作簿对象.查看 ()
范围 ＝ 工作簿对象.读对象型属性 (“UsedRange”, )
行对象 ＝ 范围.读对象型属性 (“Rows”, )
行 ＝ 行对象.读数值属性 (“Count”, )
列对象 ＝ 范围.读对象型属性 (“Columns”, )
列 ＝ 列对象.读数值属性 (“Count”, )
输出调试文本 (到文本 (行))
输出调试文本 (到文本 (列))
高级表格1.行数 ＝ 1
高级表格1.列数 ＝ 1
高级表格1.置列宽 (0, 50)
高级表格1.置数据 (0, 0, #表格常量.文本型, “序号”)  ' 假设字段名在第一行，可自己调整
.计次循环首 (列, i)  ' 把一条记录中的字段放入数组
    高级表格1.插入列 (, )
    Excel工作簿1.首单元格 ＝ 转换字母 (i) ＋ “1”
    Excel工作簿1.尾单元格 ＝ 转换字母 (i) ＋ “1”
    单元格对象 ＝ Excel工作簿1.取单元格对象 ()
    ' 输出调试文本 (单元格对象.读文本属性 (“Value”, ))
    高级表格1.置数据 (0, i, #表格常量.文本型, 单元格对象.读文本属性 (“Value”, ))
    高级表格1.置列宽 (i, 70)
.计次循环尾 ()
.如果 (外部数据库1.打开 (“ODBC;DBQ=” ＋ 编辑框1.内容 ＋ “;Driver={Microsoft Excel Driver (*.xls)}; ”, ))  ' 通过odbc文本链接xls文件
    记录集句柄 ＝ 外部数据库1.查询 (“select * from [sheet1$]”)
    .如果 (记录集句柄 ≠ 0)
        外部数据库1.到首记录 (记录集句柄)
        i ＝ 1
        m ＝ 1
        外部数据库1.到后一记录 (记录集句柄)
        .判断循环首 (外部数据库1.尾记录后 (记录集句柄) ＝ 假)
            高级表格1.插入行 (, )
            .计次循环首 (列, i)  ' 把一条记录中的字段放入数组
                单元 ＝ 到文本 (外部数据库1.读 (记录集句柄, i))
                高级表格1.置数据 (m, i, #表格常量.文本型, 单元)
                高级表格1.置数据 (m, 0, #表格常量.文本型, 到文本 (i))
            .计次循环尾 ()
            m ＝ m ＋ 1
            外部数据库1.到后一记录 (记录集句柄)
        .判断循环尾 ()
    .否则

    .如果结束

.否则
    信息框 (“连接失败”, 0, )
.如果结束
外部数据库1.关闭记录集 (记录集句柄)
外部数据库1.关闭 ()
Excel工作簿1.关闭 ()
Excel工作簿1.释放 ()
Excel程序1.销毁 ()