合并工作簿-多簿变一簿多表（Excel代码集团）

同一文件夹内N个工作簿，每个工作簿中一个工作表，最终合并到一个工作簿内分工作表显示的代码。

假设放置以下代码的文件命名为“合并.xlsm“，并与待合并文件在同一文件夹内。

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Sample() Application.DisplayAlerts = False Dim MyWb As Workbook Dim MyName As String, MyPath As String, MyCName as String MyCName = ThisWorkbook.Name MyPath = ThisWorkbook.Path & "\" MyName = Dir(MyPath & "*.xls*") Do While MyName <> ""     If MyName <> ThisWorkbook.Name Then         Set MyWb = Workbooks.Open(MyPath & MyName)         ActiveSheet.Name = Left(MyName, Len(MyName) - 5)         ActiveSheet.Copy Before:=Workbooks(MyCName).Sheets(1)         MyWb.Close False     End If     MyName = Dir Loop Application.DisplayAlerts = True End Sub