WPS宏实现表格合并功能

把文件夹中N个表格Sheet1页的数据合并成一个新的表格

function 合并表格() {

//合并文件为C盘下面名为test的文件夹

var folderPath = "C:\\test";

var fileName = Dir(folderPath +"\\*.*");

if(fileName == ""){

alert("文件为空,无法执行");

}

//创建合并表格,如果合并文件存在会报错,这里没做校验删除

var newWork = Workbooks.Add();

while(fileName != ""){

// 打开工作簿

var workBook = Workbooks.Open(folderPath + "\\" + fileName);

// 执行复制代码

//默认合并每个表格的Sheet1页

var lastCol = workBook.Worksheets("Sheet1").Cells(1, workBook.Worksheets("Sheet1").Columns.Count).End(xlToLeft).Column;

var lastRow = workBook.Worksheets("Sheet1").Cells(workBook.Worksheets("Sheet1").Rows.Count,1).End(xlUp).Row;

//获取合并页的有多少行

var startRow = newWork.Worksheets("Sheet1").Cells(newWork.Worksheets("Sheet1").Rows.Count,1).End(xlUp).Row;

//开始复制

workBook.Worksheets("Sheet1").Range(Cells(1,1),Cells(lastRow,lastCol)).Copy(newWork.Worksheets("Sheet1").Cells(startRow+1, 1));

// 关闭工作簿

workBook.Close(true);

// 获取下一个文件,Dir()方法不给任何参数,默认去找下一个匹配的文件

fileName = Dir();

}

//删除多余的首行

newWork.Worksheets("Sheet1").Range("A1").EntireRow.Delete();

//保存合并表格至原文件夹

newWork.SaveAs(folderPath+"\\"+"合并表格"+".xlsx");

//关闭表格

alert("合并完成,合并表格与要合并的表格同目录下");

newWork.Close(true);

}

相关推荐
遇到困难睡大觉哈哈5 分钟前
JavaScript面向对象
开发语言·javascript·ecmascript
檀越剑指大厂7 分钟前
【Python系列】异步 Web 服务器
服务器·前端·python
我是Superman丶10 分钟前
【前端】js vue 屏蔽BackSpace键删除键导致页面后退的方法
开发语言·前端·javascript
Hello Dam11 分钟前
基于 Spring Boot 实现图片的服务器本地存储及前端回显
服务器·前端·spring boot
小仓桑13 分钟前
利用 Vue 组合式 API 与 requestAnimationFrame 优化大量元素渲染
前端·javascript·vue.js
Hacker_xingchen13 分钟前
Web 学习笔记 - 网络安全
前端·笔记·学习
天海奈奈14 分钟前
前端应用界面的展示与优化(记录)
前端
多多*35 分钟前
后端并发编程操作简述 Java高并发程序设计 六类并发容器 七种线程池 四种阻塞队列
java·开发语言·前端·数据结构·算法·状态模式
ᥬ 小月亮36 分钟前
Layui表格的分页下拉框新增“全部”选项
android·javascript·layui
过期的H2O236 分钟前
【H2O2|全栈】JS进阶知识(十一)axios入门
开发语言·javascript·ecmascript·axios