|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.03.2011, 22:34 | #1 |
Форумчанин
Регистрация: 19.03.2010
Сообщений: 409
|
Ошибка при многократном копирование листа
Имеется скрытый лист, который постоянно копируется в ту же книгу и заполняется данными из листов другой книги. После нескольких копирований, примерно где-то 80-90, вылетает ошибка 1004: "Метод Copy из класса Worksheet завершен неверно". И в коде останавливается на строке:
Код:
Офис 2003
Есть вопросы, пишите в ЛС.
Последний раз редактировалось rubius2008; 02.03.2011 в 22:39. |
02.03.2011, 22:49 | #2 | |
Форумчанин
Регистрация: 07.03.2010
Сообщений: 796
|
Цитата:
sub test() for i=1 to 300 Sheets("Шаблон").Copy before:=Sheets(1) next end sub у меня правда 2010, и все без проблем
Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234
|
|
02.03.2011, 23:28 | #3 |
Форумчанин
Регистрация: 19.03.2010
Сообщений: 409
|
56 копий сделалось, после чего ошибка "Application-defined or object-defined error". Хотя минуточку.... Закрыл все книги, открыл заново только одну с этим макросом, он наклепал еще шаблонов до 262 и опять та же ошибка. Такое ощущение что буфер обмена забивается... Как-то он очищается в Excel?
Есть вопросы, пишите в ЛС.
Последний раз редактировалось rubius2008; 02.03.2011 в 23:34. |
03.03.2011, 01:05 | #4 | |
Форумчанин
Регистрация: 07.03.2010
Сообщений: 796
|
Цитата:
попробуйте очищать буфер принудительно сделать это можно так : 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
Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234
|
|
03.03.2011, 01:10 | #5 |
Форумчанин
Регистрация: 19.03.2010
Сообщений: 409
|
Пробывал подобное - не помогло. Сделал через добавление листа и копирование содержимого шаблона, гораздо быстрее получается и 300 штук он создал без проблем :-).
R Dmitry, спасибо, за участие в решение проблемы.
Есть вопросы, пишите в ЛС.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ошибка при Копирование файлов | Volkogriz | Общие вопросы Delphi | 4 | 06.12.2010 15:33 |
При многократном использовании VBA-скрипта, он начинает тормозить :( | bag | Microsoft Office Excel | 2 | 09.04.2010 16:15 |
Ошибка при многократном вызове макроопределения | xVxSeRGxVx | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 10 | 01.03.2010 23:46 |
Пожирнение текста на StatusBar'е при многократном Repaint'e | TwiX | Общие вопросы Delphi | 10 | 07.02.2010 18:52 |