5、WPS中批量合并每个工作簿中指定表到一个工作簿！

昨天分享了批量把一个工作簿中的很多个表分别保存为单独的工作簿，今天我们来分享下如何批量把很多个工作簿中指定的表合并到一个工作簿中。

案例：

如上，一个文件夹下有1到9月的工作簿，每个工作簿打开后第一张表是需要合并的表。

现在需要分别将这些工作簿一个个打开，复制里面的第一张表到示例工作簿。

最终想实现的效果如下：

思路：遍历指定文件夹下的文件，遍历出来后判断该文件是否是需要的文件，是的话就执行打开复制操作，如此循环……

具体代码如下：

function 合并工作簿中指定的表(){  var twb=ThisWorkbook;  var pah=twb.Path;  var str=pah+"\\*.et";  var fn=Dir(str);  while(fn!=twb.Name){    Workbooks.Open(pah+"\\"+fn);    var awb=ActiveWorkbook    awb.Sheets(1).Copy(null,twb.Sheets(twb.Sheets.Count));    awb.Close(false);    try{      fn=Dir();    }      catch(err){break}    }}

本节先分享到这里，祝大家每天都有进步。