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

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