将sheet工作表批量另存为独立的工作簿，并命名成sheet表的名称

将sheet工作表批量另存为独立的工作簿，并命名成sheet表的名称
用法：打开excel文档，按ALT+F11调出VB编辑器，点插入模块，粘贴代码，按F5运行即可。
Sub saveworkbook()        '将sheet工作表批量另存为独立的工作簿，并命名成sheet表的名称
Dim sht As Worksheet     '定义字符变量
Application.ScreenUpdating = False     '关闭屏幕更新
ipath = ThisWorkbook.Path & '\'          '指定建立新的工作簿保存到的路径
For Each sht In Sheets       '遍历所有的sheet工作表
   sht.Copy     ' 拷贝sheet工作表到新的工作簿，即将工作表另存为新的文件。
   ActiveWorkbook.SaveAs ipath & "\" & sht.Name & ".xlsx"  '保存工作簿，并命名成工作表的名称
   ActiveWorkbook.Close         '关闭工作表
   Next '执行遍历循环体
Application.ScreenUpdating = True   '开启屏幕更新
End Sub
------------以下为实测成功代码-----------
Sub saveworkbook()
Dim sht As Worksheet
Application.ScreenUpdating = False
ipath = ThisWorkbook.Path & "\"
For Each sht In Sheets
   sht.Copy 
   ActiveWorkbook.SaveAs ipath & sht.Name
   ActiveWorkbook.Close
   Next
Application.ScreenUpdating = True
End Sub