莫名其妙的错误如何处理？

Question

其实加个计数器就可以出来。dim n as integer
n=3
on error goto EH
repeat1:
Printer.Line ...
.....EH:
if err.number = 482 then
n = n -1
if n > 0 then goto repeat1
endif

Answer 1

sub xx()
on error go to hell:
.....
exit sub
hell:
  if err=482 then resume'resume 就是重复操作，跟resume next不同
end sub

Answer 2

......
On error resume next
......Printer.Line ...
if err then
Printer.Line ...
err.clear
end if
(如果要多次的话可改为while循环)
......试试看行不？
http://www.xygu.com