Выполнение кода прервано
При необходимости выполнение кода может быть отложено. Это условие имеет следующие причину и решение:
- Обнаружено сочетание клавиш CTRL+BREAK (Microsoft Windows), ESC (Microsoft Excel) или COMMAND+PERIOD (Macintosh). В диалоговом окне ошибки нажмите кнопку Отладка, чтобы войти в режим приостановки выполнения, кнопку Продолжить для продолжения или кнопку Закончить для прекращения выполнения.
Для получения дополнительной информации выберите необходимый элемент и нажмите клавишу F1 (для Windows) или HELP (для Macintosh).
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.
Обратная связь
Были ли сведения на этой странице полезными?
Обратная связь
Отправить и просмотреть отзыв по
Code execution has been interrupted vba как убрать
Argument ‘Topic id’ is null or empty
Сейчас на форуме
© Николай Павлов, Planetaexcel, 2006-2023
info@planetaexcel.ru
Использование любых материалов сайта допускается строго с указанием прямой ссылки на источник, упоминанием названия сайта, имени автора и неизменности исходного текста и иллюстраций.
| ООО «Планета Эксел» ИНН 7735603520 ОГРН 1147746834949 |
ИП Павлов Николай Владимирович ИНН 633015842586 ОГРНИП 310633031600071 |
Ошибка при загрузке отчета в Excel «Code execution has been interrupt»
Точка останова может быть произвольной. При продолжении выполнения возможно макрос еще несколько раз остановится с этой же ошибкой. В итоге отчет сформируется нормально.
Однозначного понимания причин у дискутирующих нет. Микрософт молчит.
Как решение понравилось следующее:
http://www.excel-vba.ru/chto-umeet-exce … to-za-bag/
После появления ошибки нажмите Debug, затем Ctrl+Break, затем кнопку Play на панели редактора VBE (зеленый треугольничек воспроизведения кода) — продолжится выполнение кода. После этого ошибка должна исчезнуть.
Второй способ — грубое отключение реакции на Ctrl+Breal или Esc (Application.EnableCancelKey = xlDisabled) делать не хотелось бы, т.к. в случае зависания отчета снять его можно будет только вместе с Excel через Task manager.
Сообщений 1
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форум користувачив Універсал 7/SBE → Проблеми, питання та побажання → Ошибка при загрузке отчета в Excel «Code execution has been interrupt»
Форум работает на PunBB 1.4.4 , при поддержке Informer Technologies, Inc
» Excel VBA (часть 2)
К примеру переменая «test» имеет имеет значение «1 шт. — 3,00 м; & Chr(10) & 5 шт. — 1,75 м; & Chr(10) & 2 шт. — 5,20 м;», то если использовать «Debug.Print test» или «MsgBox test» получаем результат в три строки. Используя макрос «MyTestPutToClipBoard», получаем результат в одну строку. Возможно ли получить результат в три строки?
Автор: SAS888
Дата сообщения: 14.09.2009 11:44
ferias
Вместо Chr(10) используйте Chr(13). И обратите внимание на расстановку кавычек.
Нужно, например, так:
«. » & Chr(13) & «. » & Chr(13) & «. «
Автор: ferias
Дата сообщения: 15.09.2009 20:31
SAS888
Спасибо большое за
Цитата:
p.s.
Цитата:
обратите внимание на расстановку кавычек
пример писал не внимательно.
Автор: JackUser
Дата сообщения: 16.09.2009 23:38
Подскажите, пожалуйста, как можно получить индекс элемента коллекции изнутри цикла For Each. Индекс нужен для удаления этого элемента через .Remove(index) Или может быть есть другие способы удаления этого текущего элемента?
То есть есть код:
For Each Element in MyColl
‘здесь нужно удалить текущий элемент (Element) из коллекции
MyColl.Remove (. )
Автор: dneprcomp
Дата сообщения: 17.09.2009 03:53
JackUser
Можно
Dim test As Collection
Dim X as integer
DIM I as integer
For I= X to 1 Step -1
test.remove(I)
Next I
Do While test.Count > 0
test.Remove (1)
Loop
или, чтобы удалить сразу все элементы
Set test = Nothing
Автор: visual73
Дата сообщения: 17.09.2009 08:43
Цитата:
или, чтобы удалить сразу все элементы
Set test = Nothing
Это не верно. Данной строкой вы присваиваите переменной test значение Nothing, т.е. вы освобождаете её, а не удаляете все элементы коллекции.
Например коллекция Charts вполне останется на листе после этой команды
Автор: JackUser
Дата сообщения: 17.09.2009 09:32
dneprcomp, спасибо за ответ.
Очень элегантный вариант решения!
Ранее, от кода For I= 1 to X пришлось отказаться именно изза ошибки, связанной с удалением объекта и несовпадением I и test.Count. Думал, можно сделать только через For Each.
Код работает, но все равно есть проблема: если удалить сразу два элемента, будет ошибка. Что можно сделать с этим?
x = test.Count
For I= X to 1 Step -1
test.remove(I)
test.remove(I-1)
Next I
Возможно, все таки придется делать через For Each. Но тогда надо как-то удалять элемент по индексу.
Автор: visual73
Дата сообщения: 17.09.2009 10:10
JackUser
а зачем делать цикл удаления всех элементов коллекции, а потом пытаться всунуть ещё такую строку
test.remove(I-1) . — которая пытается за один проход удалить не один а сразу два элемента.
Они и так все будут удалены!
Несуразица
Автор: JackUser
Дата сообщения: 17.09.2009 10:43
visual73, спасибо за Ваше внимание к проблеме!
Дело в том, что есть процедура1, которая обрабатывает элементы коллекции.
Одновременно с этой процедурой1 работает процедура2, которая пересматривает все элементы коллекции, и, по заданному условию их удаляет. Связанные с адресацией при удалении проблемы этой процедуры решаются кодом For I= X to 1 Step -1, так как за раз она удаляет не более одного элемента.
Но в случае, если во время выполнения процедуры1, наша процедура2 успеет выполниться два раза, и удалить два элемента, то в процедуре1 возникнет ошибка, так как test.Count уменьшится сразу на два.
При использовании For Each в процедуре1 эта проблема решалась бы и ошибки не возникало. Но проблема в том, что эта процедура1 при обработке должна передавать ИНДЕКС элемента, а как его получить я не знаю!
В .net в контейнерах есть соответствующий функционал, а вот тут не знаю как.
Автор: visual73
Дата сообщения: 17.09.2009 11:39
JackUser
1. а что за коллекция? конкретнее..
2. Как может процедура (он же макрос), выполняться одновременно с другой процедурой??
3. У вас вложенный цикл, например For. For. Next..Next, да ещё и во внутреннем цикле удаляется элемент коллекции.. ? так?