• ベストアンサー

VBAでon error goto文がきかない

エラーが発生しているにもかかわらずon error gotoが実行されません。 ファイルの存在チェックで存在したときは消すようにプログラムしたはずなのに。同僚いわく「何かＯＳのファイルが壊れているのでは？」とのこと。ＯＳの再インストールでもすればいいのでしょうか？できれば参照設定かなんかでファイルをアサインしてon error gotoが実行されるようにしたいのですが・・・ムリですか？

質問者が選んだベストアンサー

  • ベストアンサー
  • O_cyan
  • ベストアンサー率59% (745/1260)
回答No.1

環境がわかりませんが・・。 >エラーが発生しているにもかかわらずon error gotoが実行されません エラーがエラートラップにかからないというのは例えばOpenDatabaseメソッドを使用してSQLServerなどのSQLデータベースを直接開く場合。 SQLServerなどのサーバー側のエラーが表示されるような場合ではエラーはVBAでトラップできない場合もあると思ったのですが。

その他の回答 (1)

  • linacat
  • ベストアンサー率40% (2/5)
回答No.2

質問の内容ではよくわからないのでソースを晒してみては？？

  1. カテゴリ
  2. [技術者向] コンピューター
  3. その他([技術者向] コンピューター)

関連するQ&A

  • On Error GoTo　でエラーが発生する

    Sub Macro1() On Error GoTo ErrorTrap1 　　　　'-エラーの発生するコード　１ ErrorTrap1: On Error GoTo 0 　　　Do 　　　On Error GoTo ErrorTrap2 　　　　　　'-エラーの発生するコード　２ 　　　On Error GoTo 0 　　　Loop ErrorTrap2: End Sub しかし、以下のようにSubで二つに分けるとエラーは出ません。 Sub Macro1() On Error GoTo ErrorTrap1 　　　　'-エラーの発生するコード　１ ErrorTrap1: On Error GoTo 0 Call Macro2 End Sub Sub Macro2() 　　　　Do 　　　　　On Error GoTo ErrorTrap2 　　　　　　'-エラーの発生するコード　２ 　　　　On Error GoTo 0 　　　　Loop 　　ErrorTrap2: End Sub 「On Error GoTo 0」がうまく解除できていないのかと思い、いろいろ試してみました。 しかし、どういった理由かはわかりませんでした。 「On Error GoTo」は、Subでは、ひとつしか使えないのでしょうか。

  • On Error GoToで飛んだ元の位置が知りたい

    タイトル通りですが、ＶＢ６でOn Error GoTo XXXとしておくと、エラー発生時、XXXのラベルから実行されます。この時、どこから、このエラー処理(XXX)に飛んできたかを知ることは出来ないのでしょうか。要はエラーの発生した場所（ステートメント）を知りたいのですが、どのようにすれば、知ることが出来るでしょうか。現在は、怪しいところに目つけて、そこから１ステップずつ実行しているのですが、効率が悪いので、簡単に知る方法があればと思い質問しました。

  • 【VBA】On Error をつけても「Match

    【VBA】On Error をつけても「Matchプロパティを取得できません」を回避できません。 　今晩は、質問させていただきます。どうぞよろしくお願いいたします。 環境：エクセル2010でございます。 　下のようにコーディングしておりますが、「Matchプロパティを取得できません」が出てコード実行が中断されてしまいます。 取得できなかった場合の対処は既に（更にその下に）コーディングしておりますので、Matchのエラーをスルーさせたいのですが。。。 On Error GoTo error1 line1 = (Application.WorksheetFunction.Match(strTime, WS_data.Range("G:G"), 0)) 　　　　　　　　　'↑この行でエラーになります。 error1: On Error GoTo 0 　On Error GoTo error1をOn Error Resume Nextに変えても同じ症状になってしまいます。 もしお詳しい方がいらっしゃいましたらアドバイスいただけないでしょうか。 　どうぞよろしくお願いいたします。

  • [Excel2003] On Error GoTo について教えてください。

    エラー処理について教えてください。 以下の様なマクロで、インプットボックスに 数字以外を入力した場合のエラー処理ですが、 次のような手順で進めると 「型が一致しません」とエラー表示されてしまいます。 どこがいけないのでしょうか？ 　　【手順】 　　・マクロ実行 　　・インプットボックスへ数字以外の文字を入力 　　・「OK」クリック 　　・再びインプットボックス出現 　　・もう一度数字以外の文字を入力 　　・「OK」クリック←ここでエラー表示！ Sub TEST() Dim Tuki As Integer On Error GoTo INPT INPT: Tuki = InputBox("何月分ですか？" & vbCrLf & _ "数字を入力してください。", "集計月入力", 1) If Tuki = 0 Or Tuki > 12 Then MsgBox "１から１２の数字を入力してください。" GoTo INPT End If On Error GoTo 0 End Sub

  • デバッグでエラートラップが効かない

    以下のようなトラップで EXEを実行させると ファイルがないことで起こる エラーは発生しないのですが デバッグ実行すると トラップが効かず ファイルが存在しません というエラーがでてしまいます エラートラップが効かないようなのですが なぜでしょう？ On Error GoTo KILLERROR Kill "file" KILLERROR: Resume Next

  • Onってなんでしょうか？

    私は現在、ＶＢ６を使用してプログラム開発を行っています。 「On Error」ステートメントに関して質問させていただきます。 私の管理下のソースに、 　　(1)「On Error Goto [行ラベル]」 　　(2)「On Err Goto [行ラベル]」 の２種類のステップがあり、 (2)に関しての動作が不明で困っています。 （要は「On [Object] Goto [行ラベル]」と記述した場合に、 　どのように解釈されるのか分らないのですが・・・ 　(1)、(2)共にコンパイルは通りますが(2)の場合はエラーハンドリングはできません。） ＜質問＞ (1)「On Err Goto [行ラベル]」 と記述した場合、 　どのような条件でGotoが実行されるのでしょうか？ 　(Errはエラーオブジェクトです) (2)「On」は 　　・「On Error Goto [行ラベル]」 　　・「On Error Resume Next」 　　・「On Error Goto 0」 　以外に使用する方法があるのでしょうか？

  • on error 処理に関して

    on error goto での処理ルーチン内で、 さらに on error goto を出すことは可能でしょうか。 それとも、一度on errorを設定すると、エラーが発生した後では変更は不可なのでしょうか。 やりたいことは、 １回目と、２回目、３回目以降でやることとを変えたいのです。 例えば、メッセージを変えるとか。 この場合、 エラー処理の中で、何回目かを聞くことで、メッセージを変えることは出来ると思うのですが、 それはやらず、 他にも色々やることが多いので、別処理として飛びたいのです。 以下のようなイメージです。 err1: on error goto err2 resume next err2: on error goto err3 resume next err3: resume next 宜しくお願いします。

  • VBA エラートラップができない

    ＜連番の付いた複数のFileを順に呼び出すプログラム＞ ForループでFileナンバーをインクリメントして行く方法で作成。 もしFileが存在しない場合、ラベルで警告して継続させたい。 この時、On Error GoTo をループ内で使って処理をしたのですが、 １回目は上手く行き、２回目がトラップできませんでした。何故？？ Sub FileOpen() Dim N As Variant 　For N=1 To 100 　　On Error GoTo ErrorRtn： 　 Workbooks.OpenText Filename:= N & ".csv" ErrorRtn: MsgBox 　"Fileが有りません" 　Next End sub

  • VBでのエラー処理（On Error）

    VBで以下のようなプログラムを書いています。 sub On Error goto Err 処理1 Err: 処理2 End sub 処理1でエラーが発生した場合、Err:の処理に入ってくるのですが、もしErr:の中の処理2でもエラーが発生した場合、どうすればよいのでしょうか? Err:の中でもエラー処理ができるのでしょうか、それともロジックで回避しなければならないのでしょうか? ご存知の方がいらっしゃいましたら宜しくお願いします。

  • VBA トラップを再開させるには？

    一度ご質問させていただいたのですが、 どうも上手くできなくて・・・ ＜連番の付いた複数のFileを順に呼び出すプログラム＞ ForループでFileナンバーをインクリメントして行く方法で作成。 もしFileが存在しない場合、ラベルで警告して継続させたい。 この時、On Error GoTo をループ内で使って処理をしたのですが、 １回目は上手く行き、２回目がトラップできませんでした。何故？？ Fileが存在しない場合、メッセージを出しますが、 ２回目にエラーが発生したときは、トラップに掛かりません。 （***Fileが見当たりません…のコーションラベルが表示される） Resumeを使っても、エラーが発生した"後"から開始されるので それでは、Fileを開きにすら行きません。 何か、良い方法はないでしょうか？？？？ Sub FileOpen() Dim N As Integer 　 For N=1 To 100 On Error GoTo ErrorRtn： 　 Workbooks.OpenText Filename:= N & ".csv" ErrorRtn: MsgBox 　"Fileが有りません" Next End sub

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する