最新WPS办公软件学习教程_免费企业办公软件下载_金山WPS Office官网论坛

 找回密码
 
查看: 16421|回复: 68

[VBA/VBS教程] 天远ET工具箱新功能介绍及源代码解读5——拆分工作簿

[复制链接]

84

主题

59

听众

3088

积分

测试体验团员

系统分析师

Rank: 14Rank: 14Rank: 14Rank: 14

该用户从未签到

金币
984
威望
8204
帖子
842
精华
3

WPS粉丝团 技术分享团 解答支持团 测试体验团 重阳节勋章 技巧教程分享达人 最佳教程奖 优秀会员奖

发表于 2013-2-27 23:27 |显示全部楼层
分享到: 新浪微博 腾讯微博
本帖最后由 天远 于 2013-2-28 12:44 编辑 - q: l, V$ ], f1 U: c+ P

0 u/ o  S4 Y& S4 [- t功能:拆分当前工作簿,使每一个工作表组成一个工作簿
# `7 `" a- T4 B
6 q/ D) ^6 M* u1 M$ ~; g- w, w功能演示:
. V. S9 W2 T& _$ ^
6 f: e$ i. M- h! r$ {. i
2 D. `! s0 y( g$ ]) v/ \9 v2 O  X! a
- K  t; Q( |. `' |" b4 _8 p
9 u' e, h' m6 E- o: w

+ Q/ B/ ^; V* [5 Y, ]) P. U2 @6 C: Y2 S* N8 Z4 F

