|
全部保存的： 使用方法：
1、打开你的excle
2、按Alt+F11进入VBA编辑器
3、视图--》代码窗口，在弹出来的窗口选择黏贴复制下面的代码
4、点击上面的 运行 --》运行子用户/用户窗体 就OK啦（拆好的文档在你原始文档的那个文件夹中）
代码行： ============================================================
Sub Lala() Dim sht As Worksheet Application.ScreenUpdating = False
ipath = ThisWorkbook.Path & "\"
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs ipath & sht.Name & ".xls"
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub ============================================================================
只保存单个的：
1、在要另存的工作表标签上右键，点击移动或复制工作表， 2、在工作簿窗口下拉选择（新工作簿），在建立副本打勾，确定就能复制一个新工作簿（表），将新工作簿（表）保存。
为让你更好完成操作，特制作一图（三合一），只要按图中8个步骤操作，重复操作一次完成一张工作表转换成单独的工作薄。 |
