Перемещение листа в другую книгу

[GWolf]

Пишу так:

For i = LBound(arrList1) To UBound(arrList1)
Workbooks.Open Filename:=filPath & "\" & arrList1(i) _
, ReadOnly:=True
If i = 4 Then
Stop
ElseIf i = 3 Then
Stop
Else
For Each wks In ActiveWorkbook.Worksheets
If wks.Name <> "_" Then
nSC = 0
With Workbooks(filNameTo & ".xls")

Sheets(wks.Name).Move .Sheets(.Sheets.Count) - Эта строка невыполняется! Пишет Subscribe of range, а в чем дело - непойму.

End With
End If
Next
Stop
End If
Next i

[SAS888]

Не совсем понятно, что Вы хотите сделать. Может быть я не так понимаю, но если LBound(arrList1) всегда меньше, чем 3 (тем более 4), то можно организовать цикл

For i = LBound(arrList1) To 2

и не проверять, что следующая книга в массиве имеет индекс 3 или 4, т.к. после проверки у Вас стоит Stop, т.е. примерно так:

Sub MoveSheets()

    For i = LBound(arrList1) To 2
        Workbooks.Open Filename:=filPath & "\" & arrList1(i), ReadOnly:=True
        For Each wks In ActiveWorkbook.Worksheets
            If wks.Name <> "_" Then
                nSC = 0
                With Workbooks(filNameTo & ".xls")
                    Sheets(wks.Name).Move after:=.Sheets(.Sheets.Count)
                End With
            End If
        Next
        Exit For
    Next i
    
End Sub

Предупреждение "Subscribe of range" означает только одно: либо нет такого листа, либо нет такой книги. Проверьте соответствие всех имен.
P.S. Так же, после того, как мы открыли и проверили очередную книгу из массива, то нужно ли ее оставлять открытой?

[GWolf]

Уважаемый SAS888! Дело в том, что у меня ругается на конструкцию

Sheets(wks.Name).Move after:=.Sheets(.Sheets.Count)

т.е. я так понимаю глючит Move after:
а как с этим разобратся - незнаю.

[SAS888]

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

Sheets.Add After:=Sheets(Sheets.Count)

отказывалась работать. При чем в другой книге она работает без проблем. Объяснений так и не нашел. Вышел из положения, применив две команды:

Sheets.Add: ActiveSheet.Move After:=Sheets(Sheets.Count)

Как не странно - сработало. Предлагаю попробовать как-нибудь по-другому. Например, скопировать лист в другую книгу, затем удалить из исходной. Или что-нибудь другое в два хода. Поэкспериментируйте. Я списываю это на ошибки в Excel.

[Волк]

Sheets("Заказ").Select
Sheets("Заказ").Copy