[发明专利]一种利用VBA实现多个EXCEL数据表合并数据的方法

权利要求书

1.一种利用VBA实现多个数据表合并数据的方法，在安装Microsoft Excel前提下，具体步骤为：

①将需要合并的所有电子表格放置在同一文件夹下；

②启动EXCEL；

③在需要合并的电子表格所在的文件夹下新建一个EXCEL文件；

④打开新建的EXCEL文件，按快捷键alt+F11，进入EXCEL的VBA编辑状态，点击“视图”-“代码窗口”，设定VBA程序拷贝到“代码窗口”下；VBA程序如下：

Sub 合并当前目录下所有工作簿的全部工作表() 

Dim MyPath, MyName, AWbName 

Dim Wb As Workbook, WbN As String 

Dim G As Long 

Dim Num As Long 

Dim BOX As String 

Application.ScreenUpdating = False 

MyPath = ActiveWorkbook.Path 

MyName = Dir(MyPath & / & *.xls) 

AWbName = ActiveWorkbook.Name 

Num = 0 

Do While MyName <>  

If MyName <> AWbName Then 

Set Wb = Workbooks.Open(MyPath & / & MyName) 

Num = Num + 1 

With Workbooks(1).ActiveSheet 

.Cells(.Range(A65536).End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4) 

For G = 1 To Sheets.Count 

Wb.Sheets(G).UsedRange.Copy .Cells(.Range(A65536).End(xlUp).Row + 1, 1) 

Next 

WbN = WbN & Chr(13) & Wb.Name 

Wb.Close False 

End With 

End If 

MyName = Dir 

Loop 

Range(A1).Select 

Application.ScreenUpdating = True 

MsgBox 共合并了 & Num & 个工作薄下的全部工作表

如下： & Chr(13) & WbN, vbInformation, 提示 

End Sub

⑤点击“运行”-“运行子过程/用户窗体”,VBA程序开始自动合并文件夹下的数据表到新建的EXCEL文件下，合并完毕，显示总共合并了几个EXCEL工作薄下的工作表，并显示合并的数据文件的文件名列表。