版权声明:本文为博主转载文章,遵循 CC 4.0 BY-SA 版权协议。
原文链接:https://blog.csdn.net/ljc2008110/article/details/50496442
1.Alt+F11 进入VBE
2.菜单:插入-模块。
3.复制下面的代码到光标处
4.Alt+F11回到Excel
5.Alt+F8 选Test,点击运行
'将工作簿所有工作表另存为单独的文件。
'路径为原工作簿路径,文件名为工作表名
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