怎样把工作簿里每个工作表生成工作簿

ncow · 发表于 2008-10-31 16:19

假如：工作簿abc.xls有3个工作表，分别是a，b，c
怎样可以用程序实现，分别产生3个工作簿，名称分别为a.xls， b.xls， c.xls，当然a.xls的内容就是工作表a的内容。。
请教？？

gvntw · 发表于 2008-10-31 16:40

Sub test()
mpath = ThisWorkbook.Path + "\"
For Each sh In ThisWorkbook.Worksheets
sh.Copy
ActiveWorkbook.SaveAs mpath + sh.Name + ".xls"
ActiveWorkbook.Close
Next
End Sub

ncow · 发表于 2008-10-31 16:47

我在搜索里找到了，谢谢！

blacksol · 发表于 2010-5-1 19:15

有用，谢谢啊

Plan9 · 发表于 2012-2-25 15:09

不错啊，脚本就是好使。

吾股丰登 · 发表于 2012-2-25 15:53

回复楼主针对2楼版主的扩展而已
sh的COPY和MOVE方法如果没跟上AFFTER或者BEFORE那都会实现楼主的效果当然MOVE的话到最后可能“自宫”行为出现错误

ahhfdw · 发表于 2013-6-9 15:17

这个留着有用

yangkeyuan66 · 发表于 2013-9-17 14:10

谢谢分享！

crx1158512341 · 发表于 2016-3-1 16:11

非常好用，感谢

xgczwp · 发表于 2018-6-10 09:48

谢谢分享。

		自动登录	找回密码
密码			免费注册