Combine same sheet from multiple workbooks in the same folder

[a1b2c3d4e5f6g7]

Hi,

I have same format workbooks in a folder.

I would like to combine one specific sheet into one workbook. But i have to do this for multiple folders, so is it possible to do this with an vba?

I have a code that combines all OPEN workbooks, but i would like to combine all workbook in this path without opening it.

Sub GetSheets()
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xls")
  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