多个excel合并（excel2007）

1.新建一个空的excel文件，在需要合并的目录下。

2.右键点击sheet1，点击查看代码

3.执行此段代码

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 = 
 
Do While MyName <> ""
 
If MyName <> AWbName Then
 
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
 
Num = Num + 
 
With Workbooks().ActiveSheet
 
.Cells(.Range("B65536").End(xlUp).Row + , ) = Left(MyName, Len(MyName) - )
 
For G =  To Sheets.Count
 
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + , )
 
Next
 
WbN = WbN & Chr() & Wb.Name
 
Wb.Close False
 
End With
 
End If
 
MyName = Dir
 
Loop
 
Range("B1").Select
 
Application.ScreenUpdating = True
 
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr() & WbN, vbInformation, "提示"
 
End Sub