一個工作簿中包括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