wanping0049 / Excel / 188个工作表,逐一另存为独立的工作簿,只...

   

188个工作表,逐一另存为独立的工作簿,只要几秒!超赞!

2020-05-14  wanping00...

这两篇文章请结合一起研读:

又有学员说:“能否把一个工作簿里多个工作表,

分别一一另存为多个工作簿文件。”

操作过程同以上两篇文章里的描述,此处就直接给出代码了。

Sub SaveAsBook()

    Dim sht As Worksheet

    Dim ThisBook As Workbook

    Set ThisBook = ActiveWorkbook

    For Each sht In ThisBook.Sheets

        sht.Copy

        ActiveWorkbook.SaveAs ThisWorkbook.Path & '\' & sht.Name & '.xlsx'

        ActiveWorkbook.Close

    Next

   MsgBox Prompt:='恭喜您:每个工作表已经另存为独立工作簿!', Title:='另存完毕!'

End Sub

最后,保存该工作簿的类型,要选择启用宏的工作簿,就是xlsm格式的。


    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。如发现有害或侵权内容,请点击这里 或 拨打24小时举报电话:4000070609 与我们联系。

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多
    喜欢该文的人也喜欢 更多

    ×
    ×

    ¥2.00

    微信或支付宝扫码支付:

    《个图VIP服务协议》

    全部>>