【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

相关推荐
wuk9988 分钟前
互联网应用主流框架整合 Spring Boot开发
java·spring boot·后端
forestsea42 分钟前
Caffeine 缓存库的常用功能使用介绍
java·缓存·caffeine
辉辉健身中1 小时前
HttpServletRequest知识点
java
摸鱼仙人~1 小时前
HttpServletRequest深度解析:Java Web开发的核心组件
java·开发语言·前端
nbsaas-boot2 小时前
收银系统优惠功能架构:可扩展设计指南(含可扩展性思路与落地细节)
java·大数据·运维
你过来啊你2 小时前
Java面向对象思想解析
android·java
喵手2 小时前
Java 11 新特性:从模块化到 HTTP/2 深度解析
java·开发语言·http
练习时长两年半的程序员小胡2 小时前
JVM 基础架构全解析:运行时数据区与核心组件
java·jvm·面试
烙印6012 小时前
MySQL的底层原理--InnoDB数据页结构
java·数据库·mysql
要站在顶端2 小时前
Jenkins构建间代码变更记录追踪方案
java·servlet·jenkins