Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Не работает On Error в Excel / 5 сообщений из 5, страница 1 из 1
03.03.2009, 10:49:51
    #35847663
b2w
b2w
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает On Error в Excel
Необходимо перебирать по очереди каталоги по шаблону и если в них есть определенные файы брать из них данные.
Если катала нет, необходима продолжить перебор дальше.
Написал оброботчик ошибок, в случае 76 - продолжать цикл.
Обработчик 1 раз срабатывает, а 2 раз не хочет!

ПОМОГТЕ!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2009, 10:52:57
    #35847672
b2w
b2w
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает On Error в Excel
сам текст:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
On Error GoTo ErrImp
For stro =  2  To  1000 

lic = Worksheets("MosReg").Cells(stro,  2 )
nam = Worksheets("MosReg").Cells(stro,  3 )

ChDir dir1 & godFul & "\" & nam & " (" & lic & ")\" & mesBuk
aaa = dir1 & godFul & "\" & nam & " (" & lic & ")\" & mesBuk & "\ot" & lic & mesCif & godKr

Workbooks.Open Filename:= _
dir1 & godFul & "\" & nam & " (" & lic & ")\" & mesBuk & "\ot" & lic & mesCif & godKr

nexto:
Next stro

ErrImp:
Select Case Err.Number
    Case  76 
Err.Clear
GoTo nexto
    Case Else
    MsgBox Err.Number
    MsgBox Err.Description
    Stop
    End Select
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2009, 11:06:18
    #35847713
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает On Error в Excel
после Next stro
поставьте exit sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2009, 11:10:40
    #35847721
b2w
b2w
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает On Error в Excel
big-duke,
Спасибо! Но до этого еще далеко, там тоже цикл будет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2009, 12:25:42
    #35847947
b2w
b2w
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает On Error в Excel
Разобрался!
Нало было Resume nexto писать!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Не работает On Error в Excel / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 525ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2179743]:
 0ms
get settings:
 11ms
get forum list:
 18ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 217ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 1ms
others: 202ms
total:  525ms
x
x
Закрыть


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