【Excel】拆分多个sheet,为单一表格

vbnet 复制代码
Private Sub 分拆工作表()
Application.ScreenUpdating = True '让屏幕显示操作过程,
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
For Each sht In MyBook.Sheets
If sht.Visible = True Then '隐藏的sheet跳过,否则会报1004无法复制错误
sht.Copy
ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name & "-" & sht.Cells(1, 1) & ".xlsx", FileFormat:=xlWorkbookDefault '将工作簿另存为EXCEL默认格式
ActiveWorkbook.Close
End If
Next
MsgBox "文件已经被分拆完毕!"
Application.ScreenUpdating = True '让屏幕恢复显示操作过程,
End Sub

说明:这一句是用于文件命名

ActiveWorkbook.SaveAs Filename:=MyBook.Path & "" & sht.Name & "-" & sht.Cells(1, 1) & ".xlsx", FileFormat:=xlWorkbookDefault

相关推荐
DCTANT8 分钟前
【原创】国产化适配-全量迁移MySQL数据到OpenGauss数据库
java·数据库·spring boot·mysql·opengauss
Touper.17 分钟前
SpringBoot -- 自动配置原理
java·spring boot·后端
黄雪超27 分钟前
JVM——函数式语法糖:如何使用Function、Stream来编写函数式程序?
java·开发语言·jvm
ThetaarSofVenice33 分钟前
对象的finalization机制Test
java·开发语言·jvm
望获linux2 小时前
【实时Linux实战系列】CPU 隔离与屏蔽技术
java·linux·运维·服务器·操作系统·开源软件·嵌入式软件
JosieBook2 小时前
【Java编程动手学】使用IDEA创建第一个HelloJava程序
java·开发语言·intellij-idea
Thomas_YXQ2 小时前
Unity3D DOTS场景流式加载技术
java·开发语言·unity
summer夏1232 小时前
2025.07 做什么
java·android studio
钢铁男儿2 小时前
C# 委托(调用带引用参数的委托)
java·mysql·c#
Apex Predator2 小时前
windows安装maven环境
java·maven