易语言excel表格读写方法原创

1、易语言表格读写方法原创我非常喜欢易语言，希望我们国产编程软件越来越强大，也希望各位高手多多指点。 多加我为好友一起探讨，一起学习。说明： 由于工作需要我们经常要跟打交道， 不过想满足更高的要求很多情况下对应我们英 语门外汉来说是很困难， 需要学习， 都是英文非常难看懂，另外结构不是很清晰。 不过易语 言改变了这一切，它结构清晰，易学，只要能看懂汉字就可以。非常简单，而且功能强大。以下为易语言代码.版本 .支持库 .程序集 窗口程序集.子程序 按钮被单击.局部变量 , 整数型.局部变量 列标题数组 , 文本型 , ,.局部变量 , 整数型.局部变量 行标题数组 , 文本型 , ,.局部变量 字段

2、数组 , 字段信息 , ,.局部变量 , 整数型.局部变量 , 整数型.局部变量 , 整数型程序 .创建 () 工作簿 .置程序(程序 )工作簿 .打开 (“” )工作簿.表格序号=' ' 读出列标题.判断循环首(读单元格(,)M ) 加入成员(列标题数组 , 读单元格 (, )=+.判断循环尾 ()' 读出行标题.判断循环首(读单元格(,)M ) 加入成员(行标题数组 , 读单元格 (, ).判断循环尾 () ' 重新定义数组，加字段信息，重定义数组(字段数组 , 假 , 取数组成员数(列标题数组 ).计次循环首(取数组成员数(列标题数组 ), )字段数组.名

3、称=列标题数组字段数组.类型=文本型字段数组.最大文本长度 =. 计次循环尾 ()创建 (“ 数据库 ” , 字段数组 )读，写，加记录，打开，关闭跳过要熟练！ 打开 (“ 数据库 ”, , , , , , )' 外层循环，每行循环.计次循环首(取数组成员数(行标题数组 ), )加空记录 () ' 刚建立的数据库不加记录无法进行 读，写，加记录，跳过操作，一定 要记住！没有记录的情况下无法特定指针！.计次循环首(取数组成员数(列标题数组 ), )写 (, 读单元格 ( , ). 计次循环尾(). 计次循环尾 ()关闭 ()工作簿 .关闭 () ' 由于上面先打开了表格所

4、以要关闭之后才可以释放，不然无法把后台程 序关闭工作簿 .释放 () 程序 .释放 ().子程序 动态复制窗口.局部变量 , 整数型.局部变量 标签变量 , 标签 , , "".局部变量 编辑框变量 , 编辑框 , , ""打开 (“ 数据库 ”, , , , , , )重定义数组(标签变量 , 假 , 取字段数 () ' 不定义数组无法给标题变量数组赋值，下标会出错重定义数组(编辑框变量 , 假, 取字段数 ().计次循环首(取字段数(), )复制窗口组件(标签 , 标签变量 )标签变量.可视=真标签变量.顶边=标签.顶边 +标签.咼度x (-

5、)标签变量.标题=取字段名（）复制窗口组件（编辑框 , 编辑框变量 ）编辑框变量.可视=真编辑框变量.顶边=编辑框顶边+编辑框.高度X （-）.计次循环尾 （）启动窗口 高度=标签变量顶边+标签高度X关闭 （）子程序 读单元格 , 文本型参数 行 , 整数型参数 列 , 整数型 局部变量 指定行列 , 文本型指定行列=取列（列）+到文本（行） 工作簿首单元格=指定行列 返回 （工作簿 内容 ）子程序 写单元格参数 行, 整数型参数 列, 整数型参数 内容 , 文本型局部变量 指定行列 , 文本型 指定行列=取列（列）+到文本（行） 工作簿首单元格=指定行列 工作簿尾单元格=指定行列 工作簿内容

6、=内容子程序 取列, 文本型参数 列, 整数型局部变量 字母数组 , 文本型 , ,局部变量 第一个数 , 整数型 局部变量 第二个数 , 整数型局部变量 列字母 , 文本型字母数组=a ”a ”ja ”a ”a ”a ”a ”a ”jja ”a ”jja ”a ”a ”jjja ”如果（列V)列字母=字母数组列« ?« ?«? «? «? «? «? «?« ?« ? « ?« ?.否则.如果（V列）第一个数=列*第二个数=列 列字母=字母数组第一个数+字母数组第二个数.否则.如果结束.如果结束返回 （列字母 ）.子程序 启动窗口创建完毕启动窗口 .左边=标签左边+启动窗口 .宽度=编辑框.左边+