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

[Ogeris]

Добрый день!

Задача макроса - подгрузить в один лист данные из нескольких экселевских файлов. Если нужный файл не открыт, то макрос переходит к следующему файлу. Если и тот не открыт, - к следующему.

Пытаюсь это реализовать через On error GoTo, но после первого отсутствующего файла выдаёт ошибку ((((

Вот кусок кода:

Sub Paste()
'
On Error GoTo 02
Windows("01.xls").Activate
Sheets(1).Range("A1").Select
Range("A1:AA" & Cells(Rows.Count, 1).End(xlUp).Row).Select
Selection.Copy
        
Windows("Отчёт.xls").Activate
ActiveSheet.Select
Range("A1").Select
ActiveSheet.Paste
Selection.UnMerge

02:
On Error GoTo 03
Windows("02.xls").Activate
Sheets(1).Range("A1").Select
Range("A1:AA" & Cells(Rows.Count, 1).End(xlUp).Row).Select
Selection.Copy

Windows("Отчёт.xls").Activate
ActiveSheet.Select
Range("A1").Select
iLastRow = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row
Cells(iLastRow + 2, ActiveCell.Column).Select
ActiveSheet.Paste
Selection.UnMerge

03:
Windows("03.xls").Activate
Sheets(1).Range("A1").Select
Range("A1:AA" & Cells(Rows.Count, 1).End(xlUp).Row).Select
Selection.Copy

Windows("Отчёт.xls").Activate
ActiveSheet.Select
Range("A1").Select
iLastRow = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row
Cells(iLastRow + 2, ActiveCell.Column).Select
ActiveSheet.Paste
Selection.UnMerge

End Sub

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[IgorGO]

а так:

Sub Paste()
  Dim i As Long
  On Error Resume Next
  For i = 1 To 3
    Windows("0" & i & ".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

[Ogeris]

Большое Спасибо!
Но я изменил названия файлов на "01.xls", "02.xls" и "03.xls" для примера, в жизни они имеют другие названия, например "Кб59.xls", "ГФ6.xls", "Л60.xls" и т.д.

[Hugo121]

Тогда имена в массив, перебираем его

Windows(массив(i)).Activate

[Ogeris]

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

Тогда имена в массив, перебираем его

Windows(массив(i)).Activate

Спасибо!
А на что в этом случае заменить нижеследующее?

  
For i = 1 To 3

[Hugo121]

for i= lbound(массив) to ubound(массив)

- так будет универсально. А вообще можно от 0 до 2 перебирать для трёх значений.

[Ogeris]

Вот так?

Sub Paste()
  Dim i As Long
  On Error Resume Next
  For i = LBound(массив) To UBound(массив)
    Windows(массив(i)).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]

Да.
Только где заполнение массива имён файлов?
А это можно делать по-разному - в коде, с листа, из текстового файла, запросом у пользователя...

[Ogeris]

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

Да.
Только где заполнение массива имён файлов?
А это можно делать по-разному - в коде, с листа, из текстового файла, запросом у пользователя...

Если прописывать в коде (список из 18 наименований), то как это может выглядеть? Заранее спасибо!

[Hugo121]

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