丶尛绮 丶尛绮
新星网游测试,关注Q群1335025,
关注数: 19 粉丝数: 49 发帖数: 554 关注贴吧数: 10
【求助】Excel表格合并问题,只能合并文字图片无法合并图片 就是把多个 Excel表格合并之后 只有文字合并,表格内图片并未合并。。 求大神!! .版本 2 .支持库 eExcel2000 .子程序 _合并按钮_被单击 .局部变量 循环次数, 整数型 .局部变量 列坐标长度, 整数型 .局部变量 列坐标最后一位, 文本型 .局部变量 列坐标右二位, 文本型 .局部变量 列数1, 文本型 .局部变量 列数2, 文本型 .局部变量 行数1, 整数型 .局部变量 行数2, 整数型 .局部变量 单元格1, 文本型 .局部变量 单元格2, 文本型 .局部变量 下面10列, 整数型 .局部变量 下面10行, 整数型 .局部变量 是否空行, 逻辑型 .局部变量 行能否合并, 逻辑型 .局部变量 列能否合并, 逻辑型 .局部变量 单元格行合并1, 文本型 .局部变量 单元格行合并2, 文本型 .局部变量 最大列数所在行, 整数型 .局部变量 表头行数, 整数型 .局部变量 表头行数2, 整数型 .局部变量 表头是否合并, 逻辑型 .局部变量 最后一个不为空的列, 文本型, , "0" 标签3.可视 = 假 .如果 (单选框1.选中) 重定义数组 (最后一个不为空的列, 假, 到整数 (调节器编辑框.内容) + 1) .否则 重定义数组 (最后一个不为空的列, 假, 到整数 (调节器编辑框.内容) × 合计文件数 + 1) .如果结束 .如果 (Excel程序1.创建 () = 真) Excel程序1.显示 = 真 Excel程序1.激活窗口 () ' Excel程序1.模拟按键 (“{f1}”, 假) Excel程序1.全屏显示 = 假 ' _启动窗口.标题 = “Excel程序创建成功” ' 版本号标签.标题 = “Excel程序版本:” + Excel程序1.版本 + #换行符 + “打印机名称:” + Excel程序1.打印机 .否则 _启动窗口.标题 = “Excel程序创建失败” .如果结束 ' Excel对象 = Excel程序1.取程序对象 () .如果 (Excel程序2.创建 () = 真) Excel程序2.显示 = 假 Excel程序2.激活窗口 () ' Excel程序2.模拟按键 (“{f1}”, 假) Excel程序2.全屏显示 = 假 ' _启动窗口.标题 = “Excel程序创建成功” ' 版本号标签.标题 = “Excel程序版本:” + Excel程序2.版本 + #换行符 + “打印机名称:” + Excel程序2.打印机 .否则 _启动窗口.标题 = “Excel程序创建失败” .如果结束 ' Exce2对象 = Excel程序2.取程序对象 () Excel工作簿1.置程序 (Excel程序1) Excel工作簿2.置程序 (Excel程序2) Excel工作簿2.激活工作簿 () Excel工作簿2.关闭 () .计次循环首 (合计文件数, 循环次数) _启动窗口.标题 = “正在合并第” + 到文本 (循环次数) + “个文件……” 下面10行 = 10 Excel工作簿2.打开 (文件框1.目录 + “\” + 文件名数组 [循环次数]) Excel工作簿2.表格序号 = 1 Excel程序1.显示比例 = Excel程序2.显示比例 .如果 (循环次数 = 1) 行数1 = 1 行数2 = 1 .否则 .如果 (单选框1.选中) 行数2 = 到整数 (调节器编辑框.内容) + 1 .否则 行数2 = 1 .如果结束 .如果结束 列数1 = “A” 列数2 = “A” 单元格1 = 列数1 + 到文本 (行数1) 单元格2 = 列数2 + 到文本 (行数2) 连续赋值 (单元格1, Excel工作簿1.首单元格, Excel工作簿1.尾单元格) 连续赋值 (单元格2, Excel工作簿2.首单元格, Excel工作簿2.尾单元格) .判断循环首 (取文本长度 (到文本 (Excel工作簿2.内容)) ≠ 0 或 下面10行 > 0) 下面10列 = 10 是否空行 = 真 .如果 (取文本长度 (到文本 (Excel工作簿2.内容)) ≠ 0) 下面10行 = 10 是否空行 = 假 .否则 下面10行 = 下面10行 - 1 .如果结束 行能否合并 = 假 .判断循环首 (取文本长度 (到文本 (Excel工作簿2.内容)) ≠ 0 或 下面10列 > 0) .如果 (取文本长度 (到文本 (Excel工作簿2.内容)) ≠ 0) Excel工作簿1.行高 = Excel工作簿2.行高 Excel工作簿1.列宽 = Excel工作簿2.列宽 Excel工作簿1.内容格式 = Excel工作簿2.内容格式 ' Excel工作簿1.阅读顺序 = Excel工作簿2.阅读顺序 Excel工作簿1.字体名 = Excel工作簿2.字体名 Excel工作簿1.字体加粗 = Excel工作簿2.字体加粗 Excel工作簿1.字体颜色 = Excel工作簿2.字体颜色 Excel工作簿1.字体大小 = Excel工作簿2.字体大小 ' Excel工作簿1.字体阴影 = Excel工作簿2.字体阴影 ' Excel工作簿1.字体穿透线 = Excel工作簿2.字体穿透线 ' Excel工作簿1.字体倾斜 = Excel工作簿2.字体倾斜 Excel工作簿1.字体上标 = Excel工作簿2.字体上标 Excel工作簿1.水平对齐方式 = Excel工作簿2.水平对齐方式 Excel工作簿1.垂直对齐方式 = Excel工作簿2.垂直对齐方式 Excel工作簿1.内容 = Excel工作簿2.内容 .如果真 (行数2 < 到整数 (调节器编辑框.内容) + 2) 最后一个不为空的列 [行数2] = 列数2 .如果真 (行数2 < 到整数 (调节器编辑框.内容) + 1 且 行能否合并 且 下面10列 < 10) Excel工作簿1.首单元格 = 单元格行合并1 Excel工作簿1.尾单元格 = 单元格行合并2 Excel工作簿1.合并 () Excel工作簿1.自动调整 () .如果真结束 单元格行合并1 = 单元格1 行能否合并 = 真 下面10列 = 10 下面10行 = 10 .如果真结束 是否空行 = 假 .否则 下面10列 = 下面10列 - 1 .如果真 (行数2 < 到整数 (调节器编辑框.内容) + 2) 单元格行合并2 = 单元格1 .如果真结束 .如果结束 列坐标长度 = 取文本长度 (列数2) 列坐标最后一位 = 字符 (取代码 (取文本左边 (列数2, 1), ) + 1) .如果 (取代码 (列坐标最后一位, ) < 91) 列数2 = 取文本左边 (列数2, 列坐标长度 - 1) + 字符 (取代码 (列坐标最后一位, )) .否则 .如果 (取代码 (取文本右边 (取文本左边 (列数2, 列坐标长度 - 1), 1), ) = 0) 列坐标右二位 = “A” .否则 列坐标右二位 = 字符 (取代码 (取文本右边 (取文本左边 (列数2, 列坐标长度 - 1), 1), ) + 1) .如果结束 列数2 = 取文本左边 (列数2, 列坐标长度 - 2) + 列坐标右二位 + 字符 (取代码 (列坐标最后一位, ) - 26) .如果结束 单元格2 = 列数2 + 到文本 (行数2) 列数1 = 列数2 单元格1 = 列数1 + 到文本 (行数1) 连续赋值 (单元格1, Excel工作簿1.首单元格, Excel工作簿1.尾单元格) 连续赋值 (单元格2, Excel工作簿2.首单元格, Excel工作簿2.尾单元格) .判断循环尾 () .如果真 (循环次数 = 1 或 单选框2.选中) .如果真 (行数2 = 到整数 (调节器编辑框.内容) + 1) 最大列数所在行 = 1 表头是否合并 = 假 .计次循环首 (到整数 (调节器编辑框.内容) + 1, 表头行数) .如果真 (取字符代码 (最后一个不为空的列 [最大列数所在行]) < 取字符代码 (最后一个不为空的列 [表头行数])) 最大列数所在行 = 表头行数 表头是否合并 = 真 .如果真结束 .计次循环尾 () .如果真 (表头是否合并 = 真) .计次循环首 (到整数 (调节器编辑框.内容), 表头行数2) Excel工作簿1.首单元格 = 最后一个不为空的列 [表头行数2] + 到文本 (行数1 - 表头行数2) Excel工作簿1.尾单元格 = 最后一个不为空的列 [最大列数所在行] + 到文本 (行数1 - 表头行数2) Excel工作簿1.合并 () Excel工作簿1.自动调整 () .计次循环尾 () .如果真结束 .如果真结束 .如果真结束 行数2 = 行数2 + 1 列数2 = “A” .如果真 (取反 (是否空行)) 行数1 = 行数1 + 1 .如果真结束 列数1 = “A” 单元格1 = 列数1 + 到文本 (行数1) 单元格2 = 列数2 + 到文本 (行数2) 连续赋值 (单元格1, Excel工作簿1.首单元格, Excel工作簿1.尾单元格) 连续赋值 (单元格2, Excel工作簿2.首单元格, Excel工作簿2.尾单元格) .判断循环尾 () Excel工作簿2.关闭 () Excel工作簿2.释放 () Excel工作簿2.置程序 (Excel程序2) Excel工作簿2.激活工作簿 () Excel工作簿2.关闭 () 进度条1.位置 = 循环次数 .计次循环尾 () Excel工作簿2.关闭 () Excel工作簿2.释放 () Excel程序2.释放 () Excel程序2.退出 () 标签3.可视 = 真 标签3.标题 = “您合并了” + 到文本 (循环次数 - 1) + “个文件。” _启动窗口.标题 = “合并EXCEL文件1.0”
1 下一页