Sub 合并工作簿()
Dim mypath As String, f As String, wb As Workbook
Application.ScreenUpdating = False
mypath = ThisWorkbook.Path & "\3月\"
f = Dir(ThisWorkbook.Path & "\3月\*.xlsx")
Do
Workbook.Open (mypath & f)
With ActiveWorkbook.Sheets(1).Move after: = ThisWorkbook.Sheets(Sheets.Count)
End With
f = Dir
Loop Until Len(f) = 0
Application.ScreenUpdating = True
End Sub