学习笔记)
**************************************************************************************************************
点击进入 -我要自学网-国内领先的专业视频教程学习网站
**************************************************************************************************************
本次讲解将多工作簿中的工作表合并到同一个工作簿。
代码：
function 批量工作表合并(){
var num1=1
var wb1=ThisWorkbook;//当前运行的工作薄
var pah=wb1.Path+"\\测试文件夹\\*.xlsx"//路径+内容赋值给pah
var file=Dir(pah);//遍历文件*.xlsx
while(file!=""){
var pah1=wb1.Path+"\\测试文件夹\\"+file;//路径+名字赋值给pah1
var wb2=Workbooks.Open(pah1);//打开遍历的第一个文件
for(var sh of wb2.Sheets){//循环打开的工作薄中的工作表
sh.Copy(null,wb1.Sheets(num1));//复制到当前运行的工作薄
num1++//这序号+1是用来控制表示某个工作表
wb2.Close()
file=Dir()
}}}
function 批量工作表合并(){ var num1=1 var wb1=ThisWorkbook;//当前运行的工作薄 var pah=wb1.Path+"\\测试文件夹\\*.xlsx"//路径+内容赋值给pah var file=Dir(pah);//遍历文件*.xlsx while(file!=""){ var pah1=wb1.Path+"\\测试文件夹\\"+file;//路径+名字赋值给pah1 var wb2=Workbooks.Open(pah1);//打开遍历的第一个文件 for(var sh of wb2.Sheets){//循环打开的工作薄中的工作表 sh.Copy(null,wb1.Sheets(num1));//复制到当前运行的工作薄 num1++//这序号+1是用来控制表示某个工作表 wb2.Close() file=Dir() }}}
