问个关于EXCEL工作簿内多个sheet拆成一个个独立工作簿的问题

RT
本人用2007，工作中经常遇到将一个工作簿的几十张SHEET的表，一个个另存为单独一个工作簿，新工作簿名即为老工作簿中的SHEET表的表名。
不知道有没有宏或者是其它方法直接实现这种操作，即便导出为WORD 形式也可以。
上个图看的更明白。

求高人们帮忙小弟脱离苦海。

Sub test()
With ThisWorkbook
p = .Path & "\"
For i = 1 To .Sheets.Count
.Sheets(i).Copy
Set aw = ActiveWorkbook
aw.SaveAs p & .Sheets(i).Name & ".xls"
aw.Close False
Next
End With
End Sub

不感兴趣

开通SVIP免广告

哇神人出现了，试了下果然好用！多谢zipall。

麻烦问一下，我也有楼主类似的问题，把你写的宏贴上去运行的时候，会出现“类Worksheet的copy方法无效”这样的提示，然后调试的时候指示的是“.Sheets(i).Copy”这一句，请问该怎么解决呢，谢谢啦~

不知道
发个具体的文件给我.

按照宏执行，桌面上只有3张表，怎么回事啊？而且还会弹出 400的对话框

用了这个命令，只能独立出来9张表格，重复操作两次，还是导出同样的表格，不知道是哪点出了问题，还请高手指教！

可以啦的确是高手啊

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

7回复贴，共1页

<<返回excel吧

分享到:

日	一	二	三	四	五	六