合并多个excel文件方法

本脚本适用于合并多个excel文件（同事创作）
2018-03-28；zc_guo。


1.所有需要合并的excel文件放在同一文件夹内（要求内部结构相同）


2.在同一文件夹，建立新的excel文件


3.打开新的excel>开发工具>查看代码


4.写入代码


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("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyNa