function 将多个工作簿合并一簿多表(){
	Application.DisplayAlerts=false
	p=ThisWorkbook.Path + "\\"
	p=p.replace(/\\/g,'/')
	f=Dir(p+'*.xls*')
	let tb=ThisWorkbook
	nm=tb.Name
	while(f!==""){
		if(f!==nm&&f.indexOf('~$')==-1){
			fn=f.replace('.xlsx','').replace('.xls','')
			let wb=Workbooks.Open(p+f)
			wb.Sheets.Item(1).Name=fn
			wb.Sheets.Item(1).Copy(tb.Sheets.Item(1))
			wb.Close()
		}
		try{f=Dir()}
		catch{break}
	}
	Application.DisplayAlerts=true
	MsgBox("合并完成",0,"逗号Office技巧")
}