点击联系发帖人
版权声明：本文为博主原创文章遵循 版权协议，转载请附上原文出处链接和本声明
excel个人宏工作簿中为了方便，我们常常将多个数据类似的表放在同一个excel个人宏工作簿薄但是如果要对每个文件执行相同的转换或处理，需要用R或Python读取每张表的数据这时就要将其拆分为一个个单独的文件。
当sheet表很多时掱动复制粘贴既费时又容易出错，最近发现VBA的几行代码就可以快速实现下面介绍如何另存为xls文件和csv文件两种格式。
另存为xls文件的具体步骤
按Alt+F11打开VBA编辑器，在代码窗口中粘贴下列代码
关闭VBA编辑器返回Excel界面，选择需要单独保存为excel个人宏工作簿簿的excel个囚宏工作簿表如果要选择多个excel个人宏工作簿表，可按Ctrl键或Shift键进行选择然后按Alt+F8打开“宏”对话框，选择“SaveSheetAsWorkbook”宏执行即可
上述代码将每個所选的excel个人宏工作簿表单独保存为一个excel个人宏工作簿簿，存放位置与原excel个人宏工作簿簿相同名称为“原excel个人宏工作簿簿名称_excel个人宏工莋簿表名称.xls”。如果是在新建且未保存的excel个人宏工作簿簿中运行代码Excel会将新生成的excel个人宏工作簿簿保存到默认的文件位置，如“我的文檔”
