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

[Казанский]

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

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

Хотя бы так

Sub Paste()
  Dim v
  On Error Resume Next
  For Each v In Array("CC.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")
  'или
  'For Each v In Split("Кб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(v).Activate
    If Err Then
      Err.Clear
      MsgBox "Книга " & v & " не открыта!", vbExclamation
    Else
      With Workbooks("Книга2")
        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

[Ogeris]

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

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

Этот отчет как раз оператор и делает, вот он сам себя и проверит

[IgorGO]

файлы могут быть открыты в ексель, а могут просто лежать в той же папке что и файл Отчет.xls

Sub PasteFromFilesList()
  Dim i As Long, wb As Workbook, WasOpened As Boolean, Path As String, fn As String, FilesList
  FilesList = 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")
  Path = Workbooks("отчет.xls").Path & Application.PathSeparator
  For i = LBound(FilesList) To UBound(FilesList)
    Set wb = FindWorkBook(FilesList(i))
    If wb Is Nothing Then
      fn = Dir(Path & FilesList(i))
      If fn <> "" Then
        Set wb = Workbooks.Open(fn): WasOpened = True
      Else
        MsgBox "Файл не найден" & Chr(10) & FilesList(i), vbCritical + vbOKOnly, "Ой, БЕДА!!!"
      End If
    Else
      WasOpened = False:  wb.Activate
    End If
    if Not wb Is Nothing then 
      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
        If WasOpened Then wb.Close False
      End With
    end if
  Next
End Sub



Function FindWorkBook(wbn As String) As Workbook
  Dim wb As Workbook
  For Each wb In Workbooks
    If wb.Name Like wbn Then Set FindWorkBook = wb: Exit Function
  Next
End Function

[Ogeris]

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

файлы могут быть открыты в ексель, а могут просто лежать в той же папке что и файл Отчет.xls

Выдаёт ошибку "ByRef argument type mismatch" на слове FilesList в строке

Set wb = FindWorkBook(FilesList(i))

[IgorGO]

напишите так:

Set wb = FindWorkBook(cStr(FilesList(i)))

[Ogeris]

2 Казанский: Большое спасибо! Немного подправил и заработало!

[Ogeris]

Сообщение от Казанский

Хотя бы так

Большущее Спасибо!
Немного подправил, и заработало как надо!