在循环体中的Error的处理问题

Question

放在循环为不就行了如果一定要放在循环内，加一标志变量判断（起始值为False，第一次Error后设为True）

Answer 1

一般都不会在循环体内写Error
都是
On Error Goto ...
For ...
ErrNumber=1
...
ErrNumber=2
...Next..Exit Sub
Err:
根据ErrNumber判断错误所在和信息

Answer 2

你那ErrNumber如何用啊？
我尝试你的方法
On Error Goto errhandler1:
For...
...
...(这句可能出现XXX号错误)
...
...
Next...
errhandler1:
            If Err.Number = XXX Then
            ....
            end if
end sub可是第一次出现XXX号错误时候，程序的确能够按照errhanderl1处理,但是处理完以后，由于Errhander1在循环体外，程序就不再继续运行下去了，被挂起啦，请问如何解决？

Answer 3

Dim f as booleanDo
    If f=False then
        On Error……
        f=True
    End if
    ……
Loop

Answer 4

On Error Goto errhandler1:
For...
...
...(这句可能出现XXX号错误)
...
...
Next...
errhandler1:
            If Err.Number = XXX Then
            ....
            end if
resume next
end sub

Answer 5

谢谢feihong0233啦，问题解决了，也谢谢大家，下面给分。

Answer 6

谢谢feihong0233啦，问题解决了，也谢谢大家，下面给分。