Извлечение определенных ячеек из нескольких закрытых книг с помощью VBA (Excel)

Question

У меня есть 500+ электронных таблиц, которые мне нужны, чтобы извлечь 5 строк из каждой.Они все сохранены в одной папке.Мне просто нужно иметь возможность создать код, который будет проходить через каждый файл в указанном каталоге, извлекать первые 5 строк каждого файла (только один лист на файл) и вставлять результаты в одну сводную таблицу.

Это код, который у меня есть (не работает должным образом):

Public Sub CommandButton1_Click()

Dim mainBook As Workbook
Set mainBook = ActiveWorkbook

Dim fso As New Scripting.FileSystemObject
Dim fle As Scripting.File
Dim book As Workbook
For Each fle In fso.GetFolder("C:\dir").Files


    Set book = Workbooks.Open(fle.Path)
    Dim wks As Worksheet
    For Each wks In book.Worksheets

            wks.Range("A5:A10").Copy mainBook.Worksheets(1) 'copies to the  start of the main workbook

    Next
    book.Close
Next
End Sub

Спасибо.

Answer 1

wks.Range("A5:A10").Copy mainBook.Worksheets(1), вам нужно вставить в диапазон, попробуйте

 wks.Range("A5:A10").Copy mainBook.Worksheets(1).cells(mainBook.Worksheets(1).rows.count,"A").end(xlup).offset(1)