拆分excel中多表

god10373 · 发表于 2022-4-8 21:35

本代码用于拆分一个excel文件中的多个表，将每个表格单独保存。

Private Sub 分拆工作表()

Dim sht As Worksheet

Dim MyBook As Workbook

Set MyBook = ActiveWorkbook

For Each sht In MyBook.Sheets

sht.Copy

ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" &sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式

ActiveWorkbook.Close

End Sub

lgvivi · 发表于 2022-4-11 10:08

羡慕会代码的

alvin123456 · 发表于 2022-4-11 16:44

感谢楼主分享！

命运不堪浮华。 · 发表于 2022-4-18 09:21

谢谢分享~！

掠天之翼 · 发表于 2022-5-7 16:32

感谢分享

bqs211 · 发表于 2022-7-6 12:12

多谢分享

lij97 · 发表于 2022-11-5 17:30

谢谢分享！

hdgc111 · 发表于 2022-11-5 19:54

多谢楼主分享

hua840209 · 发表于 2022-12-1 11:20

学习学习学习学习学习学习

pingsheng8888 · 发表于 2022-12-7 11:06

感谢楼主分享

[EXCEL] 拆分excel中多表