工作簿拆分
Posted officeplayer
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了工作簿拆分相关的知识，希望对你有一定的参考价值。
一个工作簿中包括N个工作表，将各个工作表拆分成工作簿。
工作表数量不定，表内内容不限，拆分后保存于当前文件夹内。
Sub Sample()
Dim MySheetsCount As Long
For MySheetsCount = 1 To Sheets.Count
Sheets(MySheetsCount).Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Sheets(1).Name & ".xlsx"
ActiveWindow.Close
Next
End Sub
以上是关于工作簿拆分的主要内容，如果未能解决你的问题，请参考以下文章