Sub sbor()
    Application.ScreenUpdating = False
    Dim f_path$, book$, r%, wb As Workbook
    
    f_path = ThisWorkbook.Path & "\"
    book = Dir(f_path & "*.xlsx")
    
    With ThisWorkbook.Sheets(1)
        r = .Cells(Rows.Count, 2).End(xlUp).Row + 1
        Do While book <> ""
            Set wb = Workbooks.Open(f_path & book)
            .Cells(r, 2) = wb.Sheets(1).[a1].Value
            .Cells(r, 3) = wb.Sheets(1).[c7].Value
            .Cells(r, 4) = wb.Sheets(1).[d8].Value
            .Cells(r, 5) = wb.Sheets(1).[f10].Value
            wb.Close
            
            r = r + 1
            book = Dir
        Loop
    End With
    Application.ScreenUpdating = True
End Sub

Application.DisplayAlerts=False

Application.DisplayAlerts=True

wb.Close False

.Cells(r, 1) = book