拆分一个excel工作簿中的多个工作表.doc

拆分一个Excel工作簿中的多个工作表 1、打开需要编辑的Excel文档，工作簿下方有很多工作表。现在需要将这些工作表单 独拆分开成一个个工作簿。  2、右键任意一个工作表标签，在弹出的下拉列表中选择“查看代码”。即弹出代码窗 口。 」-jta. 应 * J If * u,」 啊 h :~T1 T ? ［買| ■Ma NffE： KH-H - 亠 丹盘 TF ■■■?■? h ■ ，- ? hm=e an 呻* m - +匸 ? t￡中 計MX ■ a ■TH 4M 9 15 IJ IE? 3、点击菜单“插入”-“模块”， 在弹出的模块对话框中 输入以下代码: Private Sub 分拆工作表（） Dim sht As Worksheet Dim MyBook As Workbook Set MyBook = ActiveWorkbook For Each sht In MyBook.Sheets sht.Copy ActiveWorkbook.SaveAs File name:=MyBook .P ath \ sht.Name, FileFormat:=xlNormal 将工作簿另存为EXCEL默认格式 ActiveWorkbook.Close Next MsgBox 文件已经被分拆完毕! End Sub 4、单击“运行”-“运行子过程/用户窗体”，几秒过后弹出提示