Sub 拆分工作簿()
Application.ScreenUpdating = False
Dim sht As Worksheet
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs FileName:="D:\data\" & sht.Name & ".xls"'此处D:\data\改为你存放拆分文件的文件夹地址
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub
2、工作簿(thisworkbook)拆分为多个表(sheet)
最新推荐文章于 2024-09-09 17:04:36 发布