【办公小技巧】Excel多个sheet导出为单独的xls或xlsx

最新推荐文章于 2024-05-22 15:25:53 发布

qqgzsws

最新推荐文章于 2024-05-22 15:25:53 发布

阅读量4.7k

点赞数 2

分类专栏：办公文章标签：青少年编程

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

版权

办公专栏收录该内容

1 篇文章 0 订阅

订阅专栏

1.光标在sheet处右击，选择查看代码
2.进入VBA窗口
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