Копирование листов

[Thez]

Здравствуйте,
Собственно вся суть вопроса: как скопировать лист в скрытую книгу? И наоборот из скрытой книги.

Знаю код:

Workbooks("Книга1.xls").Sheets("Нужный лист").Copy After:=Workbooks("Книга2.xlsb").Sheets(1)

Но он не срабатывает для скрытой книги. Дебаг пишет Workbooks("Книга2.xlsb") = subscript out of range. Пробовал для книги2 писать полный путь - всё равно не работает.

Как такое можно провернуть?

[IgorGO]

книга скрыта от глаз пользователя, но если она окрыта в екселе и есть в списке Workbooks можете копировать в нее из нее как из обычной видимой книги, видит пользователь или нет процесс копирования это для макроса все равно

[Thez]

Тем не менее, если запускать макрос, когда Книга2 скрыта - выскакивает ошибка. А если Книгу2 отобразить и запустить макрос - то всё прекрасно копируется. В чём может быть причина, если не в скрытости книги?

[Казанский]

Действительно не работает!

Sub bb()
With Workbooks(3)
  .Windows(1).Visible = False 'с этим не работает!
  ThisWorkbook.Sheets(1).Copy after:=.Sheets(.Sheets.Count)
  .Windows(1).Visible = True
End With
End Sub

Причина, видимо, в том, что Excel всегда делает активным скопированный лист, а активировать лист в скрытой книге невозможно.

[IgorGO]

ответил руководствуясь логикой, все оказалось так, но чуть-чуть не так...
извините

[Thez]

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

Причина, видимо, в том, что Excel всегда делает активным скопированный лист, а активировать лист в скрытой книге невозможно.

Но ведь код:

Workbooks("Книга1").Worksheets.add

Также делает новый лист активным.

Но код срабатывает:

Sub bb()
With Workbooks("Книга1")
  .Windows(1).Visible = False 
  ThisWorkbook.Worksheets.Add 'работает несмотря на то, что книга скрыта!
End With
End Sub

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

Значит дело не в активности листа...

[Казанский]

Что можно сказать - да, в Excel много... странностей
Вот большая тема, посвященная этому: http://www.cyberforum.ru/vba/thread796990.html