discuz最新模板_985短网址生成_seo的排名机制_跨境电商怎么开店铺

 **************************************************************************************************************

点击进入 -我要自学网-国内领先的专业视频教程学习网站

**************************************************************************************************************

本次讲解将多工作簿中的工作表合并到同一个工作簿。

function 批量工作表合并(){var num1=1
var wb1=ThisWorkbook;//当前运行的工作薄
var pah=wb1.Path+"\\测试文件夹\\*.xlsx"//路径+内容赋值给pahvar file=Dir(pah);//遍历文件*.xlsx
while(file!=""){
var pah1=wb1.Path+"\\测试文件夹\\"+file;//路径+名字赋值给pah1var wb2=Workbooks.Open(pah1);//打开遍历的第一个文件
for(var sh of wb2.Sheets){//循环打开的工作薄中的工作表sh.Copy(null,wb1.Sheets(num1));//复制到当前运行的工作薄
num1++//这序号+1是用来控制表示某个工作表
wb2.Close()
file=Dir()
}}}