[Iska]

Где я напортачил? »

Не приложили примеры Рабочих книг, упакованных в архив . Не пришлось бы гадать, какая именно строка:

Теряется 1 строка при копировании информации с последующей книги. »

теряется.

как листы скопировать со всех книг в одну. »

А нужно ли?

Что я бы наверняка поменял:

Код:

        Workbooks.Open Filename:=FilesToOpen(x)
Sheets(3).Range("A1:Z" & Sheets(3).UsedRange.Rows.Count + 1).Copy ThisWorkbook.Sheets(1).Range("A" & ThisWorkbook.Sheets(1).UsedRange.Rows.Count + 1)

Надо не просто открывать Рабочую книгу «в никуда» и играться далее в игры с неявной ссылкой ActiveWorkbook, а, открывая Рабочую книгу, сразу получать ссылку на неё и работать далее с этой открытой Рабочей книгой только через неё:

Код:

Dim objWorkbook As Workbook
…
Set objWorkbook = Workbooks.Open(Filename:=FilesToOpen(x))
objWorkbook.Sheets(3).Range("A1:Z" & objWorkbook.Sheets(3).UsedRange.Rows.Count + 1).Copy …
…
objWorkbook.Close

Строка теряться может где угодно, надо смотреть в содержимое реальных Рабочих книг. Например, пустая (пусть даже скрытая) строка вверху Рабочей книги — и .Range("A1:Z" & .UsedRange.Rows.Count + 1) захватит на строку меньше, нежели ожидалось. Две-три-четыре таких пустых строки дадут столько же потерянных. Я, кстати, не понял, зачем Вам там к .Rows.Count ещё и +1.

В общем, крайне желательны образцы.

[blackeangel]

Iska, примерчики приложу чуть позже.
Да, копировать именно надо в один лист. Задача на самом деле куда шире: надо из выбранных файлов сгруппировать по дате создания, содержимое третьего листа всех сгруппированных файлов(группировка по месяцам) прочитать на временный лист, удалить дубли,проставить в свободный столбец месяц и год. На новый лист подвести итог - кол-во записей с предыдущего листа по месяцам.

На счёт того кто косячит: косячит именно та строка что вы усомнились. Не происходит сдвиг курсора на строку ниже, а запись начинает сразу в последнюю строку. Добавляя +1 я пытался исправить это положение, но безуспешно.
Если это всё хозяйство разбить на 2 этапа: в книгу собираем нужные листы из других книг, а потом пробегаясь по листам собирать данные на один лист - то всё работает правильно. А вот сразу на лету - нет.
Для уточнения-теряется последняя строка предыдущего копирования.
Всё описал как то сумбурно, но как смог.

[Iska]

blackeangel, ну, вот, как раз потому я и прошу образцы Рабочих книг, дабы было на чём «щупать» код.

[blackeangel]

Iska, вот и файлики. Только пришлось подрезать их до 1 листа.

[Iska]

Только пришлось подрезать их до 1 листа. »

Зачем?

Код: Sheets(3).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

Э… Теперь Вы собираете рабочие листы в одной Рабочей книге?

вот и файлики. »

Сборка может быть осуществлена примерно таким кодом:

Код:

Option Explicit

Sub CombineWorkbooks()
    Dim arrSelectedWorkbooks As Variant
    Dim strWorkbook As Variant
    
    arrSelectedWorkbooks = Application.GetOpenFilename( _
        FileFilter:="Microsoft Excel Files (*.xlsx), *.xlsx", _
        Title:="Files to Merge", _
        MultiSelect:=True _
    )
    
    If IsArray(arrSelectedWorkbooks) Then
        For Each strWorkbook In arrSelectedWorkbooks
            With Application.Workbooks.Open(Filename:=strWorkbook)
                .Sheets.Item("Сборки для диспетчера").UsedRange.Copy ThisWorkbook.Sheets.Item(1).UsedRange.Offset(ThisWorkbook.Sheets.Item(1).UsedRange.Rows.Count)
                .Close
            End With
        Next strWorkbook
    Else
        MsgBox "Не выбрано ни одного файла!"
    End If
End Sub

При этом:
а) на рабочем листе сборки первая строка останется пустой (потому как и на пустом рабочем листе свойство .UsedRange пустым не бывает), в принципе, это можно учесть, я просто не стал усложнять здесь код;
б) сборка происходит с заголовками «№ сборки», это тоже можно учесть и исключить.

[blackeangel]

Теперь Вы собираете рабочие листы в одной Рабочей книге?

Я ж писал, что только так работает правильно, а не сразу "на лету"

[Iska]

Я ж писал, что только так работает правильно, а не сразу "на лету" »

Выложенный мною код на выложенных Вами файлах работает «на лету». Смотрите, пробуйте, уточняйте, задавайте вопросы.

[blackeangel]

Iska, разобрался. Да, действительно на лету.
Как бы это переделать теперь чтоб предлогалось выбрать листы(номер или имя), а если не указаны, то всю книгу целиком. Но запрос только один раз был, а не по каждой книге) да, и отвязаться от thisworkbook как? Чтоб было что то типа activeworkbook. Но при открытии ведь activeworkbook меняется на вновь открытый файл. В общем почти что модуль надстройки)

[Iska]

Как бы это переделать теперь чтоб предлогалось выбрать листы(номер или имя), а если не указаны, то всю книгу целиком. »

Например? И зачем? И — листы или один лист? Вот в выложенных Вами образцах по одному Рабочему листу, и каждый из них имеет одно и то же имя. А как с этим обстоят дела в настоящих, оригинальных Рабочих книгах?

Но запрос только один раз был, а не по каждой книге) »

Не понял. Поясните.

да, и отвязаться от thisworkbook как? Чтоб было что то типа activeworkbook. Но при открытии ведь activeworkbook меняется на вновь открытый файл. »

Чтобы использовать в качестве целевой уже открытую текущую Рабочую книгу? Объявляете Dim objSomeWorkbook As Workbook в начале кода, далее делаете присвоение Set objSomeWorkbook = ActiveWorkbook, далее пользуете objSomeWorkbook.