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
'...