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

[towdney]

在一个循环体中，用到
On Error goto errhandler1
...
errhandler1:
...
的语句，在首次遇到Error，程序能够按照errhandler1后的语句处理，当时当循环体继续，第二次遇到Error后，就不能够正常地使用errhandler1语句，而是无视On Error goto errhandler1的存在，提示错误信息。
那位朋友能够解释一下，如何解决？

[zyl910]

放在循环为不就行了

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

[lovingkiss]

一般都不会在循环体内写Error
都是
On Error Goto ...
For ...
ErrNumber=1
...
ErrNumber=2
...

Next..

Exit Sub
Err:
根据ErrNumber判断错误所在和信息

[towdney]

你那ErrNumber如何用啊？
我尝试你的方法
On Error Goto errhandler1:
For...
...
...(这句可能出现XXX号错误)
...
...
Next...
errhandler1:
If Err.Number = XXX Then
....
end if
end sub

可是第一次出现XXX号错误时候，程序的确能够按照errhanderl1处理,但是处理完以后，由于Errhander1在循环体外，程序就不再继续运行下去了，被挂起啦，请问如何解决？

[towdney]

前面的兄弟说加一标志变量判断，到底如何处理阿，能否给出代码？

[zyl910]

Dim f as boolean

Do
If f=False then
On Error……
f=True
End if
……
Loop

[towdney]

？？？楼上的兄弟，我不懂你的用意何在。我的解题要求你看清楚了吗？

[feihong0233]

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

[towdney]

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

[towdney]

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

[towdney]

up