| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮2_被单击 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 结束行 | 整数型 | |||||
| 结束列 | 整数型 | |||||
| 表格2行号 | 整数型 | |||||
| 行数据 | 文本型 | |||||
| 列数据 | 文本型 | |||||
| 工作表2 | XL工作表类 | |||||
| 工作表2行 | 整数型 | |||||
| 开始行 | 整数型 | |||||
| 开始列 | 整数型 | |||||
| 取SN数 | 整数型 | |||||
| 工作簿 | XL工作簿类 | |||||
| 工作表 | XL工作表类 | |||||
工作表 ＝ 工作簿.选择工作表 (0)
结束行 ＝ 工作表.结束使用行 () ' 取数据尾行号
结束列 ＝ 工作表.结束使用列 () ' 取数据尾列号
开始行 ＝ 工作表.开始使用行 () ' 0行 第一行
开始列 ＝ 工作表.开始使用列 () ' 0列 第一列
工作表2 ＝ 工作簿.选择工作表 (1) ' 选择写入sheet2 工作表
工作表2行 ＝ 工作表2.结束使用行 () ' 取数据尾行号
计次循环首 (结束行, 开始行) ' 循环遍历第一行到结束行
计次循环首 (结束列, 开始列)循环遍历第列到结束列开始列 ＝ 开始列 － 1 ' -1 是从0列开始,也就是A列或第一列行数据 ＝ 工作表.取单元格文本 (开始行, 开始列, ) ' 获取A1单元格数据保存到 变量中执行结果 (“第” ＋ 到文本 (开始行) ＋ “行” ＋ 到文本 (开始列) ＋ “条” ＋ 行数据, , ) ' 获取内容输出到编辑框内查看状态
判断 (行数据 ＝ “”) ' 如果变量返回空值,执行以下操作,工作簿.保存文件 (编辑框_excel表格路径.内容) ' 保存Excel数据取SN数 ＝ 工作表2.结束使用行 () ' 获取已合并的数据行数操作日志_2 (“合并完成!共” ＋ 到文本 (取SN数) ＋ “条SN,请打开表格查看”, , #红色 ) ' 获取内容输出到编辑框内查看状态
跳出循环 () ' 结束循环
' 否则继续执行以下操作
工作表2.置单元格文本 (工作表2行, “A”, 行数据, ) ' 获取到的数据写入sheet2 A列中工作表2行 ＝ 工作表2行 ＋ 1 ' 下次循环数据写入后一行工作簿.保存文件 (编辑框_excel表格路径.内容)
计次循环尾 ()计次循环尾 ()