excel工作簿拆分完成VBA代码|萝卜系统

Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使Excel成为最流行的个人计算机数据处理软件。

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

Excel整体界面趋于平面化，显得清新简洁。流畅的动画和平滑的过渡，带来不同以往的使用体验。

……

标签:excel工作簿拆分完成VBA代码