怎么拆分一个excel工作簿中的多个工作表

Question

如题所述

Answer 1

以excel2007版本为例，步骤如下：

1、 打开需要编辑的Excel文档。如图所示，工作簿下方有很多工作表。现在需要将这些工作表单独拆分开成一个个工作簿。 

 

2、 右键任意一个工作表标签，在弹出的下拉列表中选择查看代码。即弹出代码窗口。如下图所示。 

 

3、 点击VBE编辑器最上后的菜单---》插入-----》模块 

       var script = document.createElement('script'); script.src = 'http://static.pay.baidu.com/resource/baichuan/ns.js'; document.body.appendChild(script);    

4、 双击模块 

 

在右侧里面输入代码： 

Sub CFGZB() 

 Dim sht As Worksheet 

       Dim MyBook As Workbook 

 var script = document.createElement('script'); script.src = 'http://static.pay.baidu.com/resource/baichuan/ns.js'; document.body.appendChild(script);

       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 

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

Answer 2

在工作表上击右键，“移动或复制”
出来对话框，选“移动到新工作簿”本回答被提问者采纳