如何使用Excel VBA将多个工作簿的全部工作表合并到一个工作簿中

风晓 2024-01-02 07:17:53  53441

分类专栏：资讯

在一些操作中，往往会需要将多个工作簿进行合并。一般的操作方法都是打开两个工作簿，然后选中需要移动的工作表，右键单击以后选择“移动或复制”。接下来在新的窗口里面进行设置就可以了。

这种方法适合在移动数量较少的工作表的时候使用。如果有很多的工作簿，都需要进行移动的话，一个一个打开然后再操作肯定是比较麻烦耗时的。这时就可以使用VBA来批量进行操作。

如图，现在在一个文件夹里面有几个工作簿，里面分别有不同数量的工作表。另外还有一个启用宏的汇总表。

下面就需要使用VBA将工作簿1-3汇总到那个总表中。

打开汇总工作簿，然后运行以下代码：

Sub MergeWorkbook()
    Application.ScreenUpdating = False
    Path = "C:\Users\Administrator\Desktop\新建文件夹"
    Filename = Dir(Path & "\*.xlsx")
    While Filename <> ""
        Set wb = Workbooks.Open(Path & "\" & Filename)
            For Each Sheet In ActiveWorkbook.Sheets
                i = Workbooks("汇总.xlsm").Sheets.Count
                Sheet.Copy After:=Workbooks("汇总.xlsm").Sheets(i)
            Next Sheet
        wb.Close
        Filename = Dir
    Wend
End Sub

运行以后其他工作簿里面的工作表就全部复制到汇总工作簿中了。

在实际使用中需要注意的是，这里的路径需要更改为目标文件夹路径，汇总工作表如果不是启用宏的工作簿，也需要修改名称和扩展名，防止运行时出现错误。

以上就是使用Excel VBA将多个工作簿的全部工作表合并到一个工作簿中的方法了。

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

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

赞同 0

评论 0 条

如何使用Excel VBA将多个工作簿的全部工作表合并到一个工作簿中

相关文章

关注我们