各位老师:
大家好!
我们公司年底做费用汇总时,需要把各分部的明细表单独发给各分部,
同时,在向各分部搜集资料的时候,需要把多个工作表汇总成一个多工作表的工作簿。
我在网上搜索到一段代码:
PrivateSub 分拆工作表() Dim sht As Worksheet Dim MyBook As Workbook Set MyBook = ActiveWorkbook For Each sht InMyBook.Sheets sht.Copy ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name,FileFormat:=xlOpenXMLWorkbook '将工作簿另存为xlsx格式 ActiveWorkbook.Close Next MsgBox "文件已经被分拆完毕!" End Sub
但是我运行出错。
因此向大家求助:
1、有没有办法快速的把附档里“狠王服饰”工作簿内的工作表拆分成各个独立的工作溥?
2、能不能快速的把附档里的几个拆分出来的工作表,汇总成像“狠王服饰”工作簿一样的多表面工作簿?
拜谢各位老师伸出援助之手。
|