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

最新推荐文章于 2025-06-26 16:41:51 发布

原创最新推荐文章于 2025-06-26 16:41:51 发布 · 1.8w 阅读

36 ·

CC 4.0 BY-SA版权

文章标签：

#excel

Excel技巧专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一种使用VBA宏的方式，将Excel工作簿中的每个工作表分别保存为独立的文件。具体步骤包括：通过快捷键进入VBA编辑环境、插入新模块、编写并运行宏代码来实现这一功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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 & ".xls" 
        ActiveWorkbook.Close 
    Next 
End Sub