嘻皮客娱乐学习网

标题: VBA拆分含有多个工作表的工作薄到当前工作薄目录下面 [打印本页]

作者: xipick 时间: 2015-12-4 09:18
标题: VBA拆分含有多个工作表的工作薄到当前工作薄目录下面
下面的代码可以拆分含有多个工作表的工作薄里面的各个工作表拆分到当前工作薄目录下面，并以工作表名名称命名为工作薄。

右键任意一个工作表标签，在弹出的下拉列表中选择查看代码。即弹出代码窗口。
点击菜单插入-模块在弹出的模块对话框中输入以下代码：

Private Sub 分拆工作表()
   Dim sht As Worksheet
   Dim MyBook As Workbook
   Set MyBook = ActiveWorkbook
   For Each sht In MyBook.Sheets
         sht.Copy
         ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal    '将工作簿另存为EXCEL默认格式
         ActiveWorkbook.Close
   Next
   MsgBox "文件已经被分拆完毕!"
End Sub

单击运行-运行子过程|窗体几秒过后弹出提示窗口“文件已被拆分完毕” 。

欢迎光临嘻皮客娱乐学习网 (http://www.xipick.com/)