on errorで元の位置にもどるには？

解決

ひろつの 2001-11-05 23:16:02 No: 103734

on error が実行されたら、エラーを修復して元の位置に戻りたいのですがいい方法はありますか？
例
on error goto errdata

errdata:
    If Err.Number = 9 Then
        RBufCnt = RBufCnt + 5
        ReDim Preserve RBuf(RBufCnt) As Byte
        Resume Next
    End If
RBuf(n)にデータを順次入れ込んでいる時に個数が足らなくなった時エラーになってしまうのですが、上のようにカウンタを増やして元の位置に戻ろうと思ったのですが、記述のようにnextと書いてあるので、次の行すなわちエラーが発生した行のデータが格納できません。
何かいい方法はありますか？
教えて下さい。

ひろつの 2001-11-06 00:27:06 No: 103735

出来ました

おさむらい 2003-10-15 02:21:19 No: 103736

すみません！
どっやって解決しましたか？
同じことで悩んでおります。
お願いします！

Say 2003-10-15 08:17:38 No: 103737

ヘルプで「Resume ステートメント」の項を読みましょう。

おさむらい 2003-10-16 01:27:31 No: 103738

なるほど！