excel学习库

宏代码如下：

function 根据模板批量生成工作簿(){
var rng =Application.InputBox("选取单元格区域","潮普哥带你学Excel",
Selection.Address(),
undefined,undefined,undefined,undefined,8);
if(!rng){return null};
rng=Intersect(rng,rng.Parent.UsedRange);
if(!rng){
MsgBox("未选取有效单元格区域，程序退出");
return null;
}
var sj=rng.Count
var pah=ThisWorkbook.Path;
for (var rngs of rng){
var t=rngs.Value()
var wb=Workbooks.Add(pah+"\\模板.xls");
wb.SaveAs(pah+'/'+t+".xls");
wb.Close(true)
}
MsgBox("一共生成" + sj +"个工作簿",0,"潮普哥带你学Excel");
}