Здравствуйте,
столкнулся с ошибкой при копировании листов из надстройки в активную книгу (в уже активную, либо в новую)
При выполнении данного макроса копируется из надстройки только один лист, другой (другие) не копируется. НО при выполнении макроса с помощью F8 все листы копируются.
Вопрос: из-за чего возникает данная ошибка как обойти данную ошибку без повторных активаций книги (тем более если название книги может быть разным).
Заранее спасибо.
столкнулся с ошибкой при копировании листов из надстройки в активную книгу (в уже активную, либо в новую)
При выполнении данного макроса копируется из надстройки только один лист, другой (другие) не копируется. НО при выполнении макроса с помощью F8 все листы копируются.
Код |
---|
Sub NewBook() On Error Resume Next Workbooks.Add Лист01.Copy before:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count) Лист02.Copy before:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count) Лист03.Copy before:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count) End Sub |
при добавлении в макрос строчек повторной активации книги после каждой инструкции все листы успешно копируются
Код |
---|
Sub NewBook2() On Error Resume Next 'Workbooks.Add Workbooks("книга18").Activate Лист01.Copy before:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count) Workbooks("книга18").Activate Лист02.Copy before:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count) Workbooks("книга18").Activate Лист03.Copy before:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count) End Sub |
Заранее спасибо.