vb整合多个excel表格到一张_vba实现excel多表合并

Excel多表合并之vba实现

需求

保留列名，复制每一个excel里的数据，合并到一个excel

操作步骤

将要合并的文件放在同一文件夹下，复制过来就好(ps：最好不要直接操作原数据文件，避免操作失败，数据丢失)

在这个目录下创建一个“合并.xlsx”

双击打开“合并.xlsx”

同时按 ALT + F11

出现下图，按图中文字操作即可完成合并

完成

附录代码

Sub合并当前目录下所有工作簿的全部工作表()DimMyPath, MyName, AWbNameDim Wb As Workbook, WbN As String

Dim G As Long

Dim Num As Long

Dim BOX As Stringflag= 0Application.ScreenUpdating= FalseMyPath=ActiveWorkbook.Path

MyName= Dir(MyPath & "\" & "*.xls")

AWbName=ActiveWorkbook.Name

Num= 0

Do While MyName <> ""

If MyName <> AWbName Then

Set Wb = Workbooks.Open