中人网

标题: 【excel小技巧：怎么拆分一个工作簿中的多个工作表？】 [打印本页]

---

作者: quanszhou    时间: 2014-4-15 16:21
标题: 【excel小技巧：怎么拆分一个工作簿中的多个工作表？】
hr的工作中，肯定会遇到一种情况，导出的数据是一个大的工作簿，我们需要的内容按照分类分成了多个工作表，但是后续的工作呢，需要我们把一个工作簿拆分成多个工作表发给不同的对接人，五个以下的表我们可能就手动复制粘贴了，那要是十个二十个呢？
6 k2 P2 d4 K& r9 q2 C' c# I
4 R$ Z" G# q* t2 Z: g请看这里！一个代码就能解决你的困扰~~
2 D; o" V3 N& n' ]- F建立一个新的文件夹，把需要拆分的工作簿复制进去，打开工作，在工作簿中任意右键点击一个工作表标签，在弹出的下拉列表中选择查看代码，然后可以看到弹出的代码窗口，点击菜单插入-模块，在弹出的模块对话框中 输入以下代码：
" z( w3 P0 d6 b! z5 s
Private Sub 分拆工作表()
/ `  d0 o6 J* {- _1 J       Dim sht As Worksheet
! H  b. v  N1 }' h6 \       Dim MyBook As Workbook
8 r$ O5 ^2 O$ @3 F# k0 M: M       Set MyBook = ActiveWorkbook
       For Each sht In MyBook.Sheets
           sht.Copy
) Z4 i0 G" S2 h5 m$ \3 h           ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal     '将工作簿另存为EXCEL默认格式
) P" g) p; ^5 N, N           ActiveWorkbook.Close
       Next
+ h5 M8 r: x7 o" u) W, |       MsgBox "文件已经被分拆完毕!"
: u5 @" ]0 q( g8 \   End Sub
* X1 [+ S6 J, W1 v) \2 ^7 |* j; Y
. l9 i: {" V0 E6 T4 D单击运行-运行子过程|窗体，过几秒后，弹出提示窗口“文件已被拆分完毕“，然后看一下新建的文件夹！所有的工作表都成了独立的工作簿了！~

百度是最好的老师！~有木有~
: M8 n$ _* v' k: V1 |3 e$ J
1 [8 k" `  N1 @' c

4 a5 j2 @9 }" T) N1 b0 A1 `



" H9 _9 ?" {! J' g3 l  w) c

---

欢迎光临 中人网 (http://bbs.chinahrd.net/)

Powered by Discuz! X2.5