excel文件里有多个sheet，把每个sheet全部导出为单独的xls或xlsx

最新推荐文章于 2025-03-14 09:00:44 发布

蒙奇奇的蒙

最新推荐文章于 2025-03-14 09:00:44 发布

阅读量3.7k

点赞数 2

文章标签： excel

原文链接：https://blog.csdn.net/ljc2008110/article/details/50496442

版权

版权声明：本文为博主转载文章，遵循 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