自动合并多个CSV/Excel文件

======================================================
自动合并多个CSV文件
======================================================
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