当前位置:主页 > 会计电算化 > 正文

如何将EXCEL工作薄按工作表拆分为多个工作薄

时间:2014-09-04 07:25 作者:会计学习网 次阅读

【内容概况】工作中需要把一个工作薄里的若干工作表拆分为单独的工作薄,表多复制粘贴都麻烦,有没有比复制粘贴更简单的办法呢? 步骤如下: 1、打开有需要拆分的工作表; 2、右击任意工作表名称; 3、在弹出的对话框中点击查看代码; 4、在空白的代码框中粘贴下列代码(......

工作中需要把一个工作薄里的若干工作表拆分为单独的工作薄,表多复制粘贴都麻烦,有没有比复制粘贴更简单的办法呢?
步骤如下:
1、打开有需要拆分的工作表;
2、右击任意工作表名称;

3、在弹出的对话框中点击查看代码;

4、在空白的代码框中粘贴下列代码(红色部分):
Sub 工作薄拆分()
'将工作薄按工作表拆分成多个工作薄
Dim PATH As String
PATH = Application.ActiveWorkbook.PATH
Dim sht As Worksheet
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs PATH & "\" & sht.NAME & ".xls" '(工作表名称为文件名)
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub
Sub UnhideAllSheets()
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Visible = True
Next
End Sub
5、保存这个代码

6、按F5或者点击上图中那个绿色三尖角按键运行Sheet1.工作薄拆分

7、等待执行一会儿表格就拆分好了。

1
2
3