例如工作薄中有多个工作表,如图:
将一个Excel工作簿中的多个工作表(sheet)拆分成如下图所示结果
打开需要拆分的excel,在任意工作表右击,点击“查看代码”
在打开的窗口中输入如下代码:Private Sub 分拆工作表()Dim sht As WorksheetDim MyBook As WorkbookSet MyBook = ActiveWorkbookFor Each sht In MyBook.Sheetssht.CopyActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlOpenXMLWorkbook '将工作簿另存为xlsx格式ActiveWorkbook.CloseNextMsgBox "文件已经被分拆完毕!"End Sub
点击绿色三角,运行程序,等待拆分。
拆分成功后,会弹出窗口提示。
返回Excel工作簿文件所在路径 即可查看已经拆分的工作薄。