大家好,本节主要介绍,通过VBA程序,将单个工作簿中的多个工作表,按表拆分成多个独立工作簿。
一个工作簿中有多个工作表,将每个工作表拆分成独立的工作簿,生成的工作簿名称为原工作表名称,保存至原文件路径下,演示效果如下:
思路是通过for each循环,将该工作簿中的每个表格对象赋值给sht变量,在循环中复制sht变量,将其另存为工作簿文件。
保存至原工作簿的路径下,工作簿的名称为原工作表的名称,另存完毕后关闭,最后msgbox弹窗提示完成。
为了提高代码效率,关闭屏幕更新。
代码如下:
Sub 拆分工作表()
'定义变量并赋值
Live and Learn
联系客服