如何将一份excel文件所有工作表单独拆分开来

  • 格式:doc
  • 大小:12.00 KB
  • 文档页数:1

如何将一份excel文件所有工作表单独拆分开来

首先打开该excel文件,键盘快捷键:“Alt+F11”

会自动弹出Visual Basic:

然后双击一个工作表

把一下代码复制进去,代码如下:

Private Sub 分拆工作表()

Dim sht As Worksheet

Dim MyBook As Workbook

Set MyBook = ActiveWorkbook

For Each sht In

Filename:= & "\" & , FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式

Next

MsgBox "文件已经被分拆完毕!"

End Sub

复制完之后点工具栏上的运行就OK了!