4 f. w9 ]4 y/ ?6 E6 K$ `# ]; {1 k, v% ^
9 o! w# \- _$ d0 M4 h- ], t2 Y
VBA源代码解读(附件中还提供VBS脚本):8 w4 e$ m- ]& P0 J& e
01 Public Sub SplitWorkbook() '拆分当前工作簿
2 G3 ~6 g5 J- w$ i6 l' X) f02 On Error Resume Next
: l+ O6 O0 }; I4 D! T# t' I03 Application.ScreenUpdating = False '关闭屏幕更新,加快速度
" ^8 [6 v) m7 G% N* B) B, `- V04 If 1 = ActiveWorkbook.Worksheets.Count Then '如果只有一张工作表" M5 L) U* w+ X+ G. K% K
05     MsgBox "当前工作簿只有一张工作表!", 0 + 64, "天远ET工具箱"
' I' V# H: u( }  T5 N06     Exit Sub
( B% h5 w1 P0 [! T! E2 C07 End If
$ Y0 f9 S( n8 V2 n08 Dim AcWb, NewWb As workbook7 L# R( H* |+ G: ^: K
09 Set AcWb = ActiveWorkbook: ?# o* U2 G( d0 v- K1 Q# n7 m4 @
10 Dim i, j, k As Integer5 T% a" f  p; {$ ?8 s; d5 {$ `
11 Dim num As Integer
1 I0 C, z1 W6 C7 m$ @  J$ Z( ]12 For i = 1 To AcWb.Worksheets.Count/ Q5 _5 m; m8 K$ ?2 q% C
13     Set NewWb = Workbooks.Add
7 \- d4 ]4 t0 _+ W8 u14     num = NewWb.Worksheets.Count$ s$ _8 Q# d' z0 e
15     For j = 1 To num- W5 A# C- I% [" \9 |4 y
16         NewWb.Worksheets(j).Name = "XXXtemp" & j0 A! n  U9 v3 z- o- u* [
17     Next j" [$ `3 L  y6 I1 _8 m
18     AcWb.Worksheets(i).Copy , NewWb.Worksheets(num)
4 @' @: C% a. a* R- M8 L" B19     For j = 1 To num4 x6 D% U; `, W; f. Y7 x1 ~
20         NewWb.Worksheets(1).Delete
" E* U: H# X1 F+ J  r21     Next j1 p1 D; j  ~( W& O" Q
22 Next i& D2 M) n) `- @. o
23 AcWb.Activate% D5 c  S4 w, a* m
24 MsgBox "拆分当前工作簿成功!", 0 + 64, "天远ET工具箱"
' O0 g! w3 T4 N2 M! u4 J25 Application.ScreenUpdating = True
6 @8 v, t' l3 H- w26 End Sub
! g5 Q& Z, V) {6 G2 |
* L* h0 l# \0 F
附件:天远拆分工作簿VBA版和VBS版(使用VBA版需要您的WPS拥有VBA环境,没有VBA环境的请到http://bbs.wps.cn/thread-22347925-1-1.html中下载安装。)
$ h2 R- j* X" n% w! O+ n7 N; l
游客,如果您要查看本帖隐藏内容请回复
0 ^& e/ h8 b6 ?
使用天远ET工具箱不需要VBA环境,天远ET工具箱即将加入拆分工作簿功能,敬请期待。* A3 [, Q4 H! Y4 W1 U

4 ~6 q' u' X: Y8 Z& B
) i2 ~0 V1 e; u9 ?

本帖子中包含更多资源

您需要 登录 才可以下载或查看,

已有 5 人评分威望 收起 理由
翘尾的k + 24 WPS有你更精彩!
松风水月 + 20 很给力!
1149737746 + 10 很给力!
zhouyiran1@126.com + 24 很给力!
木偶251900 + 10 很给力!

总评分: 威望 + 88   查看全部评分

热爱分享和学习。希望WPS论坛越办越好,WPS软件越做越好。也希望能在这里交到更多志同道合的朋友。我的邮箱:ypr@yprnet.com
我在WPS论坛上的教程帖子合集: http://blog.yprnet.com/wps

153

主题

109

听众

1万

积分

解答支持团长

老菜鸟

Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20

签到天数: 240 天

[LV.8]以坛为家I

金币
1254
威望
25965
帖子
10314
精华
1

活跃会员奖 解答支持团 测试体验团 乐于助人奖 优秀会员奖

发表于 2013-2-28 08:31 |显示全部楼层
学习了,谢谢分享!
回复

使用道具 举报

0

主题

0

听众

11

积分

LV.1

Rank: 1

该用户从未签到

金币
1
威望
15
帖子
3
精华
0
发表于 2013-3-16 19:34 |显示全部楼层
好东西,谢谢分享、
5 R$ T. `  S, X$ O8 x
回复

使用道具 举报

0

主题

0

听众

4

积分

LV.1

Rank: 1

该用户从未签到

金币
0
威望
4
帖子
2
精华
0
发表于 2013-3-23 14:56 |显示全部楼层
谢谢分享

点评

莽荒纪  莽荒纪无弹窗http://www.xiushu.com  发表于 2013-3-28 13:07
回复

使用道具 举报

0

主题

0

听众

95

积分

LV.2

Rank: 2

该用户从未签到

金币
0
威望
194
帖子
52
精华
0
发表于 2013-4-12 08:30 |显示全部楼层
这个不错。期待新功能加入。
回复

使用道具 举报

0

主题

0

听众

1

积分

LV.1

Rank: 1

该用户从未签到

金币
0
威望
0
帖子
2
精华
0
发表于 2013-4-19 09:53 |显示全部楼层
请请我去企鹅
回复

使用道具 举报

1

主题

1

听众

140

积分

LV.3

Rank: 3Rank: 3

该用户从未签到

金币
4
威望
235
帖子
126
精华
0
发表于 2013-4-25 18:24 |显示全部楼层
好像比较复杂
www.rgrc365.com www.rglsw.com
回复

使用道具 举报

0

主题

0

听众

3

积分

LV.1

Rank: 1

该用户从未签到

金币
0
威望
7
帖子
1
精华
0
发表于 2013-4-26 21:55 |显示全部楼层
xuexile,非常
回复

使用道具 举报

4

主题

0

听众

94

积分

LV.2

Rank: 2

该用户从未签到

金币
15
威望
223
帖子
32
精华
0
发表于 2013-4-27 10:59 |显示全部楼层
. ^/ y; Z( M0 o. w& R7 ~6 {( n4 ~9 |
学习了,谢谢分享!
回复

使用道具 举报

3

主题

0

听众

90

积分

LV.2

Rank: 2

该用户从未签到

金币
0
威望
183
帖子
42
精华
0
发表于 2013-5-23 19:54 |显示全部楼层
谢谢,学习了,非常 好
回复

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 更多账号登录:

快速回帖:

fastpost

WPS论坛更新日志|WPS Office官方论坛     

GMT+8, 2017-11-20 08:11

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

回顶部