大家好,本节主要介绍,通过VBA程序,将单个工作簿中的多个工作表,按表拆分成多个独立工作簿。
效 果 演 示
一个工作簿中有多个工作表,将每个工作表拆分成独立的工作簿,生成的工作簿名称为原工作表名称,保存至原文件路径下,演示效果如下:
V B A 代 码
思路是通过for each循环,将该工作簿中的每个表格对象赋值给sht变量,在循环中复制sht变量,将其另存为工作簿文件。
保存至原工作簿的路径下,工作簿的名称为原工作表的名称,另存完毕后关闭,最后msgbox弹窗提示完成。
为了提高代码效率,关闭屏幕更新。
代码如下:
Sub 拆分工作表()
'定义变量并赋值
Dim Sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ThisWorkbook
'关闭屏幕更新
Application.ScreenUpdating = False
'通过for each循环工作表变量
For Each Sht In MyBook.Sheets
Sht.Copy
'另存到原文件路径下,名称为原工作表名称
ActiveWorkbook.SaveAs Filename:=MyBook.Path _
& "\" & Sht.Name, FileFormat:=xlNormal
ActiveWorkbook.Close
Next
'重新开启屏幕更新
Application.ScreenUpdating = True
'弹窗提示
MsgBox "工作簿拆分完成"
End Sub
本文分享自 Excel和Access学习笔记 微信公众号,前往查看
如有侵权,请联系 cloudcommunity@tencent.com 删除。
本文参与 腾讯云自媒体分享计划 ,欢迎热爱写作的你一起参与!