Подскажите по обработчику ошибок - 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/
может есть у кого идеи? что тут сделать
подскажите плиз...
... пишу прогу и сталкнулся с такой проблемой...
есть файл екселевский в котором проставлены номера файлов которые надо открыть и из них пердернуть данные, но попадаются битые файлы которые ексель не может открыть и получается что выдает ошибку (фактически мне эта ошибка вообще по барабану) самое главное чтоб он у меня данный цикл зачершал и переходил к другому файлу ну в лучшем случае чтоб помечал цветом в екселе название данного файла...
вот часть кода..
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>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д