易语言EXCEL表格读写(原创)

我非常喜欢易语言,希望我们国产编程软件越来越强大,也希望各位高手多多指点。多加我为好友一起探讨,一起学习。说明： 由于工作需要我们经常要跟EXCEL打交道,不过想满足更高的要求很多情况下对应我们英语门外汉来说是很困难,需要学习VBA,都是英文非常难看懂,另外结构不是很清晰。不过易语言改变了这一切,它结构清晰,易学,只要能看懂汉字就可以。非常简单,而且功能强大。

易语言Excel表格读写方法-----原创

我非常喜欢易语言，希望我们国产编程软件越来越强大，也希望各位高手多多指点。 多加我为好友一起探讨，一起学习。

说明： 由于工作需要我们经常要跟EXCEL打交道，不过想满足更高的要求很多情况下对应我们英语门外汉来说是很困难，需要学习VBA，都是英文非常难看懂，另外结构不是很清晰。不过易语言改变了这一切，它结构清晰，易学，只要能看懂汉字就可以。非常简单，而且功能强大。

以下为易语言代码

.版本 2

.支持库 eExcel2000

.程序集 窗口程序集1

.子程序 _按钮1_被单击

.局部变量 I, 整数型

.局部变量 列标题数组, 文本型, , "0"

.局部变量 j, 整数型

.局部变量 行标题数组, 文本型, , "0"

.局部变量 字段数组, 字段信息, , "0"

.局部变量 n1, 整数型

.局部变量 m1, 整数型

.局部变量 k1, 整数型

Excel程序1.创建 ()

Excel工作簿1.置程序 (Excel程序1)

Excel工作簿1.打开 (“D:\list.xls”)

Excel工作簿1.表格序号 ＝ 1

' ' 读出列标题

I ＝ 1

.判断循环首 (读单元格 (2, I) ≠ “”)

加入成员 (列标题数组, 读单元格 (2, I))

I ＝ I ＋ 1

.判断循环尾 ()

' 读出行标题

j ＝ 3

.判断循环首 (读单元格 (j, 1) ≠ “”)

我非常喜欢易语言,希望我们国产编程软件越来越强大,也希望各位高手多多指点。多加我为好友一起探讨,一起学习。说明： 由于工作需要我们经常要跟EXCEL打交道,不过想满足更高的要求很多情况下对应我们英语门外汉来说是很困难,需要学习VBA,都是英文非常难看懂,另外结构不是很清晰。不过易语言改变了这一切,它结构清晰,易学,只要能看懂汉字就可以。非常简单,而且功能强大。

加入成员 (行标题数组, 读单元格 (j, 1))

j ＝ j ＋ 1

.判断循环尾 ()

' 重新定义数组，加字段信息，

重定义数组 (字段数组, 假, 取数组成员数 (列标题数组))

.计次循环首 (取数组成员数 (列标题数组), n1)

字段数组 [n1].名称 ＝ 列标题数组 [n1]

字段数组 [n1].类型 ＝ #文本型

字段数组 [n1].最大文本长度 ＝ 30

.计次循环尾 ()

创建 (“D:\数据库\JANOME.edb”, 字段数组)

' 读，写，加记录，打开，关闭跳过要熟练！

打开 (“D:\数据库\JANOME.edb”, , , , , , )

' 外层循环，每行循环

.计次循环首 (取数组成员数 (行标题数组), k1)

加空记录 () ' 刚建立的数据库不加记录无法进行 读，写，加记录，跳过操作，一定要记住！没有记录的情况下无法特定指针！

.计次循环首 (取数组成员数 (列标题数组), m1)

写 (m1, 读单元格 (k1 ＋ 2, m1))

.计次循环尾 ()

.计次循环尾 ()

关闭 ()

Excel工作簿1.关闭 () ' 由于上面先打开了表格所以要关闭之后才可以释放，不然无法把后台Excel程序关闭

Excel工作簿1.释放 ()

