如何将一个工作簿中的若干表格分成独立的工作簿？

mingyi_sh

<p>请教各位达人：</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 在工作中我常需要将一个工作簿中的几十张表格分别转成只有一张表格的独立工作簿，目的是将各部门或各分公司的数据分别进行反馈。我是用最笨的操作方法：将工作簿复制然后删去多余的表格，重复做几十次:(</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 我请一定有办法解决，请教各位高手啦！谢谢！</p>

保佑

<p>插入</p>

gaulue

<p>这是我从论坛上一位仁兄那得到的，具体叫什么名字我忘了，请那位仁兄见谅</p> wA9yZ3rX.rar (21.54 KB, 下载次数: 92)

2008-5-20 13:21 上传

点击文件名下载附件
如何将一个工作簿中的若干表格分成独立的工作簿？

<br/>

muyi2005sky

ASFA ETWL ;QW;

v767

根据其他用户的解答:

按Alt+F11打开VBA编辑器，插入新的模块，复制下面的内容到里面，按F5运行即可。

Sub SaveSeparately()
Dim sht As Worksheet
Application.ScreenUpdating = False
ipath = ThisWorkbook.Path & "\"
For Each sht In Sheets
    sht.Copy
    ActiveWorkbook.SaveAs ipath & sht.Name & ".xls"
   ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub