订阅多个工作表拆分为独立工作簿
来源：网络收集 点击： 时间：2024-03-12【导读】：
该代码用于多个工作表拆解成单独工作簿分发到不同用户手中。适用环境：比如我们手中的工作簿包含多张类似表，需要分发给不同部门，但为了信息保密不想将所有表格分发下去。那么就可以用此段代码，让每个工作表变成独立的工作簿。工具/原料more电脑Excel方法/步骤1/3分步阅读
2/3
3/3
点击菜单插入模块，输入以下代码。若在菜单栏中无法看到“开发工具”，以此点击文件选项自定义功能区勾选开发工具确定。
2/3Private 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:=xlNormal 将工作簿另存为xls默认格式 ActiveWorkbook.SaveAs Filename:=MyBook.Path \ sht.Name .xlsx 将工作簿另存为xlsx格式 ActiveWorkbook.Close Next MsgBox 文件已经被分拆完毕! End Sub
3/3工作表薄中的所有表全部独立出现在该表格同一路径下。
版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_329126.html
