Excelマクロのモジュールをそのまま貼り付け。
（会社とか家とか出先とかで見るため）
「Option Compare Binary」以下を標準モジュールに貼り付ければ、Myマクロ辞典に！
貼り付け後、「■Sub 」を「Sub 」に置き換えよう！
※公開している以上、利用は自由ですが、自己責任で。


Option Compare Binary
Option Explicit
'
'エラー関連マクロ

■Sub エラー()
'マクロ実行中にエラーが発生した場合、エラーメッセージを表示してマクロを強制終了する。

MsgBox Proc & vbNewLine & Err.Description

MsgBox "作業を中止します。原因を取り除いてからやり直してください。　　　" & vbNewLine & vbNewLine & _
"場所： " & Proc & "　　　" & vbNewLine & _
"内容： " & Err.Description & "（" & Err.Number & "）　　　", _
vbCritical, "エラー発生"


'---親プロシージャを含めて強制終了する
End


'※エラーが発生すると、プロシージャ名が報告されるので、そのプロシージャのみエラー処理を外して、
'※問題のtsvファイルを実行してエラー箇所を探す。


End Sub

■Sub エラー処理テスト2()

MsgBox "作業を中止します。原因を取り除いてからやり直してください。　　　" & vbNewLine & vbNewLine & _
"場所：　" & ProcName & "　　　" & vbNewLine & _
"内容： " & Err.Description & "（" & Err.Number & "）", _
vbCritical, "エラー発生"

End

End Sub

■Sub エラー処理テスト3()

MsgBox "作業を中止します。　　　" & vbNewLine & vbNewLine & _
"場所：　" & ProcName & "　　　" & vbNewLine & _
"内容：　" & Error(Err) & "（" & Err.Number & "）", _
vbCritical, "エラー発生"

End

End Sub

NAME:

MAIL:

URL:

COLOR:
Black LimeGreen SeaGreen Teal FireBrick Tomato IndianRed BurlyWood SlateGray DarkSlateBlue LightPink DeepPink DarkOrange Gold DimGray Silver
SUBJECT:

COMMENT:


PASS: