Sub Birlestir()
  Dim Path As String
  Dim Filename As String
  Dim Sheet As Worksheet

  Path = "C:UsersDellDesktopsample-data"
  Filename = Dir(Path & "*.xlsx")
  Do While Filename <> ""
    Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
    For Each Sheet In ActiveWorkbook.Sheets
      Sheet.Copy After:=ThisWorkbook.Sheets(1)
    Next Sheet
    Workbooks(Filename).Close
    Filename = Dir()
  Loop
End Sub
Kopyala