由於你描述得太簡單了，所以，只能給你提供一個思路，請按照此思路，進行修改完善程式碼即可。Sub FileJoin() Dim Wb As Workbook Dim cPath$, myFile$ cPath = ThisWorkbook.Path & "\""獲取本檔案所在路徑 "如果副檔名不是xls請修改為你實際的副檔名 myFile = Dir(cPath & "*.xls") Set Wb = ThisWorkbook Application.ScreenUpdating = False Do While myFile <> "" If myFile <> ThisWorkbook.Name Then With Workbooks.Open(cPath & myFile) "將子檔案中的第一個工作表複製到本工作薄中 .Sheets(1).Copy after:=Wb.Sheets(Wb.Sheets.Count) .Close False End With End If myFile = Dir"在本資料夾下查詢下一個xls副檔名的檔案 Loop Application.ScreenUpdating = True MsgBox "彙總完畢！", vbInformation, "提示"End Sub