美文网首页
拆分一个Excel工作簿中的多个工作表

拆分一个Excel工作簿中的多个工作表

作者: 梦幻天堂晓 | 来源:发表于2019-04-24 19:06 被阅读0次

打开需要拆分的excel,在任意工作表右击,点击“查看代码”

在打开的窗口中输入如下代码:

Private Sub 分拆工作表()

      Dim sht As Worksheet

      Dim MyBook As Workbook

      Set MyBook = ActiveWorkbook

      For Each sht In MyBook.Sheets

          sht.Copy

          ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlOpenXMLWorkbook    '将工作簿另存为xlsx格式

          ActiveWorkbook.Close

      Next

      MsgBox "文件已经被分拆完毕!"

  End Sub

点击绿色三角,运行程序,等待拆分。

拆分成功后,会弹出窗口提示。

相关文章

网友评论

      本文标题:拆分一个Excel工作簿中的多个工作表

      本文链接:https://www.haomeiwen.com/subject/agdngqtx.html