VB6で作成した exeファイルで、上記のようなエラーが出たことがありました。困ったことにプロジェクトを開いてデバッグしても発生しませんでした。
インターネットで検索をしてみたら、
あるサイトに貴重な記載がありました(勝手にリンクしちゃってます ^^;)。
それによると(僕も実際確認しましたが)、
ネイティブコンパイルした場合のみ発生する事象のようで、P-Codeコンパイルでは発生しません。
そのサイトに書かれていたように、
With 〜 End With の中にある
Exit Sub や
Exit Function など、
End With が実行されないようなステートメントがあったのを、全て
End With が実行されるようにしたら、エラーは発生しなくなりました。
VB に限らず VBA でも With を実行して End With が実行されないようなことがないようにしましょう。
With なんちゃら If 条件 Then Exit Sub ' ← コレはダメ〜! End If End With
|
もし何か正式な情報をお持ちの方が居ましたら、教えて下さい。