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);

}

相关推荐
wuaro8 分钟前
JS的深浅拷贝
前端·javascript·html
CHPCWWHSU34 分钟前
vulkanscenegraph显示倾斜模型(5.6)-vsg::RenderGraph的创建
开发语言·javascript·ecmascript
爱看书的小沐43 分钟前
【小沐杂货铺】基于Three.JS绘制太阳系Solar System(GIS 、WebGL、vue、react)
javascript·vue.js·webgl·three.js·地球·太阳系·三维地球
Hamm1 小时前
用一种全新的方式来实现i18n,和魔法字符串彻底说拜拜
前端·vue.js·typescript
旺代1 小时前
JavaScript日期对象
开发语言·javascript·ecmascript
摸鱼仙人~1 小时前
React: hook相当于函数吗?
前端·javascript·react.js
百锦再1 小时前
React编程高级主题:错误处理(Error Handling)
前端·javascript·react.js·前端框架·vue·web·angular
阿里巴巴首席技术官1 小时前
CSS 高级用法
前端·css
墨绿色的摆渡人1 小时前
论文笔记(七十五)Auto-Encoding Variational Bayes
前端·论文阅读·chrome
今晚吃什么呢?2 小时前
前端面试题之CSS中的box属性
前端·css