如何使用Excel VBA将一个工作簿中的全部工作表拆分成独立的工作簿

风晓 2024-01-02 07:16:20  54291

分类专栏：资讯

将工作簿里的工作表另存为一个单独的工作簿，一般操作都是将工作表移至新工作簿，然后进行保存。

但是当工作表有很多的时候，一个一个手动操作就比较麻烦，这时就可以考虑使用VBA来批量将工作表另外保存为一个单独的工作簿。

如图，现在一个工作簿里有五个工作表，要将这些工作表全都另存为单独的工作簿。

VBA代码如下：

Sub 分拆工作表()
Application.ScreenUpdating = False
For Each sht In Worksheets
    sht.Copy
    ActiveWorkbook.SaveAs Filename:="C:\Users\Administrator\Desktop\拆分" & "\" & sht.Name, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWorkbook.Close
Next
End Sub

运行以后，在指定路径里面就有对应名称的工作簿了。

这样一来就比较方便。而且使用这种方法，原来工作簿并不会有其他操作。一旦中间出现问题，原数据还是能够保证的。另外在使用代码的时候，要注意修改保存新工作簿的路径。

网站声明：如果转载，请联系本站管理员。否则一切后果自行承担。

本文链接：https://www.xckfsq.com/news/show.html?id=33979

赞同 0

评论 0 条

如何使用Excel VBA将一个工作簿中的全部工作表拆分成独立的工作簿

相关文章

关注我们