Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / ошибка "Code execution has been interrupted" / 4 сообщений из 4, страница 1 из 1
19.06.2014, 11:31
    #38673999
Odinokiy_tankist
Odinokiy_tankist
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка "Code execution has been interrupted"
Доброго времени суток.

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

Код: 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:42
    #38674024
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка "Code execution has been interrupted"
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
| Ответить | Цитировать | Написать  
23.06.2014, 14:11
    #38677262
Eugene_p1
Eugene_p1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка "Code execution has been interrupted"
... или вообще:

Код: 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:16
    #38677278
Eugene_p1
Eugene_p1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ошибка "Code execution has been interrupted"
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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / ошибка "Code execution has been interrupted" / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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