将xlsx中的每个sheet单独另存为一个xlsx文件。

最新推荐文章于 2025-04-01 08:43:38 发布

winfredzhang

最新推荐文章于 2025-04-01 08:43:38 发布

阅读量4.7k

点赞数 2

文章标签： excel office 365 vba 遍历 sheet

本文链接：https://blog.csdn.net/winniezhang/article/details/122478009

版权

本文介绍使用VBA代码将Excel中选定的工作表拆分成独立的文件。具体步骤包括：打开文档，全选工作表，通过Alt+F11快捷键打开VBA编辑器，新建模块并输入特定的VBA代码，最后运行宏来实现拆分。

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

1、打开文档。

2、点击sheet，全选。

3、alt+F11快捷键打开vba编码界面。

4、new一个模块。

5、如下代码。

Sub SaveSheetAsWorkbook()
Dim theName As String
On Error GoTo Line1
For Each sht In ActiveWindow.SelectedSheets
sht.Copy
theName = ThisWorkbook.Path & "_" & sht.Name & ".xls"
ActiveWorkbook.SaveAs Filename:=theName, FileFormat:=xlNormal
ActiveWindow.Close
Next
Line1:
End Sub

6、按F5快捷键。