1.光标在sheet处右击,选择查看代码
2.进入VBA窗口![](https://i-blog.csdnimg.cn/blog_migrate/3d12835404edc95f92da3c1f59be5ccf.png)
3.复制下面的代码到代码窗口
4.点击运行
5.导出的sheet将以原sheet名的形式存储于原文件夹
'将工作簿所有工作表另存为单独的文件。
'路径为原工作簿路径,文件名为工作表名
Sub Test()
Dim Sht As Worksheet
For Each Sht In Sheets
Sht.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Sht.Name & ".xlsx"
ActiveWorkbook.Close
Next
End Sub