Excel工作簿支持库的使用方法例程

易语言 2020-08-14 13:15:49

Excel工作簿支持库的使用方法例程

上传自己调用Excel支持库实现读取数据到高级表格的例程

数据库路径 = 取运行目录 () + “\56.xls”
Excel程序1.创建 ()
' Excel程序1.显示 = 真
调试输出 (“版本”, Excel程序1.版本)
Excel工作簿1.置程序 (Excel程序1)
调试输出 (“xls打开”, Excel工作簿1.打开 (数据库路径))
调试输出 (“表格数量”, Excel工作簿1.表格数量)
Excel工作簿1.表格序号 = 1
Excel工作簿1.激活工作簿 ()
调试输出 (“表格序号”, Excel工作簿1.表格序号, Excel工作簿1.表格名)
变量 = 65
列名 = “初始化”
.判断循环首 (列名 ≠ “”)
索引 = 1
Excel工作簿1.首单元格 = 字符 (变量) + 到文本 (索引)
Excel工作簿1.尾单元格 = 字符 (变量) + 到文本 (索引)
列名 = Excel工作簿1.内容
.如果真 (列名 ≠ “”)
.如果 (变量 - 65 > 高级表格1.列数 - 1)
高级表格1.插入列 (列名, 变量 - 65)
.否则
高级表格1.置数据 (索引 - 1, 变量 - 65, 1, 列名)
.如果结束
单元名 = “初始化”
.判断循环首 (单元名 ≠ “”)
索引 = 索引 + 1
Excel工作簿1.首单元格 = 字符 (变量) + 到文本 (索引)
Excel工作簿1.尾单元格 = 字符 (变量) + 到文本 (索引)
单元名 = Excel工作簿1.内容
.如果真 (单元名 ≠ “”)
.如果 (索引 > 高级表格1.行数 - 1)
高级表格1.插入行 (单元名, 索引 - 1)
.否则
高级表格1.置数据 (索引 - 1, 变量 - 65, 1, 单元名)
.如果结束

.如果真结束

.判断循环尾 ()
.如果真结束
变量 = 变量 + 1
.判断循环尾 ()