Ошибка при многократном копирование листа

[rubius2008]

Имеется скрытый лист, который постоянно копируется в ту же книгу и заполняется данными из листов другой книги. После нескольких копирований, примерно где-то 80-90, вылетает ошибка 1004: "Метод Copy из класса Worksheet завершен неверно". И в коде останавливается на строке:

Sheets("Шаблон").Copy before:=Sheets(1)

дальней программное выполнение копирования (любого, например если поменять копируемый лист и место) приводит к той же самой ошибке. Если это делать через интерфейс Excel то ничего не происходит(не копируется). Подскажите, пожалуйста в чем проблема? В каком направление искать ошибку?

Офис 2003

[R Dmitry]

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

Имеется скрытый лист, который постоянно копируется в ту же книгу и заполняется данными из листов другой книги. После нескольких копирований, примерно где-то 80-90, вылетает ошибка 1004: "Метод Copy из класса Worksheet завершен неверно". И в коде останавливается на строке:

Sheets("Шаблон").Copy before:=Sheets(1)

дальней программное выполнение копирования (любого, например если поменять копируемый лист и место) приводит к той же самой ошибке. Если это делать через интерфейс Excel то ничего не происходит(не копируется). Подскажите, пожалуйста в чем проблема? В каком направление искать ошибку?

Офис 2003

а вы попробуйте на пустой книге

sub test()
for i=1 to 300
Sheets("Шаблон").Copy before:=Sheets(1)
next
end sub

у меня правда 2010, и все без проблем

[rubius2008]

56 копий сделалось, после чего ошибка "Application-defined or object-defined error". Хотя минуточку.... Закрыл все книги, открыл заново только одну с этим макросом, он наклепал еще шаблонов до 262 и опять та же ошибка. Такое ощущение что буфер обмена забивается... Как-то он очищается в Excel?

[R Dmitry]

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

56 копий сделалось, после чего ошибка "Application-defined or object-defined error". Хотя минуточку.... Закрыл все книги, открыл заново только одну с этим макросом, он наклепал еще шаблонов до 262 и опять та же ошибка. Такое ощущение что буфер обмена забивается... Как-то он очищается в Excel?

попробуйте очищать буфер принудительно
сделать это можно так :

Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Declare Function CloseClipboard Lib "user32" () As Long
Declare Function EmptyClipboard Lib "user32" () As Long

Sub bufer_erase()
OpenClipboard Application.hwnd
EmptyClipboard
CloseClipboard
End Sub

[rubius2008]

Пробывал подобное - не помогло. Сделал через добавление листа и копирование содержимого шаблона, гораздо быстрее получается и 300 штук он создал без проблем :-).
R Dmitry, спасибо, за участие в решение проблемы.