wps发布JS宏编辑器的功能已经很久了，今天尝试写了个非常简单的Excel表格合并的工具，发现真的是吊打VBA语言！就是有个小小的缺点：不支持外接程序和ActiveX控件，有点可惜，不过终于可以摆脱VBA傻傻的数组、和字典操作了。

核心功能可以通过选择需要的表格来进行合并，并将数据写入到一个新建的工作簿中，可以指定合并后的文件名称，先看动画效果：

实现思路：

1. 通过FileDialog对象调用文件选择对话框选择文件，获取选中文件的完整路径

1. 遍历文件路径，利用Workbooks.Open方法打开每一个Excel文件

1. 然后用Range.CurrentRegion方法把有数据的区域转化为js可操作的数组

1. 将合并的数据写入到新建的Excel文件中

步骤

一、在wps新建一个Excel文件，切换到开发工具，点击切换到JS环境，然后创建两个按钮，在设计模式下双击创建好的按钮，wps宏编辑器即可生成对应按钮的点击事件处理函数

二、代码其实非常简单，会js都没问题，看注释应该就能理解，这里就直接上代码

源码下载（不需要积分）：https://download.csdn.net/download/huaermeier/87415538

//按钮1点击事件处理函数
function CommandButton1_Click() {let fd = Application.FileDialog(msoFileDialogFilePicker) //创建文件对话框对象, mysht = ThisWorkbook.ActiveSheet //绑定第一张工作表对象, arr = []fd.Filters.Clear() //清空文件对话框的文件过滤规则fd.Filters.Add('Excel文件', '*.xls;*.xlsx;*.csv') //添加xls、xlsx、csv文件过滤规则fd.Title = '请选文件'/*利用Show方法显示对话框，如果用户选择了文件，返回值等于-1这里的if条件是：如果用户取消，则清空B3单元格并提示信息，然后return 结束函数运行*/if (fd.Show() != -1) {mysht.Range('B3').Value2 = ''return alert('你没选中文件！')}//遍历每一项选中的文件，将文件路径写入数组arr变量for (let i = 0; i < fd.SelectedItems.Count; i++) {arr[i] = fd.SelectedItems.Item(i + 1)}//将文件路径赋值到B3单元格，用换行符\n 拼接每个数组元素，Value2表示二维数组取值，你可以把表格当做一个二维数组理解mysht.Range('B3').Value2 = arr.join('\n')
}//按钮2点击事件处理函数
function CommandButton2_Click() {let mysht = ThisWorkbook.ActiveSheet, pth = mysht.Range('B3').Value2.split('\n') //获取刚才赋值到B3单元格的文件路径，用js本身的split方法分割成数组, data = [] //每个工作簿的数据写入到数组里//循环打开工作簿，这里用Range.CurrentRegion方法获取以空行与空列的组合为边界的区域，然后将数据写入到arr数组变量for (let i = 0; i < pth.length; i++) {let wb = Workbooks.Open(pth[i]), sht = wb.ActiveSheet, arr = sht.Range('A1').CurrentRegion.Value2wb.Close() //关闭工作簿if (i > 0) arr.shift() //因为只要保留1行表头，其他都要去掉表头才行，所以循环到第二个工作簿开始就要去掉表头data = data.concat(arr) //合并数组}//新建一个工作簿let wb = Workbooks.Add(), wbsht = wb.ActiveSheet, fileName = ''//如果B2单元格指定了文件名就用，如果没有指定就自动生成一个日期格式的文件名//ThisWorkbook.Path表示当前代码工作簿的路径if (mysht.Range('B2').Value2) {fileName = ThisWorkbook.Path + '\\' + mysht.Range('B2').Value2 + '.xlsx'} else {fileName = ThisWorkbook.Path + '\\newFile' + dateFormat('yyyymmddHHMMSS', new Date) + '.xlsx'}//把合并的数据全部写入到刚刚新建的工作簿里wbsht.Range('A1').Resize(data.length, data[0].length).Value2 = datawb.SaveAs(fileName) //保存文件
}//上网找的js通用的时间格式化函数：yyyy-mm-dd HH:MM:SS
function dateFormat(fmt, date) {let retconst opt = {'y+': date.getFullYear().toString(),        // 年'm+': (date.getMonth() + 1).toString(),     // 月'd+': date.getDate().toString(),            // 日'H+': date.getHours().toString(),           // 时'M+': date.getMinutes().toString(),         // 分'S+': date.getSeconds().toString()          // 秒// 有其他格式化字符需求可以继续添加，必须转化成字符串}for (let k in opt) {ret = new RegExp('(' + k + ')').exec(fmt)if (ret) {fmt = fmt.replace(ret[1], (ret[1].length == 1) ? (opt[k]) : (opt[k].padStart(ret[1].length, '0')))}}return fmt
}