Подскажите по обработчику ошибок - VB

Узнай цену своей работы

Формулировка задачи:

у меня такая проблемка книг просто под рукой вообще нету и нахожусь в глухой деревне... есть ток инет)) ито обрезаный....
... пишу прогу и сталкнулся с такой проблемой...
есть файл екселевский в котором проставлены номера файлов которые надо открыть и из них пердернуть данные, но попадаются битые файлы которые ексель не может открыть и получается что выдает ошибку (фактически мне эта ошибка вообще по барабану) самое главное чтоб он у меня данный цикл зачершал и переходил к другому файлу ну в лучшем случае чтоб помечал цветом в екселе название данного файла...
вот часть кода..
Sub q()
Application.ScreenUpdating = False
Dim i As Long
Dim a As Variant
Dim b As String
For i = 0 To 18 Step 2
q = 9 + i
Windows("данные.xls").Activate
Range("B" & q).Select
a = Range("B" & q).Value
b = CStr(a)
ChDir "C:\пасс
Workbooks.Open Filename:="C:\пасс\" & b & ".xml" ' вот проблемка в открытии данного файла
Windows("" & b & ".xml").Activate
(.............. далее код проги для данного файла......)
Next
и проблемма в том что нужно что то такое что бы при ошибке в файле просто переходила на конец цикла перtд next/
может есть у кого идеи? что тут сделать
подскажите плиз...

Решение задачи: «Подскажите по обработчику ошибок»

textual
Листинг программы
<font color="blue">On</font> <font color="blue">Error</font> <font color="blue">Resume</font> <font color="blue">next</font>
Workbooks.<font color="blue">Open</font> Filename:=<font color="teal">"C:\пасс\"</font> & b & <font color="teal">".xml"</font> <font color="00AA00">' вот проблемка в открытии данного файла</font>
<font color="blue">If</font> Err.Number <> <font color="darkblue"><b>0</b></font> <font color="blue">Then</font> <font color="blue">Goto</font> skip
<font color="blue">On</font> <font color="blue">Error</font> <font color="blue">Goto</font> <font color="darkblue"><b>0</b></font>
.................
skip:
<font color="blue">On</font> <font color="blue">Error</font> <font color="blue">Goto</font> <font color="darkblue"><b>0</b></font>
<font color="blue">Next</font>

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 3.429 из 5