При ошибке перейти к следующей части

[IgorGO]

т.е. со старта предполагается, что в Екселе открыто 18 файлов. занятно.

[Ogeris]

Сообщение от IgorGO

т.е. со старта предполагается, что в Екселе открыто 18 файлов. занятно.

Ну да, если надо из 18 файлов перенести данные в один, как же без их открытия?

[Hugo121]

Значит со старта открыто минимум 19!
Перенести без открытия конечно сложно... Но можно открывать по одному последовательно.
А вот скопировать можно без открытия - можно использовать формулы, или в коде ExecuteExcel4Macro(путь)

[Ogeris]

Сообщение от Hugo121

массив=array("Кб59.xls", "ГФ6.xls", "Л60.xls") 'и т.д.

Примерно так?

Sub Paste()
  Dim i As Long
  On Error Resume Next
  For i = LBound(Array("Кб59.xls", "КП54.xls", "Л60.xls", "Кар21.xls", "Л65.xls", "Р13.xls", "Л60_2.xls", "П52.xls", "У9.xls", "ГФ6.xls", "Крп41.xls", "Гзв12.xls", "Лыс.xls", "ШК112.xls", "М65.xls", "1905.xls", "Кб105.xls", "Пис29.xls")) To UBound(Array("Кб59.xls", "КП54.xls", "Л60.xls", "Кар21.xls", "Л65.xls", "Р13.xls", "Л60_2.xls", "П52.xls", "У9.xls", "ГФ6.xls", "Крп41.xls", "Гзв12.xls", "Лыс.xls", "ШК112.xls", "М65.xls", "1905.xls", "Кб105.xls", "Пис29.xls"))
    Windows(Кб59.xls).Activate
    If Err Then
      Err.Clear
    Else
      With Workbooks("Отчет.xls")
        Sheets(1).Range("A1:AA" & Cells(Rows.Count, 1).End(xlUp).Row).Copy _
        IIf(.Cells(.Rows.Count, 1).End(xlUp).Row = 1, .Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0))
        .Columns(1).UnMerge
      End With
    End If
  Next
  On Error GoTo 0
End Sub

[Hugo121]

Нет, не так

[IgorGO]

и самое интересное - макрос допускает отсутствие открытого файла, что автоматически означает данные из него ни куда не попадают, итоговый файл корявый, причем даже отчета нет какой файл не обработан...

та еще автоматизация работы (с непредсказуемым результатом)

[Ogeris]

Сообщение от IgorGO

и самое интересное - макрос допускает отсутствие открытого файла, что автоматически означает данные из него ни куда не попадают, итоговый файл корявый, причем даже отчета нет какой файл не обработан...

та еще автоматизация работы (с непредсказуемым результатом)

Проверка полноты занесения данных у меня запланирована следующим шагом в настройке этой процедуры...

[Hugo121]

Так нужно сразу делать - сперва проверяем все ли файлы открыты, если не все - сигнализируем и выходим.
Когда юзер открыл все -тогда работаем.

[Ogeris]

Сообщение от Hugo121

Так нужно сразу делать - сперва проверяем все ли файлы открыты, если не все - сигнализируем и выходим.
Когда юзер открыл все -тогда работаем.

Это не обязательное условие, чтобы были открыты все 18. Некоторых может не быть, т.к. не было заказов. Проверка будет на следующем этапе, когда данные отчетов сверятся с полным списком заказов, и тогда будет понятно, кто отчет не предоставил.

[IgorGO]

тогда будет понятно, кто отчет не предоставил

не факт!
не обязательно не предоставил, а может оператор забыл открыть файл (пропустил)