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

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

相关文章：

QT基础 编码问题 定时器 事件 绘图事件 keyPressEvent QT5.12.3环境 C++实现

Spring Boot3远程调用工具RestClient

小柴冲刺软考中级嵌入式系统设计师系列二、嵌入式系统硬件基础知识（7）嵌入式Soc

重构代码之将引用类型更改为值类型

调试器 gdb/cgdb 的使用

web——sqliabs靶场——第十三关——报错注入+布尔盲注

微调Helsinki-NLP-en-zh模型

Python爬虫：如何从1688阿里巴巴获取公司信息

RTVS视频服务应用

[Golang]传递一个切片（slice）和使用变参（...）语法传递多个参数之间的区别

力扣第 62 题（Unique Paths）两种递归实现

40分钟学 Go 语言高并发：原子操作与CAS

nature communications论文 解读

泷羽sec-----shell编程(完结)

修复HIve表乱码问题

C++学习笔记4——名称空间

部署一套开源客服系统，用户需要准备什么设备？

QT与嵌入式——搭建串口

cocoscreater3.8.4生成图集并使用

青训10_1121_01_游戏排名第三大的分数

C 标准库 - ＜signal.h＞

Roslyn和csc的关系?C#编程语言的命令行用法?C#编译器支持的版本?

HarmonyOS Next 简单上手元服务开发

无插件直播流媒体音视频播放器EasyPlayer.js播放器的g711系列的音频，听起来为什么都是杂音

国内外优秀的视频提取音频在线工具分享

Vue 动态给 data 添加新属性深度解析：问题、原理与解决方案