将工作表另存为工作簿

楼主水星钓鱼	动画如下：附件如下：销售汇总表.rar 代码如下： Sub xyf() Application.ScreenUpdating = False On Error Resume Next Dim oWS As Worksheet For Each oWS In ThisWorkbook.Worksheets oWS.Copy Application.DisplayAlerts = False ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & oWS.Name ActiveWorkbook.Close Application.DisplayAlerts = True Next Application.ScreenUpdating = True End Sub 使用方法：补充内容 (2014-1-11 07:20): 请使用帖子右下角的评分功能给这个帖子评分
2楼九洲鹿-旭尧	如何插入宏？这个过程看不出来！那个GIF动画是不是跳过去了~ 还有我们是07版本的~ 能否照顾一下谢谢啦~
3楼水星钓鱼	重新上传了使用方法动画，这个07版本也可以适用。
4楼 I秋香I	太强大了
5楼黑帽沿儿	**闪闪的
6楼 amylee	有用，谢谢！
7楼飞鱼不语	这个动画，关键时候怎么黑了？？
8楼水星钓鱼	怎么黑了？
9楼 eliane_lei	飞鱼，没黑吧！是不是网问题啊？
10楼 qukyso	excel真系好强大~~要找点时间出来学宏才行了~谢谢分享喔！
11楼云遥月	实践过了，帮我大忙感谢感谢
12楼艳艳987	excel真系好强大
13楼飞鱼不语	看来应该真的是网速的问题了，汗！
14楼飞鱼不语	额，真是不好意思了，楼主。这个应该是我网速的问题，这次就看的很清楚。
15楼肤浅得很有深度	分表的数据和主表的数据是链接的，能否不链接呢？
16楼水星钓鱼	没明白你的意思
17楼 EMY	学习中，谢谢版主的分享
18楼 slaven	请问，如果是按照总表中的“销售日期：，将总表根据日期分拆成几张sheet或者几个文件，如何写代码？谢谢！
19楼 slaven	补充：5000多条数据，按照第一列分拆。需要改动代码么？
20楼水星钓鱼	日期如何分拆，按照每个独立日分拆还是按照月份分拆还是?
21楼 slaven	按照具体的日期，分成几张sheet，sheet的名字用日期命名。不晓得行不行。谢谢~~~
22楼 yujy527	有没有将单个工作簿变成一个工作表呢？
23楼水星钓鱼	将工作表另存为工作簿 http://www.exceltip.net/thread-33019-1-1.html
24楼 Jimmy_yang	每天一学习，给力，虽然还不懂怎么用VBA，有机会要学习一下
25楼开心豆	羡慕ing
26楼洲畔听雪	O(∩_∩)O谢谢
27楼莉子-candy	非常好用的代码~原来宏的好处这么大。
28楼 lrlxxqxa	这个可以生成03格式的工作簿 Sub xyf() Application.ScreenUpdating = False On Error Resume Next Dim oWS As Worksheet For Each oWS In ThisWorkbook.Worksheets oWS.Copy Application.DisplayAlerts = False ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & oWS.Name, FileFormat:=xlExcel8 ActiveWorkbook.Close Application.DisplayAlerts = True Next Application.ScreenUpdating = True End Sub
29楼 izhongshi	太帅了这一招啊。
30楼 lslly	学习工作表另存为工作簿
31楼 CJH-龙年快乐	谢谢楼主的分享！
32楼第一段	好东西，学习了！
33楼桃花救赎	2013版本好拙计
34楼静Tiffany	太棒啦~~赞一个!!
35楼 Olivia	收了，谢谢楼主啊！
36楼芋臻子	很有用的
37楼三条变八筒	厉害厉害！多谢楼主分享！
38楼婆婆	谢谢分享，原来弄了一个的这样的，就是个人学习不精，代码写的没那么的简洁啊！
39楼残心傲月	楼主,就是有个问题，如果我只有总表，然后想通过VBA，通过总表进行分类，然后生成每个城市的表，然后再自动保存，这个的话如何实现呢
40楼水星钓鱼	看下这个智能识别字段拆分总表 http://www.exceltip.net/thread-32890-1-1.html
41楼残心傲月	感谢版主,这样的话就能直接从总表,通过VBA根据字段拆分,然后自动保存。多谢。
42楼 GZ小马哥-MARK	有没有OFFIC2003或07的演示呢，谢谢！
43楼水星钓鱼	代码是通用的。
44楼 GZ小马哥-MARK	我是不会如何拆分，演示应该不是2003或2007吧，谢谢！ 2007或2003如何插入代码拆分！
45楼我的天涯2012	太帅了，谢谢楼主
46楼格桑雍措	楼主，我想反问一下，能不能逆行呢，将多个工作簿整合到同一个工作簿里？
47楼 evanyuan871	怎么看不到重新上传的07版本动画呢
48楼 evanyuan871	07版本在哪里看到动画啊？找不到表单控件在哪里呢
49楼 yuneryuner	强大的楼主，无限强大的EXCEL
50楼 cynthia-tt	刚刚入门学习
51楼如意的空间	请问搂主，2003年版的也适用吗？我没有找到“开发工具”
52楼 Rainbow-	很好很方便支持一个。
53楼 ╰№云☆╯	请问，反过来把几个表格合成一个表格怎么做呢？谢谢！
54楼〆、Mr高。	又学会了。
55楼 fanjuan0411	学习了，谢谢
56楼 hongcai429	能做大一点么，看不清楚
57楼加油菜盆	如何保存代码呢？
58楼加油菜盆	在另外一个excel工作簿中录入代码，不能实现拆分怎么办？
59楼加油菜盆	复制代码后的下一步是什么？
60楼 D_MAX	收藏
61楼 86728062	如果汇总表和分表间存在用公式做的链接，可以用这个这个方法另存么？
62楼 gxd2013	这个代码很简单，但是非常实用
63楼 hellojiakun	收藏了
64楼旭海泛舟	太感谢了，天天学习天天快乐
65楼 livia0929	真心厉害。要学习
66楼 gyiy80
67楼 308141883	哈哈，简单易懂，学习
68楼白玮	不错
69楼 zhangzzj	存在工作簿怎么弄啊就是一个工作表分成多个工作表但是都还在同一个工作簿里面
70楼貘小沫	赞一个！
71楼 mmice	多谢分享
72楼 ks-108
73楼 luyuzhen	好赞哦！
74楼 luyuzhen	我怎么找不到拆分出来的工作薄？
75楼德芙淡	佩服，佩服！
76楼 gege1997	正好用到
77楼 xiaopang	是说以后我们要用这个功能的话，就复制这个代码就可以了是吗~那这个代码是怎么来的呀？完全不懂啊~觉得还是学的半斤八两呢
78楼 xiaopang	嗯，感谢哦~
79楼 yncxxmj	非常实用的VBA.
80楼 →妞乄迷夨le	没学会。
81楼水星钓鱼	动画如下：附件如下：销售汇总表.rar 代码如下： Sub xyf() Application.ScreenUpdating = False On Error Resume Next Dim oWS As Worksheet For Each oWS In ThisWorkbook.Worksheets oWS.Copy Application.DisplayAlerts = False ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & oWS.Name ActiveWorkbook.Close Application.DisplayAlerts = True Next Application.ScreenUpdating = True End Sub 使用方法：补充内容 (2014-1-11 07:20): 请使用帖子右下角的评分功能给这个帖子评分
82楼九洲鹿-旭尧	如何插入宏？这个过程看不出来！那个GIF动画是不是跳过去了~ 还有我们是07版本的~ 能否照顾一下谢谢啦~
83楼水星钓鱼	重新上传了使用方法动画，这个07版本也可以适用。
84楼 I秋香I	太强大了
85楼黑帽沿儿	**闪闪的
86楼 amylee	有用，谢谢！
87楼飞鱼不语	这个动画，关键时候怎么黑了？？
88楼水星钓鱼	怎么黑了？
89楼 eliane_lei	飞鱼，没黑吧！是不是网问题啊？
90楼 qukyso	excel真系好强大~~要找点时间出来学宏才行了~谢谢分享喔！