【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

相关推荐
SimonLiu0098 分钟前
清理HiNas(海纳斯) Docker日志并限制日志大小
java·docker·容器
带刺的坐椅9 分钟前
开发 MCP Proxy(代理)也可以用 Solon AI MCP 哟!
java·ai·llm·solon·mcp·mcp-server·mcp-client
yuren_xia24 分钟前
Spring XML 配置
xml·java·spring
小鸡脚来咯40 分钟前
SpringBoot 常用注解大全
java
风铃儿~1 小时前
Java面试高频问题(26-28)
java·算法·面试
IT瘾君1 小时前
Java基础:认识注解,模拟junit框架
java·开发语言·junit
风象南1 小时前
SpringBoot中3种内容协商策略实现
java·spring boot·后端
IT瘾君1 小时前
JavaWeb:Web介绍
java·web
不秃的开发媛1 小时前
前端技术Ajax入门
java·开发语言·前端
大家都说我身材好1 小时前
如何优化字符串替换:四种实现方案对比与性能分析
java·字符串