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

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

原创最新推荐文章于 2025-04-01 08:43:38 发布 · 4.8k 阅读

11 ·

CC 4.0 BY-SA版权

文章标签：

#excel #office 365 #vba #遍历 #sheet

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

该文章已生成可运行项目，

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快捷键。

本文章已经生成可运行项目