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

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

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

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

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

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

vbnet 复制代码
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无法工作。

相关推荐
华仔啊19 小时前
Vue+CSS 做出的LED时钟太酷了!还能倒计时,代码全开源
前端·css·vue.js
m0_5649149219 小时前
点击EDGE浏览器下载的PDF文件总在EDGE中打开
前端·edge·pdf
@大迁世界19 小时前
JavaScript 2.0?当 Bun、Deno 与 Edge 运行时重写执行范式
开发语言·前端·javascript·ecmascript
red润19 小时前
Day.js 是一个轻量级的 JavaScript 日期处理库,以下是常用用法:
前端·javascript
Ting-yu20 小时前
Nginx快速入门
java·服务器·前端·nginx
我是日安20 小时前
从零到一打造 Vue3 响应式系统 Day 17 - 性能处理:无限循环
前端·vue.js
user940510355471720 小时前
Uniapp 3D 轮播图 轮播视频 可循环组件
前端
前端付豪20 小时前
12、为什么在 <script> 里写 export 会报错?
前端·javascript
Junsen20 小时前
electron窗口层级与dock窗口列表
前端·electron
一个小潘桃鸭20 小时前
需求:el-upload加上文件上传进度
前端