Excel程序1.释放 ()

.子程序 动态复制窗口

.局部变量 n1, 整数型

.局部变量 标签变量, 标签, , "1"

.局部变量 编辑框变量, 编辑框, , "1"

打开 (“D:\数据库\JANOME.edb”, , , , , , )

重定义数组 (标签变量, 假, 取字段数 ()) ' 不定义数组无法给标题变量数组赋值，下标会出错

重定义数组 (编辑框变量, 假, 取字段数 ())

.计次循环首 (取字段数 (), n1)

复制窗口组件 (标签1, 标签变量 [n1])

标签变量 [n1].可视 ＝ 真

我非常喜欢易语言,希望我们国产编程软件越来越强大,也希望各位高手多多指点。多加我为好友一起探讨,一起学习。说明： 由于工作需要我们经常要跟EXCEL打交道,不过想满足更高的要求很多情况下对应我们英语门外汉来说是很困难,需要学习VBA,都是英文非常难看懂,另外结构不是很清晰。不过易语言改变了这一切,它结构清晰,易学,只要能看懂汉字就可以。非常简单,而且功能强大。

标签变量 [n1].顶边 ＝ 标签1.顶边 ＋ 标签1.高度 × (n1 － 1)

标签变量 [n1].标题 ＝ 取字段名 (n1)

复制窗口组件 (编辑框1, 编辑框变量 [n1])

编辑框变量 [n1].可视 ＝ 真

编辑框变量 [n1].顶边 ＝ 编辑框1.顶边 ＋ 编辑框1.高度 × (n1 － 1)

.计次循环尾 ()

_启动窗口.高度 ＝ 标签变量 [20].顶边 ＋ 标签1.高度 × 3

关闭 ()

.子程序 读单元格, 文本型

.参数 行, 整数型

.参数 列, 整数型

.局部变量 指定行列, 文本型

指定行列 ＝ 取列 (列) ＋ 到文本 (行)

Excel工作簿1.首单元格 ＝ 指定行列

返回 (Excel工作簿1.内容)

.子程序 写单元格

.参数 行, 整数型

.参数 列, 整数型

.参数 内容, 文本型

.局部变量 指定行列, 文本型

指定行列 ＝ 取列 (列) ＋ 到文本 (行)

Excel工作簿1.首单元格 ＝ 指定行列

Excel工作簿1.尾单元格 ＝ 指定行列

Excel工作簿1.内容 ＝ 内容

.子程序 取列, 文本型

.参数 列, 整数型

.局部变量 字母数组, 文本型, , "1"

.局部变量 第一个数, 整数型

.局部变量 第二个数, 整数型

.局部变量 列字母, 文本型

字母数组 ＝ { “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z” }

我非常喜欢易语言,希望我们国产编程软件越来越强大,也希望各位高手多多指点。多加我为好友一起探讨,一起学习。说明： 由于工作需要我们经常要跟EXCEL打交道,不过想满足更高的要求很多情况下对应我们英语门外汉来说是很困难,需要学习VBA,都是英文非常难看懂,另外结构不是很清晰。不过易语言改变了这一切,它结构清晰,易学,只要能看懂汉字就可以。非常简单,而且功能强大。

.如果 (列 ＜ 27)

列字母 ＝ 字母数组 [列]

.否则

.如果 (26 ＜ 列)

第一个数 ＝ 列 ÷ 26

第二个数 ＝ 列 ％ 26

列字母 ＝ 字母数组 [第一个数] ＋ 字母数组 [第二个数] .否则

.如果结束

.如果结束

返回 (列字母)

.子程序 __启动窗口_创建完毕

_启动窗口.左边 ＝ 标签1.左边 ＋ 500

_启动窗口.宽度 ＝ 编辑框1.左边 ＋ 编辑框1.宽度 ＋ 40

.子程序 _按钮4_被单击< …… 此处隐藏：1650字，全部文档内容请下载后查看。喜欢就下载吧 ……