| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮1_被单击 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 数据 | 文本型 | |||||
| 局_计次 | 整数型 | |||||
Excel程序1.取程序对象 ()
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.打开 (“H:\易语言程序设计\成套资料\亚盘测算汇总表.xlsx”)
' 需要调整代码段，该段代码是将Excel文件读取到高级表格中，原Excel工作簿一共有10张表，第一张表是亚盘数据，总共有78列*100行，其余9张表是4列*100行的，数据就这么个规模，目前的问题是读取数据很慢，读取一次需要30秒左右，
计次循环首 (10, 表数) ' 查找所有E表的开盘时间，汇总形成开盘时间数组并写入高表首列
Excel工作簿1.表格序号 ＝ 表数i ＝ 1判断循环首 (真) ' 查找表格首列最后一行非空行号Excel工作簿1.首单元格 ＝ 字符 (97) ＋ 到文本 (i)Excel工作簿1.尾单元格 ＝ 字符 (97) ＋ 到文本 (i)
如果真 (删全部空 (Excel工作簿1.内容) ＝ “”)跳出循环 ()i ＝ i ＋ 1
判断循环尾 ()N ＝ i － 1加入成员 (表格行数数组, N)计次循环首 (N, 单表行数)Excel工作簿1.首单元格 ＝ 字符 (97) ＋ 到文本 (单表行数)Excel工作簿1.尾单元格 ＝ 字符 (97) ＋ 到文本 (单表行数)开盘时间 ＝ Excel工作簿1.内容加入成员 (开盘时间数组, 开盘时间)计次循环尾 ()计次循环尾 ()数组_去重复 (开盘时间数组)
数组_排序1 (开盘时间数组)
高级表格1.行数 ＝ 取数组成员数 (开盘时间数组) ＋ 2
计次循环首 (取数组成员数 (开盘时间数组), i)高级表格1.置数据 (i ＋ 1, 0, #表格常量 .文本型, 开盘时间数组 [i])计次循环尾 ()计次循环首 (9, 表数) ' 第二张表——第十张表的格式是一样的，用计次循环的方式，写入高级表格Excel工作簿1.表格序号 ＝ 表数 ＋ 1计次循环首 (表格行数数组 [表数 ＋ 1], 盘计次)计次循环首 (取数组成员数 (开盘时间数组), 全盘计次)Excel工作簿1.首单元格 ＝ “A” ＋ 到文本 (盘计次)Excel工作簿1.尾单元格 ＝ “A” ＋ 到文本 (盘计次)如果真 (Excel工作簿1.内容 ＝ “”)跳出循环 ()
如果真 (Excel工作簿1.内容 ＝ 开盘时间数组 [全盘计次])写入行数 ＝ 全盘计次 ＋ 1计次循环首 (3, 列计次)Excel工作簿1.首单元格 ＝ 字母赋值 (97 ＋ 列计次) ＋ 到文本 (盘计次)Excel工作簿1.尾单元格 ＝ 字母赋值 (97 ＋ 列计次) ＋ 到文本 (盘计次)数据 ＝ Excel工作簿1.内容数据 ＝ 文本_替换 (数据, , , , “→”, “”, “↓”, “”, “←”, “”, “↑”, “”)如果真 (列计次 ＝ 1)高级表格1.置数据 (写入行数, 表数 × 3 － 2, #表格常量 .文本型, 数据)如果真 (列计次 ＝ 2)高级表格1.置数据 (写入行数, 表数 × 3 － 1, #表格常量 .文本型, 数据)如果真 (列计次 ＝ 3)高级表格1.置数据 (写入行数, 表数 × 3, #表格常量 .文本型, 数据)
计次循环尾 ()计次循环尾 ()计次循环尾 ()计次循环尾 ()Excel工作簿1.表格序号 ＝ 1 ' 单独把第一张表内容读取并写入高级表格
计次循环首 (表格行数数组 [1], 盘计次)计次循环首 (取数组成员数 (开盘时间数组), 全盘计次)Excel工作簿1.首单元格 ＝ “A” ＋ 到文本 (盘计次)Excel工作簿1.尾单元格 ＝ “A” ＋ 到文本 (盘计次)如果真 (Excel工作簿1.内容 ＝ “”)跳出循环 ()如果真 (Excel工作簿1.内容 ＝ 开盘时间数组 [全盘计次])写入行数 ＝ 全盘计次 ＋ 1计次循环首 (74, 列计次)Excel工作簿1.首单元格 ＝ 字母赋值 (97 ＋ 列计次) ＋ 到文本 (盘计次)Excel工作簿1.尾单元格 ＝ 字母赋值 (97 ＋ 列计次) ＋ 到文本 (盘计次)数据 ＝ Excel工作簿1.内容数据 ＝ 文本_替换 (数据, , , , “→”, “”, “↓”, “”, “←”, “”, “↑”, “”)高级表格1.置数据 (写入行数, 列计次 ＋ 27, #表格常量 .文本型, 数据)计次循环尾 ()计次循环尾 ()计次循环尾 ()' 第一段屎山代码写完，至此将需要的数据全部读取并写入高级表格了
Excel工作簿1.保存 (“亚盘测算汇总表.xlsx”)
Excel工作簿1.关闭 ()
Excel工作簿1.释放 ()
Excel程序1.退出 ()
Excel程序1.释放 ()
计次循环首 (取数组成员数 (开盘时间数组), 局_计次)组合框1.加入项目 (开盘时间数组 [局_计次], )计次循环尾 ()| i支持库列表 | 支持库注释 |
| eExcel2000 | EXCEL2000支持库 |
| eGrid | 高级表格支持库 |
