【WPS应用案例】批量合并工作簿,免费实现终极会员功能
创作者俱乐部成员
今天这个案例是批量操作的终极应用,学会这个案例,今后的任何批量操作,你都可以为所欲为。
【案例】现在文件夹中有很多个工作簿,我们需要将每个工作簿的活动工作表数据合并到一起。
相当于下面这个会员功能:
现在我们用JS宏来免费实现这个功能。
【操作效果】具体操作效果如下:
【代码】具体代码如下,可按ALT+F11打开WPS宏编辑器,复制下面的代码粘贴到编辑器中。
function 合并工作簿() {
let data = [] //定义名为data的数组,用于存放合并后的数据
let fd = Application.FileDialog(msoFileDialogFilePicker) //打开文件选择器
fd.Filters.Clear() //清除文件选择器内容
fd.Filters.Add('Excel文件', '*.xls;*.xlsx;*.xlsm') //显示EXCEL文件
fd.Title = '请选文件' //设置文件选择器标题
if (fd.Show() != -1) { //如果不选择任何文件
alert('你没选中文件!') //弹出提示
return; //结束退出函数
}
t = parseInt(InputBox("请输入标题行数","标题行数",1)); //标题行数,接受用户输入
for (let i = 0; i < fd.SelectedItems.Count; i++) { //遍历文件
let f=fd.SelectedItems.Item(i + 1) //将文件名赋值给变量f
let wb = Workbooks.Open(f) //打开工作簿,赋值给对象wb
let sh = wb.ActiveSheet //将活动工作表赋值给对象sh
let ar = sh.Range('A1').CurrentRegion.Value2 //将活动工作表数据写入数组ar
ar=ar.map((col)=>['['+f+']'+sh.Name,...col]) //第一列添加工作簿和工作表名
wb.Close(false) //关闭工作簿(不保存)
if(i > 0) ar.splice(0,t) //去掉标题行
data = data.concat(ar) //合并数组
}
data[0][0]='工作簿工作表名' //在第一列首行写入标题
Workbooks.Add() //新建工作簿
let rg=ActiveSheet.Range('a1')
rg.Resize(data.length,data[0].length).Value2=data //将合并合并后的数据写入新工作簿活动工作表
}
【素材下载】点击下方链接,下载文件本地文件夹,在本地文件夹中打开,点击“批量合并工作簿”按钮,即可使用合并功能。
https://kdocs.cn/l/crHXJZE0v0qr
WPS函数专家
创作者俱乐部成员
创作者俱乐部成员
创作者俱乐部成员