当前位置: 首页 > news >正文

将Exce中工作簿的多个工作表拆分为单独的Excel文件

将当前工作簿的多个工作表拆分为单独的Excel文件

1。 为要拆分的工作簿创建一个新文件夹,因为拆分的Excel文件将与该主工作簿保留在同一文件夹中。

2。 按住 ALT + F11 键,然后打开 Microsoft Visual Basic应用程序 窗口。

3。 点击 插入 > 模块,然后将以下代码粘贴到“模块窗口”中。

VBA:将工作簿拆分为多个工作簿并保存在同一文件夹中

Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
    Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
    Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

按 F5 运行此代码的关键。 然后将工作簿拆分为与原始工作簿在同一文件夹中的单独Excel文件

注意:如果其中一个工作表与工作簿具有相同的名称,则此VBA无法工作。

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.dtcms.com/a/56531.html

相关文章:

  • 用数据唤醒深度好眠,时序数据库 TDengine 助力安提思脑科学研究
  • 【JavaWeb】Web基础概念
  • 一文对比RAGFLOW和Open WebUI【使用场景参考】
  • python爬虫lxml库安装与使用
  • 图片分类实战:食物分类问题(含半监督)
  • SpringBoot 全局异常处理
  • 【ARM内核】SWCLK/SWDIO引脚复用
  • HasMap源码学习(持续更新)
  • 割平面法的理解
  • 销售易CRM:用户体验与实际应用深度分析
  • Uniapp项目运行到微信小程序、H5、APP等多个平台教程
  • 【音视频】ffmpeg命令参数说明
  • 【一文学会 HTML5】
  • 洛谷 P1194 买礼物 最小生成树--但有小坑
  • ESP32S3N16R8驱动ST7701S屏幕(vscode+PlatfoemIO)
  • 【清华大学】实用DeepSeek赋能家庭教育 56页PDF文档完整版
  • selenium库
  • 记录一次mysql全文索引不生效
  • C#中的委托是什么?事件是不是一种委托?委托与事件的区别?
  • SpireCV荣获Gitee 最有价值开源项目称号
  • 鸿蒙跨平台框架ArkUI-X
  • Android 屏幕适配 Tips
  • 单片机如何用C语言重写vfprintf
  • npm 执行安装报错
  • Final Cut Pro X for Mac fcpx音视频剪辑编辑
  • 项目设计之用户注册与登录
  • Unity HDR颜色、基础颜色、强度强度、HDR面板Intensity之间的相互转换
  • UDP协议 TCP协议(格式 超时重传 滑动窗口 拥塞控制...)
  • 如何收集 Kubernetes 集群的日志
  • 7V 至 30V 的超宽 VIN 输入范围,转换效率高达 96%的WD5030