将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无法工作。

相关推荐
coder_pig14 分钟前
跟🤡杰哥一起学Flutter (三十四、玩转Flutter手势✋)
前端·flutter·harmonyos
万少21 分钟前
01-自然壁纸实战教程-免费开放啦
前端
独立开阀者_FwtCoder23 分钟前
【Augment】 Augment技巧之 Rewrite Prompt(重写提示) 有神奇的魔法
前端·javascript·github
yuki_uix33 分钟前
AI辅助网页设计:从图片到代码的实践探索
前端
我想说一句34 分钟前
事件机制与委托:从冒泡捕获到高效编程的奇妙之旅
前端·javascript
陈随易34 分钟前
MoonBit助力前端开发,加密&性能两不误,斐波那契测试提高3-4倍
前端·后端·程序员
小飞悟41 分钟前
你以为 React 的事件很简单?错了,它暗藏玄机!
前端·javascript·面试
中微子1 小时前
JavaScript 事件机制:捕获、冒泡与事件委托详解
前端·javascript
Whoisshutiao1 小时前
网安-XSS-pikachu
前端·安全·网络安全
惊鸿2871 小时前
Taro3+小程序Canvas动态生成海报和二维码分享到朋友圈
前端