VBA合并多个excel表

最新推荐文章于 2023-10-27 13:28:36 发布

原创

最新推荐文章于 2023-10-27 13:28:36 发布 · 1.4k 阅读

标签

#vba

收录于

本文介绍了如何通过Visual Basic for Applications（VBA）脚本高效地合并多个Excel工作表。内容涵盖设置VBA环境，编写代码实现表格数据整合，并提供了一种自动化处理大量Excel文件的方法。

Sub 合并当前目录下所有工作簿的全部工作表()
    Dim MyPath, MyName, AWbName
    Dim Wb As Workbook, WbN As String
    Dim G As Long
    Dim Num As Long
    Dim BOX As String
    flag = 0

    Application.ScreenUpdating = False
    MyPath = ActiveWorkbook.Path
    MyName = Dir(MyPath & "\" & "*.xls")
    AWbName