ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / ошибка "Code execution has been interrupted"
4 сообщений из 4, страница 1 из 1
ошибка "Code execution has been interrupted"
    #38673999
Odinokiy_tankist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Odinokiy_tankist
Гость
Доброго времени суток.

столкнулся со следующей проблемой - при выполнении кода

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Sub tst()

Dim cBook As Workbook
Dim csheet As Worksheet
Dim icounter As Integer

Set cBook = ThisWorkbook
Set csheet = cBook.Sheets("payments")

For icounter = 1 To 34
csheet.Columns(icounter).Replace What:=Chr(10), Replacement:="", SearchOrder:=xlByColumns, MatchCase:=True
csheet.Columns(icounter).Replace What:=Chr(13), Replacement:="", SearchOrder:=xlByColumns, MatchCase:=True
 Next icounter
MsgBox ("OK")

End Sub



код вылетает на каждом шаге цикла с сообщением "Code execution has been interrupted". при этом по F8 код выполняется без выводов.

подскажите, как можно исправить эту проблему.
...
Рейтинг: 0 / 0
19.06.2014, 11:31
| Ответить | Цитировать | Написать  
ошибка "Code execution has been interrupted"
    #38674024
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Odinokiy_tankist,

Не очень грамотный ход, но можно перед выполнением кода поставить строку:
Код: vbnet
1.
Application.EnableCancelKey = xlDisabled


только не забудьте потом её вернуть:
Код: vbnet
1.
Application.EnableCancelKey = xlEnabled



А вообще судя по коду можно и без цикла:
Код: vbnet
1.
2.
csheet.Cells(1,1).Resize(,34).Replace What:=Chr(10), Replacement:="", SearchOrder:=xlByColumns, MatchCase:=True
csheet.Cells(1,1).Resize(,34).Replace What:=Chr(13), Replacement:="", SearchOrder:=xlByColumns, MatchCase:=True
...
Рейтинг: 0 / 0
19.06.2014, 11:42
| Ответить | Цитировать | Написать  
ошибка "Code execution has been interrupted"
    #38677262
Eugene_p1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eugene_p1
Гость
... или вообще:

Код: vbnet
1.
2.
ThisWorkbook.Sheets("Payments").Range("A:AH").Replace What:=Chr(10), Replacement:="", SearchOrder:=xlByColumns, MatchCase:=True
ThisWorkbook.Sheets("Payments").Range("A:AH").Replace What:=Chr(13), Replacement:="", SearchOrder:=xlByColumns, MatchCase:=True
...
Рейтинг: 0 / 0
23.06.2014, 14:11
| Ответить | Цитировать | Написать  
ошибка "Code execution has been interrupted"
    #38677278
Eugene_p1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eugene_p1
Гость
Sorry,

Код: vbnet
1.
2.
ActiveWorkbook.Sheets("Payments").Range("A:AH").Replace What:=Chr(10), Replacement:="", SearchOrder:=xlByColumns, MatchCase:=True
ActiveWorkbook.Sheets("Payments").Range("A:AH").Replace What:=Chr(13), Replacement:="", SearchOrder:=xlByColumns, MatchCase:=True


Либо через объект.
...
Рейтинг: 0 / 0
23.06.2014, 14:16
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / ошибка "Code execution has been interrupted"
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=38673999&tid=2173976]:
 0ms
get settings:
 8ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 64ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 61ms
get tp. blocked users:
 2ms
others: 198ms
total:  373ms
созд. / загр.: 373ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]