| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮1_被单击 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| i | 整数型 | |||||
| N | 整数型 | |||||
| 行数 | 整数型 | |||||
| 列数 | 整数型 | |||||
Excel程序1.取程序对象 ()
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.打开 (“C:\Users\Administrator\Desktop\测试文件.xlsx”)
Excel工作簿1.表格名 ＝ “数据表”
Excel工作簿1.取单元格对象 ()
i ＝ 1
判断循环首 (真) ' 查找表格首列最后一行非空行号
Excel工作簿1.首单元格 ＝ 字符 (97) ＋ 到文本 (i)Excel工作簿1.尾单元格 ＝ 字符 (97) ＋ 到文本 (i)
如果真 (删全部空 (Excel工作簿1.内容) ＝ “”)跳出循环 ()i ＝ i ＋ 1
判断循环尾 ()N ＝ i ＋ 2
高级表格1.行数 ＝ N
计次循环首 (80, 列数) ' 将表格数据写入高级表格1计次循环首 (N, 行数)Excel工作簿1.首单元格 ＝ 字符 (97 ＋ 列数 － 1) ＋ 到文本 (行数)Excel工作簿1.尾单元格 ＝ 字符 (97 ＋ 列数 － 1) ＋ 到文本 (行数)高级表格1.置数据 (行数 ＋ 1, 列数 － 1, #表格常量 .文本型, 到文本 (Excel工作簿1.内容))计次循环尾 ()计次循环尾 ()| i支持库列表 | 支持库注释 |
| eExcel2000 | EXCEL2000支持库 |
| eGrid | 高级表格支持库 |
