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

Posted 2023-04-18

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 参考技术A 椤
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 参考技术B 直接点击这个SHEET,然后右键移动或复制工作表/工作簿下拉菜单:新工作簿,保存就可以了 参考技术C 那就很shit了
编辑---移动或复制工作表---工作簿----新工作簿----确定-----再保存就ok了

如何把excel的多个sheet拆分成多个excel文件

如：123.xls含有三个sheet分别为a、b、c；拆分成a.xls、 b.xls、 c.xls，拆分后的a.xls、 b.xls、 c.xls含有相同名称的sheet
Sub Macro1()
Dim sht As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & sht.Name & ".xls"
ActiveWorkbook.Close
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
这个可以实现部分

Sub Macro1()
Dim sht As Worksheet
Dim shtName As String
shtName = "Sheet1" '将引号中的字符更改为你想要的名字

Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each sht In Sheets
sht.Copy
ActiveWorkbook.Sheets(1).Name = shtName
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & sht.Name & ".xls"
ActiveWorkbook.Close
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub 参考技术A

以WPS 2019版本为例：

关于如何把excel的多个sheet拆分成多个excel文件，您可使用WPS参考下述步骤完成操作：

1、打开「表格（Excel）」文档；

2、点击「数据-拆分表格」；

3、按需选择「把工作表按照内容拆分」或「把工作簿按照工作表拆分」使用即可。

官方电话官方服务
官方网站