LibXL_4.2.0.0 模块操作,多行列数据合并到一列

xxaxxanong

LibXL_4.2.0.0 模块 论坛下载
新手分享不喜勿喷,有需要的可以看看

获取Excel所有单元格数据合并到一列.....

  

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
结束行	整数型
结束列	整数型
表格2行号	整数型
行数据	文本型
列数据	文本型
工作表2	XL工作表类
工作表2行	整数型
开始行	整数型
开始列	整数型
取SN数	整数型
工作簿	XL工作簿类
工作表	XL工作表类

工作簿.打开文件 (编辑框_excel表格路径.内容)  ' 编辑框_excel表格路径
工作表 ＝ 工作簿.选择工作表 (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表格路径.内容)

计次循环尾 ()
计次循环尾 ()

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

老乡站住别跑

感谢楼主分享

胖子葛格

感谢大神分享~！

zxxiaopi

感谢分享

一指温柔

感谢分享

艾玛克138

刚好学到这，东西拿走

亿万

感谢分享

pnf

感谢分享

bianyuan456

已经顶贴，感谢您对论坛的支持！

一指温柔

感谢分享